annotate extra/gcc6809lw-4.6.4-9.patch @ 508:10f62dc61a75

Fix bad usage of sprintf() Usage of sprintf() to append to a string in the form of sprintf(buf, "%s...", buf...) is undefined, regardless whether it worked on a lot of older systems. It was always a bad idea and it now breaks on current glibc and gcc development environments. The moral: if any of your code uses sprintf() in a way similar to the above, fix it. It may not fail in a benign way.
author William Astle <lost@l-w.ca>
date Sun, 10 May 2020 22:38:24 -0600
parents 639d19f5fb8e
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
447
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1 diff -urN gcc-4.6.4-clean/config.sub gcc-4.6.4/config.sub
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2 --- gcc-4.6.4-clean/config.sub 2010-05-25 07:22:07.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3 +++ gcc-4.6.4/config.sub 2017-11-28 21:12:11.136911706 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4 @@ -313,7 +313,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5 c6x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6 basic_machine=tic6x-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
10 # Motorola 68HC11/12.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
11 basic_machine=$basic_machine-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
12 os=-none
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
13 @@ -354,7 +354,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
14 | i*86-* | i860-* | i960-* | ia64-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
15 | ip2k-* | iq2000-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
16 | lm32-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
17 - | m32c-* | m32r-* | m32rle-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
18 + | m32c-* | m32r-* | m32rle-* | m6809-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
19 | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
20 | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
21 | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
22 @@ -509,6 +509,10 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
23 basic_machine=arm-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
24 os=-cegcc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
25 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
26 + coco)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
27 + basic_machine=coco
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
28 + os=-none
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
29 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
30 convex-c1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
31 basic_machine=c1-convex
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
32 os=-bsd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
35 +++ gcc-4.6.4/configure 2017-11-28 21:12:11.136911706 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
36 @@ -3439,6 +3439,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
37 m32r-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
38 noconfigdirs="$noconfigdirs ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
39 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
40 + m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
42 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
43 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
45 libgloss_dir=m68hc11
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
46 diff -urN gcc-4.6.4-clean/configure.ac gcc-4.6.4/configure.ac
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
47 --- gcc-4.6.4-clean/configure.ac 2011-11-18 04:45:44.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
48 +++ gcc-4.6.4/configure.ac 2017-11-28 21:12:11.140911685 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
49 @@ -885,6 +885,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
50 m32r-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
51 noconfigdirs="$noconfigdirs ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
52 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
53 + m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
55 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
56 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
58 libgloss_dir=m68hc11
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
59 diff -urN gcc-4.6.4-clean/gcc/calls.c gcc-4.6.4/gcc/calls.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
60 --- gcc-4.6.4-clean/gcc/calls.c 2012-02-09 10:27:25.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
61 +++ gcc-4.6.4/gcc/calls.c 2017-11-28 21:12:11.140911685 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
62 @@ -2561,7 +2561,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
63 call sequence.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
64 Also do the adjustments before a throwing call, otherwise
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
65 exception handling can fail; PR 19225. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
66 - if (pending_stack_adjust >= 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
67 + if (pending_stack_adjust >= 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
68 || (pending_stack_adjust > 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
69 && (flags & ECF_MAY_BE_ALLOCA))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
70 || (pending_stack_adjust > 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
71 diff -urN gcc-4.6.4-clean/gcc/config/m6809/crt0.S gcc-4.6.4/gcc/config/m6809/crt0.S
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
72 --- gcc-4.6.4-clean/gcc/config/m6809/crt0.S 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
74 @@ -0,0 +1,182 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
75 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
77 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
78 +;;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
79 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
80 +;;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
81 +;;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
82 +;;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
83 +;;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
84 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
85 +;;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
88 +;;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
89 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
90 +;;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
91 +;;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
92 +;;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
93 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
94 + /* Declare external for main() */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
95 + .globl _main
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
96 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
97 +/* The startup is heavily dependent on the type of machine and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
98 +OS environment that is available at the start point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
99 +For the most part, the general idea is the same across machines,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
100 +but the implementation is vastly different. This is managed via
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
101 +conditional compiles throughout the startup code for each of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
102 +supported machines. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
103 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
104 +#if defined(TARGET_COCO) /* CoCo memory map */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
105 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
106 +#define COCO_RAMROM_MODE 0xFFDE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
107 +#define COCO_ALLRAM_MODE 0xFFDF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
108 +#define COCO_PAGE1 0xFFD5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
109 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
110 +/* SAM M1 and M0 adjusts the memory size */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
111 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
112 +#define BASIC_WARMSTART_FLAG 0x0071
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
113 +#define BASIC_START 0xA027
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
114 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
115 +#define __STACK_TOP 0x6800
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
116 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
117 +#elif defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
119 +#define __STACK_TOP 0x8000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
120 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
121 +#else /* Simulator (default) memory map */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
122 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
123 +#define SIM_EXIT_REG 0xFF01
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
124 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
125 +#define __STACK_TOP 0xFE00
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
126 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
127 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
128 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
129 + .area .data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
130 + .area .ctors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
131 + .area .dtors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
132 + .area .bss
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
134 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
135 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
136 + ;;; __exit : Exit point from the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
137 + ;;; For simulation, this writes to a special I/O register that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
138 + ;;; the simulator interprets as end-of-program.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
139 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
140 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
141 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
142 + .globl __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
143 +__exit:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
144 +#if defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
145 + ;; Go back to ROM/RAM mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
146 + sta COCO_RAMROM_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
147 + clr BASIC_WARMSTART_FLAG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
148 + jmp BASIC_START
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
149 +#elif defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
150 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
151 +__ex@0 bra __ex@0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
152 +#else /* Simulator */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
153 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
154 + stb SIM_EXIT_REG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
155 + bra __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
156 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
157 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
159 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
160 + ;;; __start : Entry point to the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
161 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
162 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
163 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
164 + .globl __start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
165 +__start:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
166 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
167 +#if defined(HAVE_DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
168 + ;; Initialize the direct page pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
169 + lda #<s_.direct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
170 + tfr a,dp
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
171 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
172 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
173 +#if defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
174 + ;; Turn off interrupts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
175 + orcc #(0x10|0x40)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
176 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
177 + ;; Setup All RAM Mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
178 + sta COCO_ALLRAM_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
179 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
180 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
181 + ;; Initialize the stack. NMI works after this point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
182 + lds #__STACK_TOP - 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
184 + ;; Set up hardware; console device, video etc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
185 +#if defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
186 + lbsr _initialise_hardware
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
187 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
189 + ;; Call any constructors that may be present
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
190 + ldu #s_.ctors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
191 +__ctors_loop:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
192 + ldy ,u++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
193 + cmpy #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
194 + beq __ctors_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
195 + jsr ,y
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
196 + bra __ctors_loop
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
197 +__ctors_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
198 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
199 + ;; Enable interrupts if not on COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
200 +#if !defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
201 + andcc #~(0x10|0x40)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
202 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
203 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
204 + ;; Set up the environment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
205 + ldu #s_.bss
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
206 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
207 + ;; Set up argc/argv arrays
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
208 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
209 + ;; Call the main function. The exit code will
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
210 + ;; be returned in the X register, unless compiled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
211 + ;; with -mdret, in which case it comes back in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
212 + jsr _main
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
213 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
214 + ;; Call any destructors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
215 + ldu #s_.dtors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
216 +__dtors_loop:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
217 + ldy ,u++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
218 + cmpy #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
219 + beq __dtors_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
220 + jsr ,y
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
221 + bra __dtors_loop
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
222 +__dtors_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
223 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
224 + ;; If main returns, then invoke _*exit() to stop the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
225 + ;; The C library doesn't support -mdret yet, so move the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
226 + ;; argument first.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
227 +#if defined(__DRET__)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
228 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
229 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
230 + ;; The newlib exit() is an absolute pig. In calling __call_exitprocs(), it brings with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
231 + ;; it the kitchen sink, notably malloc() and friends which are *enormous*.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
232 + jmp __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
233 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
234 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
235 + ;;; __crt0_vector : Default handler for interrupts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
236 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
237 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
238 +___crt0_vector:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
239 + ;; The default behavior is to simply ignore all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
240 + ;; non-reset interrupts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
241 + rti
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
243 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
244 + ;;; vector : The interrupt vector table
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
245 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
246 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
247 + .area vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
248 +vectors:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
249 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
250 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
251 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
252 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
253 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
254 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
255 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
256 + .word __start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
257 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
258 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
259 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2017-11-28 21:12:11.152911619 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
260 @@ -0,0 +1,511 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
261 +/* libgcc routines for m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
262 + Copyright (C) 2006 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
263 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
264 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
265 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
266 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
267 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
268 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
269 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
270 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
271 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
272 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
273 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
274 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
275 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
276 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
277 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
278 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
279 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
280 +/* As a special exception, if you link this library with other files,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
281 + some of which are compiled with GCC, to produce an executable,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
282 + this library does not by itself cause the resulting executable
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
283 + to be covered by the GNU General Public License.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
284 + This exception does not however invalidate any other reasons why
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
285 + the executable file might be covered by the GNU General Public License. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
288 +#define SIGFPE jmp _abort
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
290 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
291 + ; Shift functions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
292 + ; On input, D is value to be shifted, and X has shift count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
293 + ; Result is also in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
294 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
295 +#ifdef L_ashlhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
296 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
297 + .globl _ashlhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
298 +_ashlhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
299 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
300 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
301 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
302 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
303 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
304 + aslb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
305 + rola
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
306 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
307 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
308 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
309 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
310 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
311 +#ifdef L_ashrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
312 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
313 + .globl _ashrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
314 +_ashrhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
315 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
316 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
317 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
318 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
319 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
320 + asra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
321 + rorb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
322 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
323 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
324 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
325 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
327 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
328 +#ifdef L_lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
329 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
330 + .globl _lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
331 +_lshrhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
332 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
333 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
334 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
335 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
336 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
337 + lsra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
338 + rorb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
339 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
340 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
341 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
342 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
343 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
344 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
345 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
346 +#ifdef L_softregs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
347 + .area direct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
348 + .globl m0, m1, m2, m3, m4, m5, m6, m7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
349 + .globl m8, m9, m10, m11, m12, m13, m14, m15
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
350 +m0: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
351 +m1: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
352 +m2: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
353 +m3: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
354 +m4: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
355 +m5: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
356 +m6: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
357 +m7: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
358 +m8: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
359 +m9: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
360 +m10: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
361 +m11: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
362 +m12: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
363 +m13: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
364 +m14: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
365 +m15: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
366 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
367 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
368 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
369 +#ifdef L_ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
370 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
371 + .globl _ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
372 +_ashlsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
373 + asl 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
374 + rol 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
375 + rol 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
376 + rol ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
377 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
378 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
380 +#ifdef L_ashlsi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
381 + /* X points to the SImode (source/dest)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
382 + B is the count */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
383 +_ashlsi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
384 + pshs u
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
385 + cmpb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
386 + blt try8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
387 + subb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
388 + ; Shift by 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
389 + ldu 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
390 + stu ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
391 +try8:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
392 + cmpb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
393 + blt try_rest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
394 + subb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
395 + ; Shift by 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
397 +try_rest:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
398 + tstb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
399 + beq done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
400 +do_rest:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
401 + ; Shift by 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
402 + asl 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
403 + rol 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
404 + rol 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
405 + rol ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
406 + decb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
407 + bne do_rest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
408 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
409 + puls u,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
410 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
411 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
412 +#ifdef L_ashrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
413 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
414 + .globl _ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
415 +_ashrsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
416 + asr ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
417 + ror 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
418 + ror 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
419 + ror 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
420 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
421 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
423 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
424 +#ifdef L_lshrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
425 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
426 + .globl _lshrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
427 +_lshrsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
428 + lsr ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
429 + ror 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
430 + ror 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
431 + ror 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
432 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
433 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
435 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
436 +#ifdef L_clzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
437 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
438 + .globl ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
439 + ; Input: X = 16-bit unsigned integer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
440 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
441 + ; This function destroys the value in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
442 +___clzhi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
443 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
444 + ; Find the offset of the leftmost '1' bit in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
445 + ; the left half of the word.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
446 + ;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
447 + ; Bits are numbered in the table with 1 meaning the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
448 + ; LSB and 8 meaning the MSB.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
449 + ;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
450 + ; If nonzero, then clz is 8-a.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
451 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
452 + ldx #___clz_tab
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
453 + tfr a,b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
454 + clra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
455 + ldb d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
456 + bne upper_bit_set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
457 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
458 +lower_bit_set:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
459 + ; If the upper byte is zero, then check the lower
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
460 + ; half of the word. Return 16-a.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
461 + puls d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
462 + clra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
463 + ldb d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
464 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
465 + addb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
466 + bra done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
468 +upper_bit_set:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
469 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
470 + addb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
471 + puls x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
472 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
473 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
474 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
475 + puls pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
476 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
477 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
478 +#ifdef L_clzdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
479 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
480 + .globl ___clzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
481 + ; Input: 32-bit unsigned integer is on the stack, just
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
482 + ; above the return address
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
483 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
484 +___clzsi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
485 + ; Check the upper 16-bit word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
486 + ; If it is not zero, then return clzhi2(X).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
487 + ; A branch can be used instead of a call since no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
488 + ; postprocessing is needed. Use long branch form
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
489 + ; though since functions may not be near each other.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
490 + ldx 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
491 + lbne ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
492 + ldx 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
493 + jsr ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
494 + leax 16,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
495 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
496 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
498 +#ifdef L_ctzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
499 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
500 + .globl ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
501 + ; Input: X = 16-bit unsigned integer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
502 + ; Output: X = number of trailing zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
503 + ; F(x) = 15 - clzhi2(X & -x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
504 + ; This function destroys the value in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
505 +___ctzhi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
506 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
507 + coma
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
508 + comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
509 + addd #1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
510 + pshs a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
511 + pshs b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
512 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
513 + andb ,s+
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
514 + anda ,s+
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
515 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
516 + jsr ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
517 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
518 + subd #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
519 + coma
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
520 + comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
521 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
522 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
523 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
525 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
526 +#ifdef L_ctzdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
527 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
528 + .globl ___ctzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
529 + ; Input: 32-bit unsigned integer is on the stack, just
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
530 + ; above the return address
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
531 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
532 +___ctzsi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
533 + ; Check the lower 16-bit word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
534 + ; If it is not zero, then return ctzhi2(X).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
535 + ; A branch can be used instead of a call since no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
536 + ; postprocessing is needed. Use long branch form
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
537 + ; though since functions may not be near each other.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
538 + ldx 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
539 + lbne ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
540 + ldx 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
541 + jsr ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
542 + leax 16,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
543 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
544 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
545 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
546 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
547 +#ifdef L_mulhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
548 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
549 +;;; ___mulhi3 - signed/unsigned multiply
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
550 +;;; Called by GCC to implement 16x16 multiplication
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
551 +;;; Arguments: Two 16-bit values, one in stack, one in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
552 +;;; Result: 16-bit result in X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
553 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
554 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
555 + .globl _mulhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
556 +_mulhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
557 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
558 + lda 5,s ; left msb * right lsb * 256
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
559 + ldb ,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
560 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
561 + tfr b,a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
562 + clrb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
563 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
564 + ldb 1,s ; left lsb * right msb * 256
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
565 + lda 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
566 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
567 + tfr b,a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
568 + clrb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
569 + leax d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
570 + ldb 1,s ; left lsb * right lsb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
571 + lda 5,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
572 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
573 + leax d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
574 + puls d,pc ; kill D to remove initial push
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
575 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
578 +#ifdef L_divhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
579 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
580 +;;; ___divhi3 - signed division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
581 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
582 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
583 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
584 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
585 + .globl _divhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
586 +_divhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
587 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
588 + bne do_div ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
589 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
590 +do_div:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
591 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
592 + jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
593 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
594 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
595 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
596 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
597 +#ifdef L_modhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
598 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
599 +;;; ___modhi3 - signed modulo
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
600 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
601 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
602 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
603 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
604 + .globl _modhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
605 +_modhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
606 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
607 + bne do_mod ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
608 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
609 +do_mod:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
610 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
611 + jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
612 + leas 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
613 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
614 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
615 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
616 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
617 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
618 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
619 +#ifdef L_udivhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
620 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
621 +;;; ___udivhi3 - unsigned division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
622 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
623 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
624 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
625 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
626 + .globl _udivhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
627 +_udivhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
628 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
629 + bne do_udiv ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
630 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
631 +do_udiv:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
632 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
633 + jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
634 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
635 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
636 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
638 +#ifdef L_umodhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
639 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
640 +;;; ___umodhi3 - unsigned modulo
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
641 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
642 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
643 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
644 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
645 + .globl _umodhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
646 +_umodhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
647 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
648 + bne do_umod ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
649 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
650 +do_umod:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
651 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
652 + jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
653 + leas 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
654 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
655 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
656 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
658 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
659 +#ifdef L_euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
660 +; unsigned euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
661 +; calling: (left / right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
662 +; push left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
663 +; ldd right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
664 +; jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
665 +; quotient on the stack (left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
666 +; modulus in d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
667 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
668 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
669 + .globl _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
670 + left=5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
671 + right=1 ; word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
672 + count=0 ; byte
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
673 + CARRY=1 ; alias
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
674 +_euclid:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
675 + leas -3,s ; 2 local variables
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
676 + clr count,s ; prescale divisor
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
677 + inc count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
678 + tsta
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
679 +presc:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
680 + bmi presc_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
681 + inc count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
682 + aslb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
683 + rola
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
684 + bra presc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
685 +presc_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
686 + std right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
687 + ldd left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
688 + clr left,s ; quotient = 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
689 + clr left+1,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
690 +mod1:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
691 + subd right,s ; check subtract
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
692 + bcc mod2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
693 + addd right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
694 + andcc #~CARRY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
695 + bra mod3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
696 +mod2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
697 + orcc #CARRY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
698 +mod3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
699 + rol left+1,s ; roll in carry
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
700 + rol left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
701 + lsr right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
702 + ror right+1,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
703 + dec count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
704 + bne mod1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
705 + leas 3,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
706 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
707 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
708 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
709 +#ifdef L_seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
710 +; signed euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
711 +; calling: (left / right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
712 +; push left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
713 +; ldd right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
714 +; jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
715 +; quotient on the stack (left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
716 +; modulus in d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
717 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
718 + .globl _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
719 + left=6
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
720 + right=2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
721 + quot_sign=1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
722 + mod_sign=0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
723 +_seuclid:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
724 + leas -4,s ; 3 local variables
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
725 + std right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
726 + clr mod_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
727 + clr quot_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
728 + ldd left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
729 + bge mod_abs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
730 + inc mod_sign,s ; sign(mod) = sign(left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
731 + inc quot_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
732 + bsr negd ; abs(left) -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
733 +mod_abs:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
734 + pshs b,a ; push abs(left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
735 + ldd right+2,s ; all references shifted by 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
736 + bge quot_abs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
737 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
738 + bsr negd ; abs(right) -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
739 +quot_abs:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
740 + jsr _euclid ; call (unsigned) euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
741 + std right+2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
742 + puls a,b ; quot -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
743 + tst quot_sign,s ; all references no longer shifted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
744 + beq quot_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
745 + bsr negd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
746 +quot_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
747 + std left,s ; quot -> left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
748 + ldd right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
749 + tst mod_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
750 + beq mod_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
751 + bsr negd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
752 +mod_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
753 + leas 4,s ; destroy stack frame
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
754 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
755 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
756 +negd: ; self-explanatory !
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
757 + nega
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
758 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
759 + sbca #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
760 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
761 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
763 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
764 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
765 +#ifdef L_pending_addsi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
766 +_addsi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
767 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
768 +#endif /* L_pending_addsi3 */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
772 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
773 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
774 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
775 @@ -0,0 +1,3027 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
776 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
777 + FILE: m6809.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
778 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
779 +/* Subroutines for insn-output.c for MC6809.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
780 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
781 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
782 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
783 + Space Astronomy Laboratory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
784 + University of Wisconsin at Madison
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
785 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
786 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
787 + ( msdoerfe@informatik.uni-erlangen.de )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
788 + also added #pragma interrupt (inspired by gcc-6811)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
789 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
790 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
791 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
793 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
794 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
796 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
797 + (brian@oddchange.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
798 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
799 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
801 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
802 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
803 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
804 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
805 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
806 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
808 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
809 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
810 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
811 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
813 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
814 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
815 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
816 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
817 +#include <string.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
818 +#include <time.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
819 +#include <sys/types.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
820 +#include <sys/timeb.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
821 +#include <stdio.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
822 +#include "config.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
823 +#include "system.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
824 +#include "coretypes.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
825 +#include "tm.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
826 +#include "tree.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
827 +#include "rtl.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
828 +#include "tm_p.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
829 +#include "regs.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
830 +#include "flags.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
831 +#include "hard-reg-set.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
832 +#include "real.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
833 +#include "tree.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
834 +#include "insn-config.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
835 +#include "conditions.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
836 +#include "insn-flags.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
837 +#include "output.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
838 +#include "insn-attr.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
839 +#include "function.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
840 +#include "target.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
841 +#include "target-def.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
842 +#include "expr.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
843 +#include "recog.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
844 +#include "cpplib.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
845 +#include "c-family/c-pragma.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
846 +#include "c-family/c-common.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
847 +#include "toplev.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
848 +#include "optabs.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
849 +#include "version.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
850 +#include "df.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
851 +#include "rtlhooks-def.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
852 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
853 +/* macro to return TRUE if length of operand mode is one byte */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
854 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
856 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
857 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
858 +register and not a fake one that is emulated in software. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
859 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
860 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
861 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
862 + Target hooks, moved from target.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
863 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
864 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
865 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
866 +#undef TARGET_ENCODE_SECTION_INFO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
867 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
868 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
869 +#undef TARGET_ASM_FILE_START
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
870 +#define TARGET_ASM_FILE_START m6809_asm_file_start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
871 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
872 +#undef TARGET_ASM_ALIGNED_HI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
873 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
874 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
875 +#undef TARGET_ASM_ALIGNED_SI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
876 +#define TARGET_ASM_ALIGNED_SI_OP NULL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
877 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
878 +#undef TARGET_ASM_UNALIGNED_HI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
879 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
880 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
881 +#undef TARGET_ASM_UNALIGNED_SI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
882 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
883 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
884 +#undef TARGET_RTX_COSTS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
885 +#define TARGET_RTX_COSTS m6809_rtx_costs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
886 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
887 +#undef TARGET_ATTRIBUTE_TABLE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
888 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
889 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
890 +#undef TARGET_INIT_BUILTINS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
891 +#define TARGET_INIT_BUILTINS m6809_init_builtins
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
892 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
893 +#undef TARGET_EXPAND_BUILTIN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
894 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
895 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
896 +#undef TARGET_DEFAULT_TARGET_FLAGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
897 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS | MASK_DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
899 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
900 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
901 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
902 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
903 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
904 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
905 +#undef TARGET_TRAMPOLINE_INIT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
906 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
907 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
908 +#undef TARGET_FRAME_POINTER_REQUIRED
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
909 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
910 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
911 +#undef TARGET_OPTION_OVERRIDE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
912 +#define TARGET_OPTION_OVERRIDE m6809_override_options
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
914 +/* External variables used */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
915 +extern int reload_completed; /* set in toplev.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
916 +extern FILE *asm_out_file;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
918 +static int last_mem_size; /* operand size (bytes) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
919 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
920 +/* True if the section was recently changed and another .area
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
921 + * directive needs to be output before emitting the next label. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
922 +int section_changed = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
923 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
924 +/* Section names. The defaults here are used until an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
925 + * __attribute__((section)) is seen that changes it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
926 +char code_section_op[128] = "\n\t.area\t.text";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
927 +char data_section_op[128] = "\n\t.area\t.data";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
928 +char bss_section_op[128] = "\n\t.area\t.bss";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
929 +const char *code_bank_option = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
930 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
931 +/* TRUE if the direct mode prefix might be valid in this context.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
932 + * This is set by 'print_address' prior to calling output_addr_const,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
933 + * which performs into 'print_direct_prefix' to do the final checks. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
934 +static int check_direct_prefix_flag;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
935 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
936 +/* Nonzero if an address is being printed in a context which does not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
937 + * permit any PIC modifications to the address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
938 +static int pic_ok_for_addr_p = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
939 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
940 +/* Current code page. This supports machines which can do bank
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
941 + * switching to allow for more than 64KB of code/data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
942 +char far_code_page[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
944 +/* Current bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
945 +static char current_bank_name[8] = "-1";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
947 +/* Default bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
948 +static char default_code_bank_name[8] = "-1";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
949 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
950 +/* Direct memory reserved as soft registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
951 +unsigned int m6809_soft_regs = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
953 +/* ABI version */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
954 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
955 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
956 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
957 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
958 + * Called after options have been parsed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
959 + * If overrides have been specified on the command-line, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
960 + * these values are copied into the main storage variables.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
961 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
962 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
963 +m6809_override_options (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
964 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
965 + /* Handle -mfar-code-page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
966 + if (far_code_page_option == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
967 + far_code_page_option = "__default_code_page";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
968 + strcpy (far_code_page, far_code_page_option);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
969 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
970 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
971 + if (code_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
972 + sprintf (code_section_op, "\t.area\t%s", code_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
973 + if (data_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
974 + sprintf (data_section_op, "\t.area\t%s", data_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
975 + if (bss_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
976 + sprintf (bss_section_op, "\t.area\t%s", bss_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
977 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
978 + /* Handle -mcode-bank */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
979 + if (code_bank_option != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
980 + sprintf (default_code_bank_name, "%s", code_bank_option);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
982 + /* Handle -mabi-version or -mno-reg-args */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
983 + if (m6809_abi_version_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
984 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
985 + if (!strcmp (m6809_abi_version_ptr, "stack"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
986 + m6809_abi_version = M6809_ABI_VERSION_STACK;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
987 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
988 + m6809_abi_version = M6809_ABI_VERSION_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
989 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
990 + m6809_abi_version = M6809_ABI_VERSION_BX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
991 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
992 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
993 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
994 + m6809_abi_version = atoi (m6809_abi_version_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
995 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
996 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
997 + /* The older -mno-reg-args option is deprecated, and treated
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
998 + as -mabi=stack. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
999 + if (!TARGET_REG_ARGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1000 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1001 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1002 + m6809_abi_version = M6809_ABI_VERSION_STACK;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1003 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1004 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1005 + /* -fexceptions is unsupported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1006 + flag_exceptions = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1007 + flag_non_call_exceptions = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1008 + flag_unwind_tables = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1009 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1010 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1011 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1012 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1013 + * Output prefix that directs the assembler to use a direct-mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1014 + * instruction if globally enabled, address is a symbol, and symbol
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1015 + * has been marked as in direct page. Also, never do this if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1016 + * using the indirect mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1017 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1018 +print_direct_prefix (FILE * file, rtx addr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1019 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1020 + if (TARGET_DIRECT &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1021 + (GET_CODE (addr) == SYMBOL_REF) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1022 + SYMBOL_REF_FLAG (addr) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1023 + check_direct_prefix_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1024 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1025 + putc ('*', file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1026 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1027 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1028 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1030 +/** Prints an operand (that is not an address) in assembly from RTL. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1031 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1032 +print_operand (FILE * file, rtx x, int code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1033 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1034 + if (REG_P (x)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1035 + /* gcc currently allocates the entire 16-bit 'd' register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1036 + * even when it only needs an 8-bit value. So here it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1037 + * is tricked into printing only the lower 8-bit 'b'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1038 + * register into the assembly output.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1039 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1040 + * Eventually gcc should be modified to allocate a/b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1041 + * independently and this hack can be removed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1042 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1043 + * Occasionally, we may want to do an operation using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1044 + * the 'a' register instead of 'b'; use the 'A' code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1045 + * to specify that.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1046 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1047 + if (code == 'A')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1048 + fputs ("a", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1049 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1050 + fputs ("b", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1051 + else if (M_REG_P (x) && code == 'L')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1052 + /* Soft registers can be treated like memory and accessed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1053 + * at a particular offset. TODO : handle 'W' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1054 + fputs (reg_names[REGNO (x)+1], file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1055 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1056 + fputs (reg_names[REGNO (x)], file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1057 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1059 + else if (MEM_P (x)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1060 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1061 + if (code == 'L') { /* LSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1062 + if (GET_CODE (XEXP (x, 0)) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1063 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1064 + /* Offseting an indirect addressing mode is not supported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1065 + error ("expression too complex for 6809 (offset indirect mode)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1066 + debug_rtx (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1067 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1068 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1069 + x = adjust_address (x, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1070 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1071 + else if (code == 'M') { /* MSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1072 + if (GET_CODE (XEXP (x, 0)) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1073 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1074 + /* Offseting an indirect addressing mode is not supported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1075 + error ("expression too complex for 6809 (offset indirect mode)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1076 + debug_rtx (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1077 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1078 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1079 + x = adjust_address (x, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1080 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1081 + else if (code == 'W') { /* least significant half of 32-bit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1082 + x = adjust_address (x, HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1083 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1084 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1085 + pic_ok_for_addr_p = (code != 'C');
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1086 + output_address (XEXP (x, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1087 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1089 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1090 + union { double d; int i[2]; } u;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1091 + u.i[0] = CONST_DOUBLE_LOW (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1092 + u.i[1] = CONST_DOUBLE_HIGH (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1093 + fprintf (file, "#%#9.9g", u.d);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1094 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1096 + else if (code == 'R') {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1097 + fprintf (file, "%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1098 + m6809_get_regs_printable (INTVAL (x)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1099 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1100 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1101 + else {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1102 + if (code == 'L') { /* LSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1103 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1104 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1105 + else if (code == 'M') { /* MSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1106 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1107 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1108 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1109 + putc ('#', file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1110 + output_addr_const (file, x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1111 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1112 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1113 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1114 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1115 +/** Prints an address operand to assembler from its RTL representation. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1116 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1117 +print_operand_address (FILE *file, rtx addr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1118 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1119 + register rtx base = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1120 + register rtx offset = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1121 + int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1122 + int indirect_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1123 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1124 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1125 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1126 + /*** check for indirect addressing ***/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1127 + if (MEM_P (addr)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1128 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1129 + addr = XEXP (addr, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1130 + if (pic_ok_for_addr_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1131 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1132 + indirect_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1133 + fprintf (file, "[");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1134 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1135 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1136 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1137 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1138 + switch (GET_CODE (addr)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1139 + case REG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1140 + regno = REGNO (addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1141 + fprintf (file, ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1142 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1144 + case PRE_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1145 + regno = REGNO (XEXP (addr, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1146 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1147 + fprintf (file, "%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1148 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1149 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1150 + case POST_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1151 + regno = REGNO (XEXP (addr, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1152 + fprintf (file, ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1153 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1154 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1156 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1157 + base = XEXP (addr, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1158 + if (MEM_P (base))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1159 + base = XEXP (base, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1161 + offset = XEXP (addr, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1162 + if (MEM_P (offset))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1163 + offset = XEXP (offset, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1164 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1165 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1166 + if (!indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1167 + check_direct_prefix_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1168 + output_addr_const (file, base);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1169 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1170 + fputs ("+", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1171 + output_addr_const (file, offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1172 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1173 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1174 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1175 + output_addr_const (file, base);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1176 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1177 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1178 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1179 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1180 + output_addr_const (file, offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1181 + fprintf (file, ",%s", reg_names[REGNO (base)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1182 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1184 + /*** accumulator offset ***/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1185 + else if (((D_REG_P (offset)) || (Q_REG_P (offset)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1186 + && (A_REG_P (base))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1187 + fprintf (file, "%s,%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1188 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1189 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1191 + else if (((D_REG_P (base)) || (Q_REG_P (base)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1192 + && (A_REG_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1193 + fprintf (file, "%s,%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1194 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1195 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1196 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1197 + else if (GET_CODE (base) == PRE_DEC) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1198 + regno = REGNO (XEXP (base, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1199 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1200 + fprintf (file, "%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1201 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1202 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1203 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1204 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1205 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1206 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1207 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1208 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1209 + /* Set this global before calling output_addr_const() */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1210 + if (!indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1211 + check_direct_prefix_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1212 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1213 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1214 + * '#' and follow it by ',pcr' to enable relative addressing. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1215 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1216 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1217 + ASM_OUTPUT_SYMBOL_REF (file, addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1218 + fputs (",pcr", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1219 + pic_ok_for_addr_p = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1220 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1221 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1222 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1223 + output_addr_const (file, addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1224 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1225 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1226 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1227 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1228 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1229 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1230 + if (indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1231 + fprintf (file, "]");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1232 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1233 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1234 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1235 + Update the CC Status
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1236 +---------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1237 + Set the cc_status for the results of an insn whose pattern is EXP.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1238 + We assume that jumps don't affect the condition codes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1239 + All else, clobbers the condition codes, by assumption.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1240 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1241 + We assume that ALL add, minus, etc. instructions effect the condition
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1242 + codes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1243 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1244 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1245 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1246 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1247 + int src_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1248 + int dst_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1249 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1250 + /*** recognize SET insn's ***/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1251 + if (GET_CODE (exp) == SET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1252 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1253 + src_code = GET_CODE (SET_SRC (exp));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1254 + dst_code = GET_CODE (SET_DEST (exp));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1255 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1256 + /* Jumps do not alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1257 + if (SET_DEST (exp) == pc_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1258 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1259 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1260 + /* Moving one register into another register (tfr):
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1261 + Doesn't alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1262 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1263 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1264 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1265 + /* Moving memory into a register (load): Sets cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1266 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1267 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1268 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1269 + cc_status.flags |= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1270 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1271 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1273 + /* Moving register into memory (store): Sets cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1274 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1275 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1276 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1277 + cc_status.flags |= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1278 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1279 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1280 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1281 + /* Function calls clobber the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1282 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1283 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1284 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1285 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1287 + /* Tests and compares set the cc's in predictable ways. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1288 + else if (SET_DEST (exp) == cc0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1289 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1290 + cc_status.flags = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1291 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1292 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1293 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1294 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1295 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1296 + else if (A_REG_P (SET_DEST (exp)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1297 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1298 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1299 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1300 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1301 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1302 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1303 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1304 + /* Certain instructions affect the condition codes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1305 + switch (src_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1306 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1307 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1308 + case MINUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1309 + case NEG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1310 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1311 + /* These instructions set the condition codes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1312 + * and may modify the V bit. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1313 + cc_status.flags |= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1314 + /* FALLTHRU */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1315 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1316 + case AND:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1317 + case IOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1318 + case XOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1319 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1320 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1321 + /* These instructions set the condition codes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1322 + * but cannot overflow (V=0). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1323 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1324 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1325 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1327 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1328 + /* Everything else is clobbered */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1329 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1330 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1331 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1332 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1333 + } /* SET */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1334 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1335 + else if (GET_CODE (exp) == PARALLEL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1336 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1337 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1338 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1339 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1340 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1341 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1342 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1343 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1344 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1345 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1346 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1347 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1348 + /*** default action if we haven't recognized something
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1349 + and returned earlier ***/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1350 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1351 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1352 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1353 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1354 +/** Returns nonzero if the expression EXP can be implemented using one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1355 + * of the 6809's single operand instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1356 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1357 +m6809_single_operand_operator (rtx exp)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1358 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1359 + rtx op1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1360 + HOST_WIDE_INT val;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1361 + enum rtx_code code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1362 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1363 + debug_rtx(exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1364 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1365 + code = GET_CODE (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1367 + /* Unary operators always qualify */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1368 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1369 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1370 + case NEG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1371 + case NOT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1372 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1373 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1374 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1375 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1376 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1377 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1378 + /* Binary operators can only qualify if the second
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1379 + * argument is a CONST_INT of certain value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1380 + op1 = XEXP (exp, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1381 + if (GET_CODE (op1) != CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1382 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1383 + val = INTVAL (op1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1384 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1385 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1386 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1387 + case MINUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1388 + if (val == -1 || val == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1389 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1390 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1392 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1393 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1394 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1395 + case ROTATE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1396 + case ROTATERT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1397 + if (val == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1398 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1399 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1400 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1401 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1402 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1403 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1405 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1406 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1407 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1408 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1409 +/** Return a bitarray of the hard registers which are used by a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1410 +unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1411 +m6809_get_live_regs (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1412 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1413 + unsigned int regs = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1414 + int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1415 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1416 + if (frame_pointer_needed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1417 + regs |= (1 << HARD_FRAME_POINTER_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1418 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1419 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1420 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1421 + regs |= (1 << regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1423 + return regs;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1424 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1426 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1427 +/** Return a printable version of a list of hard registers, suitable
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1428 + * for use in a PSHx or PULx insn. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1429 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1430 +m6809_get_regs_printable (unsigned int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1431 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1432 + static char list[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1433 + char *listp = list;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1434 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1435 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1436 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1437 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1438 + listp += sprintf (listp,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1439 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1440 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1441 + return list;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1442 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1445 +/** Return the total number of bytes covered by a set of hard registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1446 +unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1447 +m6809_get_regs_size (unsigned int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1448 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1449 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1450 + unsigned int size = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1452 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1453 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1454 + /* Only count register in the given register set */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1455 + if (REGSET_CONTAINS_P (regno, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1456 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1457 + /* Add 1 or 2 byte, depending on the size of the register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1458 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1459 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1460 + size += 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1461 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1462 + size++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1463 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1464 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1465 + return size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1466 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1468 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1469 +/* Given the target of call instruction in X,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1470 + * return the tree node that contains the function declaration for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1471 + * that target.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1472 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1473 + * If the rtx or the tree do not appear valid for any reason,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1474 + * then return NULL_TREE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1475 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1476 +static tree call_target_decl (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1477 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1478 + tree decl;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1479 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1480 + /* Make sure the target is really a MEM. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1481 + if (!x || !MEM_P (x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1482 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1484 + /* Make sure the address is a SYMBOL_REF. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1485 + x = XEXP (x, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1486 + if (!x || (GET_CODE (x) != SYMBOL_REF))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1487 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1488 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1489 + /* Get the declaration of this symbol */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1490 + decl = SYMBOL_REF_DECL (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1491 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1492 + /* Make sure the declaration is really a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1493 + if (!decl || (TREE_CODE(decl) != FUNCTION_DECL))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1494 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1495 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1496 + return decl;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1497 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1498 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1499 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1500 +/** Returns nonzero if a function, whose declaration is in DECL,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1501 + * was declared to have the attribute given by ATTR_NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1502 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1503 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1504 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1505 + tree type;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1507 + type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1508 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1509 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1510 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1511 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1512 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1513 +/** Returns nonzero if the current function was declared to have the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1514 + * attribute given by ATTR_NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1515 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1516 +m6809_current_function_has_type_attr_p (const char *attr_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1517 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1518 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1519 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1520 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1521 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1522 +/** Return nonzero if the current function has no return value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1523 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1524 +m6809_current_function_is_void (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1525 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1526 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1527 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1528 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1530 +/** Get the value of a declaration's 'bank', as set by the 'bank'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1531 + * attribute. If no bank was declared, it returns NULL by default. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1532 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1533 +m6809_get_decl_bank (tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1534 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1535 + tree attr;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1536 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1537 + /* Lookup the 'bank' attribute. If it does not exist, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1538 + * return NULL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1539 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1540 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1541 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1542 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1543 + /* Make sure it has a value assigned to it */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1544 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1545 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1546 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1547 + warning (WARNING_OPT "banked function did not declare a bank number");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1548 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1549 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1550 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1551 + /* Return the bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1552 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1553 + return TREE_STRING_POINTER (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1554 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1555 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1557 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1558 +m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1559 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1560 + /* Check the function declaration for special properties.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1561 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1562 + * If the function was declare with __attribute__((bank)), output
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1563 + * assembler definitions to force the function to go into the named
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1564 + * bank.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1565 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1566 + const char *bank_name = m6809_get_decl_bank (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1567 + if (bank_name != NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1568 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1569 + fprintf (asm_out_file, "\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1571 + /* Declare __self_bank as a local assembler value that denotes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1572 + * which bank the current function is in. This is required only
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1573 + * when the bank actually changes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1574 + if (strcmp (bank_name, current_bank_name))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1575 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1576 + fprintf (asm_out_file, "__self_bank\t.equ\t%s\n", bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1577 + strcpy (current_bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1578 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1579 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1580 + /* Declare a global assembler value that denotes which bank the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1581 + * named function is in. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1582 + fprintf (asm_out_file, "__%s_bank\t.gblequ\t%s\n", name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1584 + /* Force the current function into a new area */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1585 + fprintf (asm_out_file, "\t.bank\tbank_%s (FSFX=_%s)\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1586 + bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1587 + fprintf (asm_out_file, "\t.area\tbank_%s (BANK=bank_%s)\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1588 + bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1589 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1590 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1591 + /* Emit the label for the function's name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1592 + ASM_OUTPUT_LABEL (asm_out_file, name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1593 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1594 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1595 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1596 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1597 + * Handle pragmas. Note that only the last branch pragma seen in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1598 + * source has any affect on code generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1599 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1600 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1601 +#define BAD_PRAGMA(msgid, arg) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1602 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1603 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1604 +static int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1605 +pragma_parse (const char *name, tree *sect)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1606 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1607 + tree s, x;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1609 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1610 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1611 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1612 + if (pragma_lex (&s) != CPP_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1613 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1615 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1616 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1617 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1618 + if (pragma_lex (&x) != CPP_EOF)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1619 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1620 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1621 + *sect = s;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1622 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1623 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1625 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1626 +/*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1627 + * Handle #pragma section.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1628 + * This is deprecated; code should use __attribute__(section("name"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1629 + * instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1630 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1631 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1632 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1633 + tree sect;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1634 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1635 + if (pragma_parse ("section", &sect))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1636 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1638 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1639 + ".area\t%s", TREE_STRING_POINTER (sect));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1640 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1641 + ".area\t%s", TREE_STRING_POINTER (sect));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1642 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1643 + /* Mark a flag that sections have changed. Upon emitting another
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1644 + * declaration, the new .area directive will be written. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1645 + section_changed++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1646 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1647 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1649 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1650 + * Check a `double' value for validity for a particular machine mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1651 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1652 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1653 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1654 +check_float_value (enum machine_mode mode, double *d, int overflow)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1655 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1656 + if (mode == SFmode) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1657 + if (*d > 1.7014117331926443e+38) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1658 + error("magnitude of constant too large for `float'");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1659 + *d = 1.7014117331926443e+38;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1660 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1661 + else if (*d < -1.7014117331926443e+38) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1662 + error("magnitude of constant too large for `float'");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1663 + *d = -1.7014117331926443e+38;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1664 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1665 + else if ((*d > 0) && (*d < 2.9387358770557188e-39)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1666 + warning(WARNING_OPT "`float' constant truncated to zero");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1667 + *d = 0.0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1668 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1669 + else if ((*d < 0) && (*d > -2.9387358770557188e-39)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1670 + warning(WARNING_OPT "`float' constant truncated to zero");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1671 + *d = 0.0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1672 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1673 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1674 + return overflow;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1675 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1676 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1677 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1678 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1679 +/** Declare that the target supports named output sections. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1680 +bool m6809_have_named_section = (bool)1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1681 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1683 +/** Write to the assembler file a directive to place
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1684 + * subsequent objects to a different section in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1685 + * object file. ASxxxx uses the "area" directive for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1686 + * this purpose. It does not however support generalized
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1687 + * alignment, and can only place items on an odd/even
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1688 + * boundary. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1689 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1690 +m6809_asm_named_section (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1691 + const char *name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1692 + unsigned int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1693 + tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1694 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1695 + fprintf (asm_out_file, "\n\t.area\t%s\n", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1696 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1697 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1698 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1699 +enum reg_class
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1700 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1701 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1702 + /* Check cases based on type code of rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1703 + switch (GET_CODE(x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1704 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1705 + /*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1706 + * Observation, 2015-07-19, William Astle
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1707 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1708 + * The original comparison for range for 16 bits was wrong, adding 0x80
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1709 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1710 + * a more straight forward range comparison - excessive cleverness isn't
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1711 + * really required here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1712 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1713 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1714 + /* Constants that can fit into 1 byte should be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1715 + * loaded into a Q_REGS reg */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1716 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1717 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1718 + (regclass > A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1719 + return Q_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1720 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1721 + /* 16-bit constants should be loaded into A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1722 + * when possible. gcc may already require A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1723 + * or D_REGS for certain types of instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1724 + * This case applies mostly to simple copy operations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1725 + * to/from memory when any register will do, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1726 + * it's best to avoid using D register since it is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1727 + * needed for other things.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1728 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1729 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1730 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1731 + (regclass > A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1732 + return A_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1733 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1734 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1735 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1736 + case LABEL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1737 + /* Addresses should always be loaded into A_REGS */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1738 + if (regclass >= A_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1739 + return (A_REGS);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1740 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1741 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1742 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1743 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1744 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1745 + /* Check cases based on mode of rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1746 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1747 + return Q_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1748 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1749 + /* Default: return whatever class reload suggested */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1750 + return regclass;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1751 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1752 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1753 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1754 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1755 + * Check a new declaration for the "section" attribute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1756 + * If it exists, and the target section is "direct", then mark
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1757 + * the declaration (in RTL) to indicate special treatment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1758 + * When the variable is referenced later, we test for this flag
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1759 + * and can emit special asm text to force the assembler to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1760 + * short instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1761 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1762 +static void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1763 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1764 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1765 + tree attr, id;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1766 + const char *name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1767 + const char *decl_name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1768 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1769 + /* We only care about variable declarations, not functions */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1770 + if (TREE_CODE (decl) != VAR_DECL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1771 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1772 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1773 + /* For debugging purposes only; grab the decl's name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1774 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1775 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1776 + /* Give up if the decl doesn't have any RTL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1777 + if (!DECL_RTL (decl))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1778 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1779 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1780 + /* See if it has a section attribute */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1781 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1782 + if (!attr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1783 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1784 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1785 + /* See if the section attribute has a value */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1786 + id = TREE_VALUE (TREE_VALUE (attr));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1787 + if (!id)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1788 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1789 + name = TREE_STRING_POINTER (id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1790 + if (!name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1791 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1793 + /* See if the value is 'direct'. If so, mark it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1794 + if (!strcmp (name, "direct"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1795 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1796 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1797 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1798 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1799 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1800 + * Output code to perform a complex shift, for which there is no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1801 + * direct support in the instruction set.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1802 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1803 + * shift1 is an instruction pattern for performing a 1-bit modification.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1804 + * This code wraps that pattern in a loop to perform the shift N times,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1805 + * where N is given by the address register in operands[2].
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1806 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1807 + * To support 16-bit shifts, shift2 can also be provided: it is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1808 + * a second instruction to be included in the loop. 8-bit shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1809 + * insns will pass NULL here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1810 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1811 + * The insn length of shift1/shift2 is assumed to be 1 byte,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1812 + * which works in all of the cases it is needed so far.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1813 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1814 +static void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1815 +m6809_gen_register_shift (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1816 + rtx *operands,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1817 + const char *shift1,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1818 + const char *shift2 )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1819 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1820 + char beq_pattern[32];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1821 + char bra_pattern[32];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1822 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1823 + int shiftlen = (shift1 && shift2) ? 2 : 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1824 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1825 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1826 + int beq_offset = 2 + shiftlen + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1827 + int bra_offset = shiftlen + 2 + cmplen + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1828 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1829 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1830 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1831 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1832 + output_asm_insn ("pshs\t%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1833 + output_asm_insn ("lea%2\t-1,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1834 + output_asm_insn ("cmp%2\t#-1", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1835 + output_asm_insn (beq_pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1836 + if (shift1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1837 + output_asm_insn (shift1, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1838 + if (shift2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1839 + output_asm_insn (shift2, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1840 + output_asm_insn (bra_pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1841 + output_asm_insn ("puls\t%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1842 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1843 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1844 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1845 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1846 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1847 +gen_rtx_const_high (rtx r)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1848 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1849 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1850 + signed char s = (signed char)v;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1851 + return gen_int_mode (s, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1852 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1854 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1855 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1856 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1857 +gen_rtx_const_low (rtx r)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1858 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1859 + unsigned char v = INTVAL (r) & 0xFF;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1860 + signed char s = (signed char)v;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1861 + return gen_int_mode (s, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1862 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1863 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1864 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1865 +/** Generate RTL to allocate/free bytes on the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1866 + * CODE is given as MINUS when allocating and PLUS when freeing,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1867 + * to match the semantics of a downward-growing stack. SIZE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1868 + * is always given as a positive integer.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1869 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1870 +static rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1871 +gen_rtx_stack_adjust (enum rtx_code code, int size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1872 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1873 + if (size <= 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1874 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1875 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1876 + if (code == MINUS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1877 + size = -size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1878 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1879 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1880 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1881 + gen_int_mode (size, HImode)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1882 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1883 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1884 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1885 +/** Generate RTL to push/pop a set of registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1886 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1887 +gen_rtx_register_pushpop (int op, int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1888 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1889 + rtx nregs = gen_int_mode (regs, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1890 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1891 + if (op == UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1892 + return gen_register_push (nregs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1893 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1894 + return gen_register_pop (nregs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1895 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1896 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1897 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1898 +/* Given a register set REGS, where the bit positions correspond to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1899 + * hard register numbers, return another bitmask that represents the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1900 + * order in which those registers would be pushed/popped.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1901 + * Registers that are pushed first have higher bit positions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1902 + * The pop order is just the reverse bitmask.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1903 + * These values are the same as the bitmasks actually used in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1904 + * machine instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1905 +static unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1906 +register_push_order (int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1907 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1908 + unsigned int order = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1909 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1910 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1911 + order |= 0x80;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1912 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1913 + order |= 0x40;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1914 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1915 + order |= 0x20;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1916 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1917 + order |= 0x10;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1918 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1919 + order |= 0x8;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1920 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1921 + order |= 0x4;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1922 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1923 + order |= 0x2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1924 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1925 + order |= 0x1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1926 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1927 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1928 + order |= (0x4 | 0x2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1929 + return order;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1930 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1931 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1932 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1933 +/* Returns nonzero if two consecutive push or pop instructions,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1934 + * as determined by the OP, can be merged into a single instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1935 + * The first instruction in the sequence pushes/pops REGS1; the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1936 + * second applies to REGS2.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1937 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1938 + * If true, the resulting instruction can use (regs1 | regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1939 + * safely.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1940 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1941 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1942 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1943 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1944 + /* Register sets must not overlap */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1945 + if (regs1 & regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1946 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1947 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1948 + if (op == UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1949 + return (register_push_order (regs1) > register_push_order (regs2));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1950 + else if (op == UNSPEC_POP_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1951 + return (register_push_order (regs1) < register_push_order (regs2));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1952 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1953 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1954 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1955 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1956 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1957 +/** Emit instructions for making a library call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1958 + * MODE is the mode of the operation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1959 + * NAME is the library function name.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1960 + * OPERANDS is the rtx array provided by the recognizer.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1961 + * COUNT is the number of input operands to the call, and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1962 + * should be 1 for a unary op or 2 for a binary op.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1963 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1964 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1965 +emit_libcall_insns (enum machine_mode mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1966 + const char *name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1967 + rtx *operands,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1968 + int count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1969 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1970 + /* Generate an rtx for the call target. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1971 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1972 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1973 + /* Emit the library call. Slightly different based
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1974 + on the number of operands */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1975 + if (count == 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1976 + emit_library_call (symbol, LCT_NORMAL, mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1977 + 2, operands[1], mode, operands[2], mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1978 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1979 + emit_library_call (symbol, LCT_NORMAL, mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1980 + 1, operands[1], mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1982 + /* The library call is expected to put its result
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1983 + in LIBCALL_VALUE, so need to copy it into the destination. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1984 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1985 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1986 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1988 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1989 + * A small helper function that writes out a single branch instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1990 + * OPCODE is the short name, e.g. "ble".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1991 + * OPERANDS has the rtx for the target label.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1992 + * LONG_P is nonzero if we are emitting a long branch, and need to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1993 + * prepend an 'l' to the opcode name.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1994 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1995 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1996 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1997 + char pattern[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1998 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1999 + output_asm_insn (pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2000 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2001 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2002 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2003 + * Output a branch/conditional branch insn of the proper
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2004 + * length. code identifies the particular branch insn.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2005 + * operands holds the branch target in operands[0].
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2006 + * length says what the size of this insn should be.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2007 + * Based on the length, we know whether it should be a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2008 + * short (8-bit) or long (16-bit) branch.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2009 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2010 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2011 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2012 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2013 + int shortform;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2014 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2015 + /* Decide whether or not to use the long or short form.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2016 + * Calculate automatically based on insn lengths. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2017 + shortform = ((length > 2) ? 0 : 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2018 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2019 + /* Determine the proper opcode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2020 + * Use the short (2-byte) opcode if the target is within
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2021 + * reach. Otherwise, use jmp (3-byte opcode), unless
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2022 + * compiling with -fpic, in which case we'll need to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2023 + * lbra (4-byte opcode).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2024 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2025 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2026 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2027 + case LABEL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2028 + if (shortform)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2029 + output_branch_insn1 ("bra", operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2030 + else if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2031 + output_branch_insn1 ("bra", operands, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2032 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2033 + output_branch_insn1 ("jmp", operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2034 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2035 + case EQ:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2036 + output_branch_insn1 ("beq", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2037 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2038 + case NE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2039 + output_branch_insn1 ("bne", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2040 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2041 + case GT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2042 + output_branch_insn1 ("bgt", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2043 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2044 + case GTU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2045 + output_branch_insn1 ("bhi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2046 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2047 + case LT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2049 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2050 + output_branch_insn1 ("bmi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2051 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2052 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2053 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2054 + output_branch_insn1 ("blt", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2055 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2056 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2057 + case LTU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2058 + output_branch_insn1 ("blo", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2059 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2060 + case GE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2062 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2063 + output_branch_insn1 ("bpl", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2064 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2065 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2066 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2067 + output_branch_insn1 ("bge", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2068 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2069 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2070 + case GEU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2071 + output_branch_insn1 ("bhs", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2072 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2073 + case LE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2074 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2075 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2076 + output_branch_insn1 ("bmi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2077 + output_branch_insn1 ("beq", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2078 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2079 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2080 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2081 + output_branch_insn1 ("ble", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2082 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2083 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2084 + case LEU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2085 + output_branch_insn1 ("bls", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2086 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2087 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2088 + abort();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2089 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2090 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2091 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2092 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2093 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2094 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2095 +/** Returns the "cost" of an RTL expression.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2096 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2097 + * the cost of a fast 8-bit arithmetic instruction that operates on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2098 + * a reg/mem or a reg/immed. Other costs are relative to this.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2099 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2100 + * Notes:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2101 + * - The cost of a REG is always zero; this cannot be changed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2102 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2103 + * - On the 6809, instructions on two registers will nearly always take
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2104 + * longer than those that operate on a register and a constant/memory,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2105 + * because of the way the instruction set is structured.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2106 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2107 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2108 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2109 +static bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2110 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2111 + int *total, bool speed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2112 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2113 + int has_const_arg = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2114 + HOST_WIDE_INT const_arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2115 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2116 + int nargs = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2117 + rtx op0, op1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2119 + /* Data RTXs return a value between 0-3, depending on complexity.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2120 + All of these are less than COSTS_N_INSNS(1). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2121 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2122 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2123 + case CC0:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2124 + case PC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2125 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2126 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2127 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2128 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2129 + if (X == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2130 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2131 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2132 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2133 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2134 + else if ((unsigned) INTVAL (X) < 077)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2135 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2136 + *total = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2137 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2138 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2139 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2140 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2141 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2142 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2143 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2145 + case LABEL_REF: case CONST:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2146 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2147 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2148 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2149 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2150 + /* References to memory are made cheaper if they have
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2151 + * the 'direct' mode attribute set */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2152 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2153 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2155 + case MEM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2156 + /* See what form of address was given */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2157 + X = XEXP (X, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2158 + switch (GET_CODE (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2159 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2160 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2161 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2162 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2164 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2165 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2166 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2167 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2168 + case MEM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2169 + *total = COSTS_N_INSNS (1) + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2170 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2171 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2172 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2173 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2174 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2175 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2176 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2177 + case CONST_DOUBLE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2178 + /* TODO : not sure about this value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2179 + *total = 3;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2180 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2181 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2182 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2183 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2184 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2185 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2186 + /* Decode the rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2187 + mode = GET_MODE (X);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2188 + op0 = XEXP (X, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2189 + op1 = XEXP (X, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2191 + /* We don't implement anything in SImode or greater. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2192 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2193 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2194 + *total = COSTS_N_INSNS (100);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2195 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2196 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2197 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2198 + /* Figure out if there is a constant argument, and its value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2199 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2200 + || GET_RTX_CLASS (code) == RTX_COMM_ARITH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2201 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2202 + nargs = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2203 + if (GET_CODE (op1) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2204 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2205 + has_const_arg = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2206 + const_arg = INTVAL (op1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2207 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2208 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2209 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2210 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2211 + * Ignore soft registers, since these are really in memory.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2212 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2213 + * TODO: penalize HImode reg/reg for most operations, except maybe
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2214 + * additions since index registers allow for that.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2215 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2216 + * TODO: shifts by constant N do not always require N instructions;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2217 + * some of this can be done cheaper. The number of actual insns can be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2218 + * predicted well.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2219 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2220 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2221 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2222 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2223 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2224 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2225 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2226 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2227 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2228 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2229 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2230 + the estimated number of actual machine instructions needed to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2231 + perform the computation. Some small adjustments are made since
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2232 + some "instructions" are more complex than others. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2233 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2234 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2235 + case PLUS: case MINUS: case COMPARE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2236 + /* 6809 handles these natively in QImode, and in HImode as long
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2237 + * as operand 1 is constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2238 + if (mode == QImode || (mode == HImode && has_const_arg))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2239 + *total += COSTS_N_INSNS (1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2240 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2241 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2243 + /* -1, 0, and 1 can be done using inherent instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2244 + * for PLUS and MINUS in QImode, so don't add extra cost. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2245 + if (has_const_arg
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2246 + && (mode == QImode || mode == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2247 + && (const_arg == -1 || const_arg == 0 || const_arg == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2248 + && (code == PLUS || code == MINUS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2249 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2250 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2251 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2252 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2254 + case AND: case IOR: case XOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2255 + case NEG: case NOT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2256 + /* 6809 handles these natively in QImode, but requires
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2257 + * splitting in HImode. Treat these as 2 insns. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2258 + *total += COSTS_N_INSNS (1) * GET_MODE_SIZE (mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2259 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2260 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2261 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2262 + case ROTATE: case ROTATERT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2263 + /* 6809 can do shift/rotates of a QImode by a constant in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2264 + * 1 insn times the shift count, or in HImode by a constant
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2265 + * by splitting to 2 insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2266 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2267 + * Shift by a nonconstant will take significantly longer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2268 + * than any of these. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2269 + if (has_const_arg)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2270 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2271 + const_arg %= (GET_MODE_SIZE (mode) * 8);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2272 + if (const_arg == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2273 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2274 + *total += COSTS_N_INSNS(1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2275 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2276 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2277 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2278 + /* HImode shifts greater than 8 get optimized due
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2279 + * to register transfer from b to a; this cuts down the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2280 + * cost. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2281 + if (const_arg >= 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2282 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2283 + *total += COSTS_N_INSNS (1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2284 + const_arg -= 8;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2285 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2287 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2288 + if in HImode, minus the cost of the constant itself which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2289 + will be added in later but really shouldn't be. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2290 + *total += COSTS_N_INSNS (const_arg) * GET_MODE_SIZE (mode) - 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2291 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2292 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2293 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2294 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2295 + /* It may take up to 7 iterations of about 6-7 real
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2296 + * instructions, so make this expensive. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2297 + *total += COSTS_N_INSNS (50);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2298 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2299 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2300 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2301 + case MULT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2302 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2303 + /* Multiply is cheap when both arguments are 8-bits. They
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2304 + could be QImode, or QImode widened to HImode, or a constant
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2305 + that fits into 8-bits. As long as both operands qualify,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2306 + we can use a single mul instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2307 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2308 + Assume that fast multiply can be used, and change this if we find
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2309 + differently... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2310 + int ok_for_qihi3 = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2311 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2312 + /* Check the first operand */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2313 + switch (GET_MODE (op0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2314 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2315 + case QImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2316 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2317 + case HImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2318 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2319 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2320 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2321 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2322 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2323 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2324 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2325 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2326 + /* Likewise, check the second operand. This is where constants may appear. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2327 + switch (GET_MODE (op1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2328 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2329 + case QImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2330 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2331 + case HImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2332 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2333 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2334 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2335 + case VOIDmode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2336 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2337 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2338 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2339 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2340 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2341 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2342 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2343 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2344 + /* Fast multiply takes about 4 times as many cycles as a normal
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2345 + arithmetic operation. Otherwise, it will take an expensive libcall. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2346 + if (ok_for_qihi3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2347 + *total += COSTS_N_INSNS (4);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2348 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2349 + *total = COSTS_N_INSNS (50);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2350 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2351 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2352 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2353 + case DIV: case UDIV: case MOD: case UMOD:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2354 + /* These all require more expensive libcalls. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2355 + *total += COSTS_N_INSNS (100);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2356 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2357 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2358 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2360 + /* These can normally be done with autoincrement, etc., so
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2361 + * don't charge for them. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2362 + case PRE_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2363 + case PRE_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2364 + case POST_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2365 + case POST_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2366 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2367 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2368 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2369 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2370 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2371 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2372 + /* Always return false, and let the caller gather the costs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2373 + * of the operands */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2374 + return false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2375 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2376 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2377 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2378 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2379 +m6809_handle_fntype_attribute (tree *node, tree name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2380 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2381 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2382 + bool *no_add_attrs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2383 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2384 + if (TREE_CODE (*node) != FUNCTION_TYPE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2385 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2386 + warning (WARNING_OPT "'%s' only valid for functions",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2387 + IDENTIFIER_POINTER (name));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2388 + *no_add_attrs = TRUE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2389 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2390 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2391 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2392 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2393 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2395 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2396 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2397 + tree name ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2398 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2399 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2400 + bool *no_add_attrs ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2401 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2402 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2403 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2405 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2406 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2407 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2408 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2409 + tree name ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2410 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2411 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2412 + bool *no_add_attrs ATTRIBUTE_UNUSED )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2413 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2414 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2415 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2418 +/* Table of valid machine attributes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2419 +const struct attribute_spec m6809_attribute_table[] = { /*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2420 +{ name, min, max, decl, type, fntype, handler } */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2421 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2422 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2423 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2424 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2425 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2426 +{ NULL, 0, 0, false, true, false, NULL },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2427 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2428 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2429 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2430 +/** Initialize builtin routines for the 6809. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2431 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2432 +m6809_init_builtins (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2433 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2434 + /* Create type trees for each function signature required.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2435 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2436 + * void_ftype_void = void f(void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2437 + * void_ftype_uchar = void f(unsigned char)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2438 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2439 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2440 + tree void_ftype_void =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2441 + build_function_type (void_type_node, void_list_node);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2442 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2443 + tree void_ftype_uchar =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2444 + build_function_type (void_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2445 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2446 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2447 + tree uchar_ftype_uchar2 =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2448 + build_function_type (unsigned_char_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2449 + tree_cons (NULL_TREE, unsigned_char_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2450 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2452 + /* Register each builtin function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2453 + add_builtin_function ("__builtin_swi", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2454 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2455 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2456 + add_builtin_function ("__builtin_swi2", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2457 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2459 + add_builtin_function ("__builtin_swi3", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2460 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2461 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2462 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2463 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2464 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2465 + add_builtin_function ("__builtin_sync", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2466 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2468 + add_builtin_function ("__builtin_nop", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2469 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2470 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2471 + add_builtin_function ("__builtin_blockage", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2472 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2473 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2474 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2475 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2476 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2477 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2478 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2479 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2480 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2481 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2482 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2484 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2485 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2486 + * refers to the operands of a builtin call, return an rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2487 + * that represents the nth operand, as denoted by OPNUM, which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2488 + * is a zero-based integer. MODE gives the expected mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2489 + * of the operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2490 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2491 + * This rtx is suitable for use in the emitted RTL for the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2492 + * builtin instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2493 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2494 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2495 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2496 + tree arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2497 + rtx r;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2498 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2499 + arg = CALL_EXPR_ARG (arglist, opnum);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2500 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2501 + /* Convert the tree to RTL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2502 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2503 + if (r == NULL_RTX)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2504 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2505 + return r;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2506 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2507 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2508 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2509 +/** Expand a builtin that was registered in init_builtins into
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2510 + * RTL. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2511 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2512 +m6809_expand_builtin (tree exp,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2513 + rtx target,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2514 + rtx subtarget ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2515 + enum machine_mode mode ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2516 + int ignore ATTRIBUTE_UNUSED )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2517 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2518 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2519 + tree arglist = exp;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2520 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2521 + rtx r0, r1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2522 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2523 + switch (fcode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2524 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2525 + case M6809_SWI:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2526 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2527 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2528 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2530 + case M6809_SWI2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2531 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2532 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2533 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2534 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2535 + case M6809_SWI3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2536 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2537 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2538 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2539 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2540 + case M6809_CWAI:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2541 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2542 + emit_insn (target = gen_m6809_cwai (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2543 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2544 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2545 + case M6809_SYNC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2546 + emit_insn (target = gen_m6809_sync ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2547 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2548 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2549 + case M6809_ADD_CARRY:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2550 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2551 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2552 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2553 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2554 + emit_insn (gen_addqi3_carry (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2555 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2557 + case M6809_SUB_CARRY:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2558 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2559 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2560 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2561 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2562 + emit_insn (gen_subqi3_carry (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2563 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2564 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2565 + case M6809_NOP:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2566 + emit_insn (target = gen_nop ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2567 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2568 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2569 + case M6809_BLOCKAGE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2570 + emit_insn (target = gen_blockage ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2571 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2572 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2573 + case M6809_ADD_DECIMAL:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2574 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2575 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2576 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2577 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2578 + emit_insn (gen_addqi3_decimal (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2579 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2580 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2581 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2582 + warning (WARNING_OPT "unknown builtin expansion ignored");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2583 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2584 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2585 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2586 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2587 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2588 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2589 +/* Returns nonzero if 'x' represents a function that was declared
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2590 + * as __noreturn__. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2591 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2592 +noreturn_functionp (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2593 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2594 + tree decl = call_target_decl (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2595 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2596 + if (decl == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2597 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2598 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2599 + return TREE_THIS_VOLATILE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2600 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2602 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2603 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2604 +far_function_type_p (tree type)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2605 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2606 + tree attr;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2607 + const char *page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2609 + /* Return whether or not this decl has the far attribute */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2610 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2611 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2612 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2613 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2614 + /* If it is far, check for a value */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2615 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2616 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2617 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2618 + warning (WARNING_OPT "far code page not specified, using local value");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2619 + return far_code_page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2620 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2621 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2622 + /* We have a TREE_LIST of attribute values, get the first one.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2623 + * It should be an INTEGER_CST. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2624 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2625 + page = TREE_STRING_POINTER (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2626 + return page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2627 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2629 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2630 +/* For a far function, returns the identifier that states which page
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2631 + * it resides in. Otherwise, returns NULL for ordinary functions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2632 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2633 +far_functionp (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2634 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2635 + tree decl, decl_type;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2636 + const char *page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2638 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2639 + decl = call_target_decl (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2640 + if (decl == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2641 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2642 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2643 + /* See if the function has the new 'banked' attribute. These
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2644 + * are numeric instead of text */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2645 + page = m6809_get_decl_bank (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2646 + if (page)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2647 + return page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2649 + /* No, lookup the type of the function and see if the type
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2650 + * specifies far or not. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2651 + decl_type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2652 + if (decl_type == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2653 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2654 + return far_function_type_p (decl_type);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2655 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2656 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2658 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2659 +/** Outputs the assembly language for a far call. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2660 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2661 +output_far_call_insn (rtx *operands, int has_return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2662 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2663 + static char page_data[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2664 + const char *called_page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2665 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2666 + /* The logic is the same for functions whether or not there
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2667 + * is a return value. Skip over the return value in this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2668 + * case, so that the call location is always operands[0]. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2669 + if (has_return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2670 + operands++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2671 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2672 + /* Get the name of the page being called */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2673 + called_page = far_functionp (operands[0]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2674 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2675 +#if 0 /* TODO : broken logic */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2676 + /* See if the called page name is a 'bank' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2677 + if (isdigit (*called_page))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2678 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2679 + /* New style banking */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2680 + if (!strcmp (called_page, current_bank_name))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2681 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2682 + /* Same page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2683 + output_asm_insn ("jsr\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2684 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2685 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2686 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2687 + /* Different page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2688 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2689 + output_asm_insn ("\t.dw\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2690 + sprintf (page_data, "\t.db\t%s", called_page);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2691 + output_asm_insn (page_data, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2692 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2693 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2694 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2695 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2696 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2697 + /* Are we calling a different page than we are running in? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2698 + if (!strcmp (called_page, far_code_page))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2699 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2700 + /* Same page : no need to execute a far call */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2701 + if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2702 + output_asm_insn ("lbsr\t%C0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2703 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2704 + output_asm_insn ("jsr\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2705 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2706 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2707 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2708 + /* Different page : need to emit far call thunk */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2709 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2710 + /* First output a call to the thunk for making far calls. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2711 + if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2712 + output_asm_insn ("lbsr\t__far_call_handler", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2713 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2714 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2715 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2716 + /* Now output the name of the call site */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2717 + output_asm_insn ("\t.dw\t%C0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2718 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2719 + /* Finally output the page number */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2720 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2721 + output_asm_insn (page_data, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2722 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2723 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2724 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2725 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2726 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2727 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2728 + tree fntype,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2729 + rtx libname ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2730 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2731 + cum = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2732 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2733 + /* For far functions, the current implementation does not allow for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2734 + * stack parameters. So note whenever the called function is far
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2735 + * and in a different page than the current one; such a function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2736 + * should give an error if a stack parameter is generated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2737 + if (fntype)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2738 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2739 + const char *called_page = far_function_type_p (fntype);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2740 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2741 + cum |= CUM_STACK_INVALID;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2742 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2743 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2744 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2745 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2746 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2747 + /* has variable arguments, cannot use registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2748 + cum |= (CUM_X_MASK | CUM_B_MASK | CUM_STACK_ONLY);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2749 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2750 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2751 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2752 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2753 + /* cannot use registers ; only use the stack */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2754 + cum |= (CUM_STACK_ONLY | CUM_X_MASK | CUM_B_MASK);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2755 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2756 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2757 + return cum;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2758 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2760 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2761 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2762 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2763 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2764 + if (*cump & CUM_STACK_INVALID)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2765 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2766 + *cump &= ~CUM_STACK_INVALID;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2767 + error ("far function needs stack, will not work");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2768 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2769 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2770 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2772 +void m6809_asm_trampoline_template(FILE *f)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2773 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2774 + fprintf(f, "ldy #0000\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2775 + fprintf(f, "jmp 0x0000\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2776 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2778 +/*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2779 + * Trampoline output:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2780 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2781 + * ldu #&cxt 4 bytes --LDY- ?? ??
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2782 + * jmp fnaddr 3 bytes JMP ?? ??
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2783 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2784 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2785 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2786 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2787 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2788 + /* TODO - optimize by generating the entire trampoline code here,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2789 + * and removing the template altogether, since there are only two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2790 + * bytes there that matter. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2791 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2792 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2793 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2794 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2796 +/** Echo the version of the compiler and the name of the source file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2797 + * at the beginning of each assembler output file. asm_out_file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2798 + * is a global FILE * pointing to the output stream. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2799 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2800 +m6809_asm_file_start (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2801 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2802 + const char *module_name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2803 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2804 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2805 + __DATE__, __TIME__);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2806 + fprintf (asm_out_file, ";;; %s\n", version_string);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2808 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2809 + fprintf (asm_out_file, ";;; %s\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2810 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2811 + if (TARGET_EXPERIMENT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2812 + fprintf (asm_out_file, ";;; -mexperiment\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2813 + if (TARGET_WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2814 + fprintf (asm_out_file, ";;; -mwpc\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2815 + if (TARGET_6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2816 + fprintf (asm_out_file, ";;; -m6309\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2818 + /* Print the name of the module, which is taken as the base name
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2819 + * of the input file.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2820 + * See the 'User-Defined Symbols' section of the assembler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2821 + * documentation for the rules on valid symbols.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2822 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2823 + module_name = lbasename (main_input_filename);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2824 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2825 + fprintf (asm_out_file, "\t.module\t");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2827 + if (*module_name >= '0' && *module_name <= '9')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2828 + fprintf (asm_out_file, "_");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2829 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2830 + while (*module_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2831 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2832 + if ((*module_name >= '0' && *module_name <= '9')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2833 + || (*module_name >= 'A' && *module_name <= 'Z')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2834 + || (*module_name >= 'a' && *module_name <= 'z')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2835 + || *module_name == '$'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2836 + || *module_name == '.'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2837 + || *module_name == '_')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2838 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2839 + fprintf (asm_out_file, "%c", *module_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2840 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2841 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2842 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2843 + fprintf (asm_out_file, "_");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2844 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2845 + module_name++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2846 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2848 + fprintf (asm_out_file, "\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2849 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2850 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2851 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2852 +/** Returns true if prologue/epilogue code is required for the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2853 + * current function being compiled.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2854 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2855 + * This is just the inverse of whether the function is declared as
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2856 + * 'naked'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2857 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2858 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2859 +prologue_epilogue_required (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2860 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2861 + return !m6809_current_function_has_type_attr_p ("naked")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2862 + && !m6809_current_function_has_type_attr_p ("noreturn");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2863 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2864 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2865 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2866 +/** Expand RTL for function entry */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2867 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2868 +emit_prologue_insns (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2869 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2870 + rtx insn;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2871 + unsigned int live_regs = m6809_get_live_regs ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2872 + unsigned int frame_size = get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2873 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2874 + /* Save all registers used, including the frame pointer */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2875 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2876 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2877 + insn = emit_insn (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2878 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2879 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2880 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2881 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2882 + /* Allocate space for local variables */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2883 + if (frame_size != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2884 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2885 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2886 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2887 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2888 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2889 + /* Set the frame pointer if it is needed */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2890 + if (frame_pointer_needed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2891 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2892 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2893 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2894 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2895 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2896 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2897 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2898 +/** Expand RTL for function exit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2899 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2900 +emit_epilogue_insns (bool sibcall_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2901 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2902 + unsigned int live_regs = m6809_get_live_regs ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2903 + unsigned int frame_size = get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2904 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2905 + if (frame_size != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2906 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2907 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2908 + if (sibcall_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2909 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2910 + if (live_regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2911 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2912 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2913 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2914 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2915 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2916 + emit_insn (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2917 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT | live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2918 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2919 + if (m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2920 + emit_jump_insn (gen_return_rti ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2921 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2922 + emit_jump_insn (gen_return_rts ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2923 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2924 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2925 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2926 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2927 +/** Predefine some preprocessor names according to the currently
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2928 + * selected compiler options */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2929 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2930 +m6809_cpu_cpp_builtins (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2931 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2932 + if (TARGET_6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2933 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2934 + builtin_define_std ("__M6309__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2935 + builtin_define_std ("__m6309__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2936 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2937 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2938 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2939 + builtin_define_std ("__M6809__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2940 + builtin_define_std ("__m6809__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2941 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2942 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2943 + if (TARGET_BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2944 + builtin_define_std ("__int8__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2945 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2946 + builtin_define_std ("__int16__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2947 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2948 + switch (m6809_abi_version)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2949 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2950 + case M6809_ABI_VERSION_STACK:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2951 + builtin_define_std ("__regargs__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2952 + builtin_define_std ("__ABI_STACK__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2953 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2954 + case M6809_ABI_VERSION_REGS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2955 + builtin_define_std ("__ABI_REGS__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2956 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2957 + case M6809_ABI_VERSION_BX:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2958 + builtin_define_std ("__ABI_BX__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2959 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2960 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2961 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2962 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2964 + if (TARGET_WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2965 + builtin_define_std ("__WPC__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2966 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2967 + if (TARGET_DRET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2968 + builtin_define_std ("__DRET__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2969 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2970 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2971 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2972 +#define MAX_ASM_ASCII_STRING 48
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2973 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2974 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2975 +m6809_output_ascii (FILE *fp, const char *str, unsigned long size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2976 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2977 + unsigned long i;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2978 + bool use_ascii = true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2979 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2980 + /* If the size is too large, then break this up into multiple
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2981 + outputs. The assembler can only output roughly 48 bytes at a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2982 + time. Note that if there are lots of escape sequences in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2983 + the string, this may fail. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2984 + if (size > MAX_ASM_ASCII_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2985 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2986 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2987 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2988 + size - MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2989 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2990 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2992 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2993 + for (i = 0; i < size; i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2994 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2995 + int c = str[i] & 0377;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2996 + if (c >= 0x80)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2997 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2998 + use_ascii = false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2999 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3000 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3001 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3002 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3003 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3004 + fprintf (fp, "\t.ascii \"");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3005 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3006 + for (i = 0; i < size; i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3007 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3008 + int c = str[i] & 0377;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3009 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3010 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3011 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3012 + /* Just output the plain character if it is printable,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3013 + otherwise output the escape code for the character.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3014 + The assembler recognizes the same C-style octal escape sequences,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3015 + except that it only supports 7-bit codes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3016 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3017 + putc (c, fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3018 + else switch (c)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3019 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3020 + case '\n':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3021 +#ifndef TARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3022 + fputs ("\\n", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3023 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3024 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3025 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3026 + case '\r':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3027 + fputs ("\\r", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3028 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3029 + case '\t':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3030 + fputs ("\\t", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3031 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3032 + case '\f':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3033 + fputs ("\\f", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3034 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3035 + case 0:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3036 + fputs ("\\0", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3037 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3038 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3039 + fprintf (fp, "\\%03o", c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3040 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3041 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3042 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3043 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3044 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3045 + fprintf (fp, "\t.byte\t0x%02X\n", c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3046 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3047 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3048 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3049 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3050 + fprintf (fp, "\"\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3051 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3052 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3053 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3054 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3055 +m6809_output_quoted_string (FILE *asm_file, const char *string)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3056 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3057 + char c;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3059 + if (strlen (string) > MAX_ASM_ASCII_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3060 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3061 + /* The string length is too large. We'll have to truncate it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3062 + This is only called from debugging functions, so it's usually
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3063 + not critical. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3064 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3065 + char truncated_string[MAX_ASM_ASCII_STRING+1];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3067 + /* Copy as many characters as we can. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3068 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3069 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3070 + string = truncated_string;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3071 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3072 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3073 + /* Copied from toplev.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3074 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3075 + putc ('\"', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3076 + while ((c = *string++) != 0) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3077 + if (ISPRINT (c)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3078 + if (c == '\"' || c == '\\')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3079 + putc ('\\', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3080 + putc (c, asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3081 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3082 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3083 + fprintf (asm_file, "\\%03o", (unsigned char) c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3084 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3085 + putc ('\"', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3086 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3089 +/** Output the assembly code for a shift instruction where the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3090 + * shift count is not constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3091 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3092 +m6809_output_shift_insn (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3093 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3094 + struct shift_opcode *op;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3096 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3097 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3099 + if (optimize_size && GET_MODE (operands[0]) == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3100 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3101 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3102 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3103 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3104 + output_asm_insn ("jsr\t_ashlhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3105 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3106 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3107 + output_asm_insn ("jsr\t_ashrhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3108 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3109 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3110 + output_asm_insn ("jsr\t_lshrhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3111 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3112 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3113 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3114 + else if (GET_MODE (operands[0]) == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3115 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3116 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3117 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3118 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3119 + m6809_gen_register_shift (operands, "aslb", "rola");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3120 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3121 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3122 + m6809_gen_register_shift (operands, "asra", "rorb");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3123 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3124 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3125 + m6809_gen_register_shift (operands, "lsra", "rorb");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3126 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3127 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3128 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3129 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3130 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3131 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3132 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3133 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3134 + m6809_gen_register_shift (operands, "aslb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3135 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3136 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3137 + m6809_gen_register_shift (operands, "asrb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3138 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3139 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3140 + m6809_gen_register_shift (operands, "lsrb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3141 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3142 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3143 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3144 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3145 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3146 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3147 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3148 +m6809_emit_move_insn (rtx dst, rtx src)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3149 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3150 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3151 + if (ACC_A_REG_P (dst))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3152 + emit_insn (gen_rtx_USE (VOIDmode, dst));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3153 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3156 +/** Split a complex shift instruction into multiple CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3157 + * shift instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3158 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3159 +m6809_split_shift (enum rtx_code code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3160 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3161 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3162 + int count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3164 + mode = GET_MODE (operands[0]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3165 + count = INTVAL (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3166 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3167 + /* Handle a shift count outside the range of 0 .. N-1, where
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3168 + * N is the mode size in bits. We normalize the count, and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3169 + * for negative counts we also invert the direction of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3170 + * shift. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3171 + if ((count < 0) || (count >= 8 * GET_MODE_SIZE (mode)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3172 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3173 + if (count < 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3174 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3175 + count = -count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3176 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3177 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3178 + count %= (8 * GET_MODE_SIZE (mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3179 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3180 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3181 + gen_rtx_CONST_INT (VOIDmode, count)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3182 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3184 + /* Handle shift by zero explicitly as a no-op. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3185 + if (count == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3186 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3187 + emit_insn (gen_nop ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3188 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3189 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3191 + /* Decompose the shift by a constant N > 8 into two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3192 + * shifts, first by 8 and then by N-8.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3193 + * This "speeds up" the process for large shifts that would be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3194 + * handled below, but allows for some optimization.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3195 + * In some cases shift by 8 can be implemented fast. If an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3196 + * instruction to shift by 8 is defined, it will be used here;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3197 + * otherwise it will be further decomposed as below. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3198 + if (mode == HImode && count > 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3199 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3200 + rtx output = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3201 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3202 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3203 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3204 + gen_rtx_CONST_INT (VOIDmode, 8)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3205 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3206 + /* Unsigned shifts always produce a zero in either the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3207 + * upper or lower half of the output; then, that part
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3208 + * does not need to be shifted anymore. We modify the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3209 + * output and the subsequent instructions to operate in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3210 + * QImode only on the relevant part. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3211 + if (REG_P (output))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3212 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3213 + if (code == ASHIFT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3214 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3215 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3216 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3217 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3218 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3219 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3220 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3221 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3222 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3223 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3224 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3225 + m6809_emit_move_insn (output,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3226 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3227 + gen_rtx_CONST_INT (VOIDmode, count-8)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3228 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3229 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3230 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3231 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3232 + * (near to the maximum of 8) as a rotate and mask. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3233 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3234 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3235 + unsigned int mask;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3236 + unsigned int was_signed = (code == ASHIFTRT);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3237 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3238 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3239 + if (code == ROTATE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3240 + mask = (count == 6) ? 0x03 : 0x01;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3241 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3242 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3243 + count = 9 - count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3244 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3245 + do {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3246 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3247 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3248 + } while (--count != 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3249 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3250 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3251 + gen_rtx_fmt_ee (AND, QImode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3252 + gen_rtx_CONST_INT (VOIDmode, mask)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3254 + if (was_signed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3255 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3256 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3257 + if (ACC_A_REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3258 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3259 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3260 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3261 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3262 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3263 + /* Decompose the shift by any constant N > 1 into a sequence
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3264 + * of N shifts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3265 + * This is done recursively, by creating a shift by 1 and a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3266 + * shift by N-1, as long as N>1. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3267 + if (count > 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3268 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3269 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3270 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3271 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3272 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3273 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3274 + gen_rtx_CONST_INT (VOIDmode, count-1)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3275 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3276 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3277 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3278 + /* Decompose the single shift of a 16-bit quantity into two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3279 + * CPU instructions, one for each 8-bit half.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3280 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3281 + if (mode == HImode && count == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3282 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3283 + rtx first, second;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3284 + enum rtx_code rotate_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3285 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3286 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3288 + /* Split the operand into two 8-bit entities.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3289 + * FIRST is the one that will get shifted via a regular CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3290 + * instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3291 + * SECOND is the one that will have the result of the first shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3292 + * rotated in.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3293 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3294 + * We initialize first and second as if we are doing a left shift,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3295 + * then swap the operands if it's a right shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3296 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3297 + if (REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3298 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3299 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3300 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3301 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3302 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3303 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3304 + first = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3305 + second = adjust_address (operands[0], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3306 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3307 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3308 + if (rotate_code == ROTATERT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3309 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3310 + rtx tmp; tmp = first; first = second; second = tmp;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3311 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3312 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3313 + /* Decompose into a shift and a rotate instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3314 + m6809_emit_move_insn (first,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3315 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3316 + m6809_emit_move_insn (second,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3317 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3318 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3319 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3320 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3321 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3323 +/** Adjust register usage based on compile-time flags. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3324 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3325 +m6809_conditional_register_usage (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3326 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3327 + unsigned int soft_regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3328 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3329 +#ifdef CONFIG_SOFT_REGS_ALWAYS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3330 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3331 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3332 + if (!m6809_soft_reg_count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3333 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3334 + m6809_soft_regs = atoi (m6809_soft_reg_count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3335 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3336 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3337 + if (m6809_soft_regs == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3338 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3339 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3340 + if (m6809_soft_regs > NUM_M_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3341 + m6809_soft_regs = NUM_M_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3342 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3343 + /* Registers are marked FIXED by default. Free up if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3344 + the user wishes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3345 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3346 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3347 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3348 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3349 + /* Mark the softregs as call-clobbered, so that they need
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3350 + * not be saved/restored on function entry/exit. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3351 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3352 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3353 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3354 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3355 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3356 +/** Return a RTX representing how to return a value from a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3357 + VALTYPE gives the type of the value, FUNC identifies the function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3358 + itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3360 + In general, we only care about the width of the result. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3361 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3362 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3363 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3364 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3365 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3367 + /* Get the mode (i.e. width) of the result. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3368 + mode = TYPE_MODE (valtype);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3369 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3370 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3371 + regno = HARD_Z_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3372 + else if (mode == QImode || (TARGET_DRET && mode == HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3373 + regno = HARD_D_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3374 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3375 + regno = HARD_X_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3376 + return gen_rtx_REG (mode, regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3377 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3378 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3380 +/** Return 1 if REGNO is possibly needed to return the result
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3381 +of a function, 0 otherwise. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3382 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3383 +m6809_function_value_regno_p (unsigned int regno)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3384 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3385 + if (regno == HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3386 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3387 + else if ((TARGET_BYTE_INT || TARGET_DRET) && regno == HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3388 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3389 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3390 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3391 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3392 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3393 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3395 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3396 +#ifdef TRACE_PEEPHOLE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3397 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3398 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3399 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3400 + if (stage == PEEP_END)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3401 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3402 + printf ("%s: peephole %d pattern and predicate matched\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3403 + main_input_filename, peephole_id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3404 + fflush (stdout);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3405 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3406 + else if (stage == PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3407 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3408 + printf ("%s: peephole %d? at least pattern matched\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3409 + main_input_filename, peephole_id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3410 + fflush (stdout);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3411 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3412 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3413 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3414 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3415 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3416 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3417 + unsigned int stage ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3418 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3419 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3420 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3421 +#endif /* TRACE_PEEPHOLE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3423 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3424 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3425 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3426 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3427 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3428 + /* Soft registers, as they are just memory, can really hold
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3429 + values of any type. However we restrict them to values of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3430 + size HImode or QImode to prevent exhausting them for larger
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3431 + values.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3432 + Word values cannot be placed into the first soft register,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3433 + as it is the low byte that is being placed there, which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3434 + corrupts the (non-soft) register before it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3435 + if (M_REGNO_P (regno))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3436 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3437 + switch (GET_MODE_SIZE (mode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3438 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3439 + case 1:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3440 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3441 + case 2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3442 + return regno != SOFT_M0_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3443 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3444 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3445 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3446 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3447 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3448 + /* VOIDmode can be stored anywhere */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3449 + else if (mode == VOIDmode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3450 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3452 + /* Zero is a reserved register, but problems occur if we don't
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3453 + say yes here??? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3454 + else if (regno == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3455 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3456 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3457 + /* For other registers, return true only if the requested size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3458 + exactly matches the hardware size. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3459 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3460 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3461 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3462 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3463 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3464 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3465 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3466 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3468 +/* exp is the call expression. DECL is the called function,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3469 + * or NULL for an indirect call */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3470 +bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3471 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3472 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3473 + tree type, arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3474 + const char *name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3475 + bool result = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3476 + int argcount = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3477 + int step = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3478 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3479 + /* If there is no DECL, it is an indirect call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3480 + * Never optimize this??? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3481 + if (decl == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3482 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3484 + /* Never allow an interrupt handler to be optimized this way. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3485 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3486 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3487 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3488 + /* Skip sibcall if the type can't be found for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3489 + * some reason */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3490 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3491 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3492 + type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3493 + if (type == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3494 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3495 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3496 + /* Skip sibcall if the target is a far function */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3497 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3498 + if (far_function_type_p (type) != NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3499 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3500 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3501 + /* Skip sibcall if the called function's arguments are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3502 + * variable */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3503 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3504 + if (TYPE_ARG_TYPES (type) == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3505 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3507 + /* Allow sibcalls in other cases. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3508 + result = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3509 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3510 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3511 + return result;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3512 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3513 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3514 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3515 +/** Emit code for the 'casesi' pattern.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3516 + * This pattern is only used in 8-bit mode, and can be disabled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3517 + * with -mold-case there as well. The rationale for this is to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3518 + * do a better job than the simpler but well-tested 'tablejump'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3519 + * method.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3520 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3521 + * For small jumptables, where the switch expression is an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3522 + * 8-bit value, the lookup can be done more efficiently
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3523 + * using the "B,X" style index mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3524 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3525 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3526 + rtx table_label, rtx default_label)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3527 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3528 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3529 + rtx scaled;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3530 + rtx table_in_reg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3531 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3532 + /* expr.c has to be patched so that it does not promote
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3533 + * the expression to SImode, but rather to HImode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3534 + * Fail now if that isn't the case. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3535 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3536 + error ("try_casesi promotion bug");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3537 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3538 + /* Determine whether or not we are going to work primarily in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3539 + * QImode or HImode. This depends on the size of the index
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3540 + * into the lookup table. QImode can only be used when the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3541 + * index is less than 0x40, since it will be doubled but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3542 + * must remain unsigned. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3543 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3544 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3545 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3546 + mode = HImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3548 + /* Convert to QImode if necessary */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3549 + if (mode == QImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3550 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3551 + index = gen_lowpart_general (mode, index);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3552 + lower_bound = gen_lowpart_general (mode, lower_bound);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3553 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3554 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3555 + /* Translate from case value to table index by subtraction */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3556 + if (lower_bound != const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3557 + index = expand_binop (mode, sub_optab, index, lower_bound,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3558 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3559 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3560 + /* Emit compare-and-jump to test for index out-of-range */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3561 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3562 + default_label);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3563 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3564 + /* Put the table address is in a register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3565 + table_in_reg = gen_reg_rtx (Pmode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3566 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3567 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3568 + /* Emit table lookup and jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3569 + if (mode == QImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3570 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3571 + /* Scale the index */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3572 + scaled = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3573 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3574 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3575 + /* Emit the jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3576 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3577 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3578 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3579 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3580 + /* Scale the index */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3581 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3582 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3583 + /* Emit the jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3584 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3585 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3586 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3587 + /* Copied from expr.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3588 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3589 + emit_barrier ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3590 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3591 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3592 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3593 +/** Output the assembly code for a 32-bit add/subtract. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3594 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3595 +m6809_output_addsi3 (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3596 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3597 + rtx xoperands[8];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3598 + rtx dst = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3599 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3600 + /* Prepare the operands by splitting each SImode into two HImodes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3601 + that can be operated independently. The high word of operand 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3602 + is further divided into two QImode components for use with 'adc'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3603 + style instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3604 + xoperands[7] = operands[3];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3605 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3606 + xoperands[0] = adjust_address (dst, HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3607 + xoperands[3] = adjust_address (dst, HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3609 +#if 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3610 + xoperands[2] = adjust_address (operands[1], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3611 + xoperands[6] = adjust_address (operands[1], HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3613 + /* Operand 2 may be a MEM or a CONST_INT */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3614 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3615 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3616 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3617 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3618 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3619 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3620 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3621 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3622 + xoperands[1] = adjust_address (operands[2], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3623 + xoperands[4] = adjust_address (operands[2], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3624 + xoperands[5] = adjust_address (operands[2], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3625 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3626 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3627 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3629 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3630 + xoperands[1] = adjust_address (operands[1], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3631 + xoperands[4] = adjust_address (operands[1], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3632 + xoperands[5] = adjust_address (operands[1], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3633 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3634 + /* Operand 2 may be a MEM or a CONST_INT */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3635 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3636 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3637 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3638 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3639 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3640 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3641 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3642 + xoperands[2] = adjust_address (operands[2], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3643 + xoperands[6] = adjust_address (operands[2], HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3644 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3645 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3646 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3647 + /* Output the assembly code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3648 + if (rtx_code == PLUS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3649 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3650 + output_asm_insn ("ld%7\t%2", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3651 + output_asm_insn ("add%7\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3652 + output_asm_insn ("st%7\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3653 + output_asm_insn ("ld%7\t%6", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3654 + output_asm_insn ("adcb\t%5", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3655 + output_asm_insn ("adca\t%4", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3656 + output_asm_insn ("st%7\t%3", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3657 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3658 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3659 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3660 + output_asm_insn ("ld%7\t%2", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3661 + output_asm_insn ("sub%7\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3662 + output_asm_insn ("st%7\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3663 + output_asm_insn ("ld%7\t%6", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3664 + output_asm_insn ("sbcb\t%5", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3665 + output_asm_insn ("sbca\t%4", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3666 + output_asm_insn ("st%7\t%3", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3667 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3668 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3669 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3671 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3672 +/** Output the assembly code for a 32-bit shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3673 +Operands 0 and 1 must be the same rtx, forced by a matching
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3674 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3675 +"d" in case a temporary reg is needed. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3676 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3677 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3678 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3679 + unsigned int count = INTVAL (operands[2]) % 32;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3680 + unsigned int size = 4; /* sizeof (SImode) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3681 + int s;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3682 + rtx xoperands[4];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3683 + int op;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3684 + int start, end, step;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3685 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3686 + /* Initialize */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3687 + if (rtx_code == ASHIFT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3688 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3689 + start = size-1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3690 + end = -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3691 + step = -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3692 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3693 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3694 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3695 + start = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3696 + end = size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3697 + step = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3698 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3699 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3700 + xoperands[2] = operands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3701 + xoperands[3] = operands[3];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3703 + if (count <= 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3704 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3705 + if (rtx_code == ROTATE || rtx_code == ROTATERT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3706 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3707 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3708 + /* Extract bit shifts over 16 bits by HImode moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3709 + if (count >= 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3710 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3711 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3712 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3713 + /* Extract bit shifts over 8 bits by QImode moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3714 + if (count >= 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3715 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3716 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3718 + /* Iterate over the number of bits to be shifted. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3719 + while (count > 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3720 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3721 + /* Each bit to be shifted requires 1 proper bit shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3722 + and 3 rotates. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3723 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3724 + /* First, do the arithmetic/logical shift. Left shifts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3725 + start from the LSB; right shifts start from the MSB. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3726 + xoperands[0] = adjust_address (operands[0], QImode, start);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3727 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3728 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3729 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3730 + output_asm_insn ("asl\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3731 + start--;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3732 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3733 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3734 + output_asm_insn ("asr\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3735 + start++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3736 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3737 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3738 + output_asm_insn ("lsr\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3739 + start++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3740 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3741 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3742 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3743 + /* Next, rotate the other bytes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3744 + for (s = start; s != end; s += step)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3745 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3746 + xoperands[0] = adjust_address (operands[0], QImode, s);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3747 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3748 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3749 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3750 + output_asm_insn ("rol\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3751 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3752 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3753 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3754 + output_asm_insn ("ror\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3755 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3756 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3757 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3758 + count--;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3759 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3760 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3761 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3763 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3764 +power_of_two_p (unsigned int n)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3765 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3766 + return (n & (n-1)) == 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3767 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3768 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3770 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3771 +m6809_can_eliminate (int from, int to)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3772 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3773 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3774 + return !frame_pointer_needed;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3775 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3776 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3779 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3780 +m6809_initial_elimination_offset (int from, int to)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3781 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3782 + switch (from)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3783 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3784 + case ARG_POINTER_REGNUM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3785 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3786 + case FRAME_POINTER_REGNUM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3787 + return get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3788 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3789 + gcc_unreachable ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3790 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3791 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3794 +bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3795 +m6809_frame_pointer_required (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3796 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3797 + return false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3798 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3799 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3801 +/* Defines the target-specific hooks structure. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3802 +struct gcc_target targetm = TARGET_INITIALIZER;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3803 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3804 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3805 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3806 @@ -0,0 +1,1336 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3807 +/* Definitions of target machine for GNU compiler. MC6809 version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3808 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3809 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3810 + Space Astronomy Laboratory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3811 + University of Wisconsin at Madison
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3813 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3814 + ( msdoerfe@informatik.uni-erlangen.de )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3815 + also added #pragma interrupt (inspired by gcc-6811)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3816 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3817 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3818 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3819 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3820 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3821 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3822 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3823 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3824 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3825 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3826 + changes for gcc-3.1.1 by ???
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3828 + further changes for gcc-3.1.1 and beyond by Brian Dominy
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3829 + (brian@oddchange.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3830 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3831 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3832 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3833 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3834 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3835 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3836 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3837 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3838 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3839 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3840 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3841 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3842 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3843 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3844 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3845 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3846 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3847 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3848 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3849 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3850 +/* Helper macros for creating strings with macros */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3851 +#define C_STRING(x) C_STR(x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3852 +#define C_STR(x) #x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3854 +/* Certain parts of GCC include host-side includes, which is bad.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3855 + * Some things that get pulled in need to be undone.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3856 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3857 +#undef HAVE_GAS_HIDDEN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3859 +/* Names to predefine in the preprocessor for this target machine. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3860 +/*#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3861 +#define TARGET_CPU_CPP_BUILTINS() do \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3862 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3863 + if (TARGET_6309) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3864 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3865 + builtin_define_std ("__M6309__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3866 + builtin_define_std ("__m6309__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3867 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3868 + else \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3869 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3870 + builtin_define_std ("__M6809__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3871 + builtin_define_std ("__m6809__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3872 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3873 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3874 + if (TARGET_BYTE_INT) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3875 + builtin_define_std ("__int8__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3876 + else \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3877 + builtin_define_std ("__int16__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3878 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3879 + switch (m6809_abi_version) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3880 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3881 + case M6809_ABI_VERSION_STACK: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3882 + builtin_define_std ("__regargs__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3883 + builtin_define_std ("__ABI_STACK__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3884 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3885 + case M6809_ABI_VERSION_REGS: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3886 + builtin_define_std ("__ABI_REGS__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3887 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3888 + case M6809_ABI_VERSION_BX: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3889 + builtin_define_std ("__ABI_BX__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3890 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3891 + default: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3892 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3893 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3894 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3895 + if (TARGET_WPC) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3896 + builtin_define_std ("__WPC__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3897 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3898 + if (TARGET_DRET) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3899 + builtin_define_std ("__DRET__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3900 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3901 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3902 +/* As an embedded target, we have no libc. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3903 +#ifndef inhibit_libc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3904 +#define inhibit_libc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3905 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3906 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3907 +/* Print subsidiary information on the compiler version in use. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3908 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3909 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3910 +/* Run-time compilation parameters selecting different hardware subsets. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3911 +/*extern int target_flags; */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3912 +extern short *reg_renumber; /* def in local_alloc.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3914 +/* Runtime current values of section names */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3915 +extern int section_changed;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3916 +extern char code_section_op[], data_section_op[], bss_section_op[];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3918 +#define WARNING_OPT 0,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3919 +/*extern const char *m6809_abi_version_ptr; */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3920 +extern unsigned int m6809_soft_regs;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3921 +extern unsigned int m6809_abi_version;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3922 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3923 +/* ABI versions */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3924 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3925 +#define M6809_ABI_VERSION_STACK 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3926 +#define M6809_ABI_VERSION_REGS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3927 +#define M6809_ABI_VERSION_BX 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3928 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3929 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3930 +/* Allow $ in identifiers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3931 +#define DOLLARS_IN_IDENTIFIERS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3932 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3933 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3934 + Target machine storage layout
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3935 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3936 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3937 +/* Define this if most significant bit is lowest numbered
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3938 + in instructions that operate on numbered bit-fields. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3939 +#define BITS_BIG_ENDIAN 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3940 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3941 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3942 +#define BYTES_BIG_ENDIAN 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3944 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3945 +#define WORDS_BIG_ENDIAN 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3947 +/* Number of bits in an addressible storage unit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3948 +#define BITS_PER_UNIT 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3949 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3950 +/* Width in bits of a "word", or the contents of a machine register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3951 + * Although the 6809 has a few byte registers, define this to 16-bits
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3952 + * since this is the natural size of most registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3953 +#define BITS_PER_WORD 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3954 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3955 +/* Width of a word, in units (bytes). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3956 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3957 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3958 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3959 +#define POINTER_SIZE 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3960 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3961 +/* Allocation boundary (bits) for storing pointers in memory. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3962 +#define POINTER_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3964 +/* Allocation boundary (bits) for storing arguments in argument list. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3965 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3966 +#define PARM_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3967 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3968 +/* Boundary (bits) on which stack pointer should be aligned. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3969 +#define STACK_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3970 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3971 +/* Allocation boundary (bits) for the code of a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3972 +#define FUNCTION_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3973 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3974 +/* Alignment of field after `int : 0' in a structure. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3975 +#define EMPTY_FIELD_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3976 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3977 +/* Every structure's size must be a multiple of this. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3978 +#define STRUCTURE_SIZE_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3979 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3980 +/* Largest mode size to use when putting an object, including
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3981 + * a structure, into a register. By limiting this to 16, no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3982 + * 32-bit objects will ever be allocated to a pair of hard
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3983 + * registers. This is a good thing, since there aren't that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3984 + * many of them. 32-bit objects are only needed for floats
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3985 + * and "long long"s. Larger values have been tried and did not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3986 + * work. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3987 +#define MAX_FIXED_MODE_SIZE 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3988 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3989 +/* No data type wants to be aligned rounder than this. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3990 +#define BIGGEST_ALIGNMENT 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3992 +/* Define this if move instructions will actually fail to work
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3993 + when given unaligned data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3994 +#define STRICT_ALIGNMENT 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3996 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3997 + Standard register usage.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3998 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3999 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4000 +/* Register values as bitmasks.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4001 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4002 + * register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4003 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4004 +#define D_REGBIT (1 << HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4005 +#define X_REGBIT (1 << HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4006 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4007 +#define U_REGBIT (1 << HARD_U_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4008 +#define S_REGBIT (1 << HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4009 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4010 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4011 +#define A_REGBIT (1 << HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4012 +#define B_REGBIT (1 << HARD_B_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4013 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4014 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4015 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4016 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4017 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4018 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4019 +/* Macros for dealing with set of registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4020 + * A register set is just a bitwise-OR of all the register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4021 + * bitmask values. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4022 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4023 +/* Which registers can hold 8-bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4024 +#define BYTE_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4025 + (Z_REGBIT | A_REGBIT | D_REGBIT | CC_REGBIT | DP_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4026 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4027 +/* Which registers can hold 16-bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4028 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4029 +#define WORD_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4030 + (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT | SOFT_FP_REGBIT | SOFT_AP_REGBIT | RSVD1_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4031 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4032 +/* Returns nonzero if a given REGNO is in the REGSET. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4033 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4034 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4035 +/* Defines related to the number of soft registers supported.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4036 + * The actual number used may be less depending on -msoft-reg-count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4037 + * If you change one of these, you should change them all. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4038 +#define NUM_M_REGS 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4039 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4040 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4041 +#define HARD_M_REGNUMS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4042 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4043 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4044 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4045 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4046 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4047 +/* Number of actual hardware registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4048 + The hardware registers are assigned numbers for the compiler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4049 + from 0 to just below FIRST_PSEUDO_REGISTER.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4050 + All registers that the compiler knows about must be given numbers,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4051 + even those that are not normally considered general registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4052 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4053 + for some reason, GCC won't compile if that name is used here directly. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4054 +#ifdef SOFT_M0_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4055 +#if (SOFT_M0_REGNUM != 14)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4056 +#error "bad register numbering"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4057 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4058 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4059 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4060 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4061 +/* 1 for registers that have pervasive standard uses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4062 + and are not available for the register allocator.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4063 + The psuedoregisters (M_REGS) are declared fixed here, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4064 + will be unfixed if -msoft-reg-count is seen later. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4065 +#define FIXED_REGISTERS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4066 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4067 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4068 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4069 +/* 1 for registers not available across function calls.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4070 + These must include the FIXED_REGISTERS and also any
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4071 + registers that can be used without being saved.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4072 + The latter must include the registers where values are returned
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4073 + and the register where structure-value addresses are passed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4074 + Aside from that, you can include as many other registers as you like. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4075 +#define CALL_USED_REGISTERS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4076 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4077 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4078 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4079 +/* Return number of consecutive hard regs needed starting at reg REGNO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4080 + to hold something of mode MODE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4081 + For the 6809, we distinguish between word-length and byte-length
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4082 + registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4083 +#define HARD_REGNO_NREGS(REGNO, MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4084 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4085 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4086 + (GET_MODE_SIZE (MODE)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4089 +/* Value is 1 if hard register REGNO can hold a value
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4090 +of machine-mode MODE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4091 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4092 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4093 +/* Value is 1 if it is a good idea to tie two pseudo registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4094 + when one has mode MODE1 and one has mode MODE2.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4095 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4096 + for any hard reg, then this must be 0 for correct output. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4097 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4099 +/* Specify the registers used for certain standard purposes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4100 + The values of these macros are register numbers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4101 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4102 +/* program counter if referenced as a register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4103 +#define PC_REGNUM HARD_PC_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4104 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4105 +/* Register to use for pushing function arguments. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4106 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4107 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4108 +/* Base register for access to local variables of the function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4109 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4110 + * the elimination pass will convert these to STACK_POINTER_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4111 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4112 + * avoid tying up a hard register (U) for the frame pointer if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4113 + * it can be eliminated entirely, making it available for use as
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4114 + * a general register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4115 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4116 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4117 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4118 +/* Define a table of possible eliminations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4119 + * The idea is to try to avoid using hard registers for the argument
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4120 + * and frame pointers if they can be derived from the stack pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4121 + * instead, which already has a hard register reserved for it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4122 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4123 + * The order of entries in this table will try to convert
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4124 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4125 + * references first, but if that fails, they will be converted to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4126 + * HARD_FRAME_POINTER_REGNUM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4127 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4128 +#define ELIMINABLE_REGS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4129 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4130 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4131 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4132 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4134 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4135 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4136 +/* Define how to offset the frame or argument pointer to turn it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4137 + * into a stack pointer reference. This is based on the way that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4138 + * the frame is constructed in the function prologue. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4139 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4140 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4141 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4142 +/* Base register for access to arguments of the function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4143 + * This is only used prior to reload; no instructions will ever
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4144 + * be output referring to this register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4145 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4146 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4147 +/* Register in which static-chain is passed to a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4148 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4149 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4150 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4151 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4152 +/* Order in which hard registers are allocated to pseudos.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4153 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4154 + * Since the D register is the only valid reg for 8-bit values
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4155 + * now, avoid using it for 16-bit values by putting it after all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4156 + * other 16-bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4157 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4158 + * Prefer X first since the first 16-bit function argument goes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4159 + * there. We may be able to pass in to a subroutine without
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4160 + * a copy.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4161 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4162 + * Prefer U over Y since instructions using Y take one extra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4163 + * byte, and thus one extra cycle to execute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4164 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4165 +#define REG_ALLOC_ORDER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4166 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4167 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4168 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4169 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4170 + 6, HARD_Z_REGNUM }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4171 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4172 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4173 + classes of registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4174 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4175 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4176 +/* Define the classes of registers for register constraints in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4177 + machine description. Also define ranges of constants.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4178 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4179 + One of the classes must always be named ALL_REGS and include all hard regs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4180 + If there is more than one class, another class must be named NO_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4181 + and contain no registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4182 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4183 + The name GENERAL_REGS must be the name of a class (or an alias for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4184 + another name such as ALL_REGS). This is the class of registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4185 + that is allowed by "g" or "r" in a register constraint.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4186 + Also, registers outside this class are allocated only when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4187 + instructions express preferences for them.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4189 + The classes must be numbered in nondecreasing order; that is,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4190 + a larger-numbered class must never be contained completely
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4191 + in a smaller-numbered class.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4192 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4193 + For any two classes, it is very desirable that there be another
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4194 + class that represents their union. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4195 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4196 +enum reg_class {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4197 + NO_REGS, /* The trivial class with no registers in it */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4198 + D_REGS, /* 16-bit (word (HI)) data (D) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4199 + ACC_A_REGS, /* The A register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4200 + ACC_B_REGS, /* The B register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4201 + X_REGS, /* The X register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4202 + Z_REGS, /* The Z (zero-bit) register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4203 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4204 + M_REGS, /* 8-bit (byte (QI)) soft registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4205 + CC_REGS, /* 8-bit condition code register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4206 + I_REGS, /* An index register (A,B,D) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4207 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4208 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4209 + S_REGS, /* 16-bit soft registers (FP, AP) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4210 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4211 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4212 + ALL_REGS, /* All registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4213 + LIM_REG_CLASSES
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4214 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4215 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4216 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4217 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4218 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4219 + it is not an alias to ALL_REGS, but to G_REGS. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4220 +#define GENERAL_REGS G_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4221 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4222 +/* Give names of register classes as strings for dump file. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4223 +#define REG_CLASS_NAMES \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4224 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4225 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4226 + "ALL_REGS" }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4227 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4228 +/* Define which registers fit in which classes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4229 + This is an initializer for a vector of HARD_REG_SET
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4230 + of length N_REG_CLASSES. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4231 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4232 +#define D_REGSET (D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4233 +#define ACC_A_REGSET (A_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4234 +#define ACC_B_REGSET (D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4235 +#define X_REGSET (X_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4236 +#define Z_REGSET (Z_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4237 +#define Q_REGSET (D_REGBIT | A_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4238 +#define M_REGSET (SOFT_M_REGBITS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4239 +#define CC_REGSET (CC_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4240 +#define I_REGSET (A_REGBIT | B_REGBIT | D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4241 +#define T_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4242 +#define A_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4243 +#define S_REGSET (SOFT_FP_REGBIT | SOFT_AP_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4244 +#define P_REGSET (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4245 +#define G_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4246 + (D_REGSET | Q_REGSET | I_REGSET | A_REGSET | M_REGSET | S_REGSET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4247 +#define ALL_REGSET (G_REGSET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4248 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4249 +#define REG_CLASS_CONTENTS { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4250 + {0}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4251 + {D_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4252 + {ACC_A_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4253 + {ACC_B_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4254 + {X_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4255 + {Z_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4256 + {Q_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4257 + {M_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4258 + {CC_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4259 + {I_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4260 + {T_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4261 + {A_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4262 + {S_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4263 + {P_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4264 + {G_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4265 + {ALL_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4266 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4267 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4268 +/* The same information, inverted.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4269 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4270 + * these two sets of definitions are always consistent. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4271 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4272 +#define REGNO_REG_CLASS(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4273 + (D_REGNO_P (REGNO) ? D_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4274 + (Z_REGNO_P (REGNO) ? Z_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4275 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4276 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4277 + (X_REGNO_P (REGNO) ? X_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4278 + (Q_REGNO_P (REGNO) ? Q_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4279 + (M_REGNO_P (REGNO) ? M_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4280 + (CC_REGNO_P (REGNO) ? CC_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4281 + (I_REGNO_P (REGNO) ? I_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4282 + (T_REGNO_P (REGNO) ? T_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4283 + (A_REGNO_P (REGNO) ? A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4284 + (S_REGNO_P (REGNO) ? S_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4285 + (P_REGNO_P (REGNO) ? P_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4286 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4288 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4289 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4290 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4291 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4292 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4293 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4294 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4295 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4296 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4297 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4298 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4299 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4300 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4301 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4302 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4303 +/* Macros that test an rtx 'X' to see if it's in a particular
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4304 + * register class. 'X' need not be a REG necessarily. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4305 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4306 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4307 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4308 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4309 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4310 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4311 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4312 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4313 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4314 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4315 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4316 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4317 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4318 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4319 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4320 +/* Redefine this in terms of BYTE_REGSET */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4321 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4323 +/* The class value for index registers, and the one for base regs. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4324 +#define INDEX_REG_CLASS I_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4325 +#define BASE_REG_CLASS A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4327 +/* Get reg_class from a letter in the machine description. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4328 +#define REG_CLASS_FROM_LETTER(C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4329 + (((C) == 'a' ? A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4330 + ((C) == 'd' ? D_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4331 + ((C) == 'x' ? I_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4332 + ((C) == 't' ? M_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4333 + ((C) == 'c' ? CC_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4334 + ((C) == 'A' ? ACC_A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4335 + ((C) == 'B' ? ACC_B_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4336 + ((C) == 'v' ? X_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4337 + ((C) == 'u' ? S_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4338 + ((C) == 'U' ? P_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4339 + ((C) == 'T' ? T_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4340 + ((C) == 'z' ? Z_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4341 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4342 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4343 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4344 + The letters I through O in a register constraint string
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4345 + can be used to stand for particular ranges of immediate operands.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4346 + This macro defines what the ranges are.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4347 + C is the letter, and VALUE is a constant value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4348 + Return 1 if VALUE is in the range specified by C.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4350 + For the 6809, J, K, L are used for indexed addressing.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4351 + `I' is used for the constant 1.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4352 + `J' is used for the 5-bit offsets.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4353 + `K' is used for the 8-bit offsets.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4354 + `L' is used for the range of signed numbers that fit in 16 bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4355 + `M' is used for the exact value '8'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4356 + `N' is used for the constant -1.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4357 + `O' is used for the constant 0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4358 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4360 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4361 + ((C) == 'I' ? ((VALUE) == 1) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4362 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4363 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4364 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4365 + (C) == 'M' ? ((VALUE) == 8) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4366 + (C) == 'N' ? ((VALUE) == -1) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4367 + (C) == 'O' ? ((VALUE) == 0) : 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4368 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4369 +/* Similar, but for floating constants, and defining letters G and H.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4370 + No floating-point constants are valid on MC6809. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4371 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4372 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4373 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4374 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4375 +/* Given an rtx X being reloaded into a reg required to be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4376 + in class CLASS, return the class of reg to actually use.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4377 + In general this is just CLASS; but on some machines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4378 + in some cases it is preferable to use a more restrictive class. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4379 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4380 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4381 +#define SMALL_REGISTER_CLASSES 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4382 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4383 +/* Return the maximum number of consecutive registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4384 + needed to represent mode MODE in a register of class CLASS. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4385 +#define CLASS_MAX_NREGS(CLASS, MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4386 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4387 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4388 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4389 + Stack layout; function entry, exit and calling.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4390 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4392 +/* Define this if pushing a word on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4393 + makes the stack pointer a smaller address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4394 +#define STACK_GROWS_DOWNWARD
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4395 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4397 +/* Define this if the nominal address of the stack frame
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4398 + is at the high-address end of the local variables;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4399 + that is, each additional local variable allocated
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4400 + goes at a more negative offset in the frame. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4401 +#define FRAME_GROWS_DOWNWARD 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4402 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4403 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4404 +/* Offset within stack frame to start allocating local variables at.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4405 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4406 + first local allocated. Otherwise, it is the offset to the BEGINNING
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4407 + of the first local allocated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4408 +#define STARTING_FRAME_OFFSET 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4409 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4410 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4411 +/* Always push stack arguments for now. Accumulation is not yet working. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4412 +#define PUSH_ROUNDING(BYTES) (BYTES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4413 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4414 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4415 +/* Offset of first parameter from the argument pointer register value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4416 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4417 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4418 +#define FIRST_PARM_OFFSET(FNDECL) 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4419 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4420 +/* Value is 1 if returning from a function call automatically
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4421 + pops the arguments described by the number-of-args field in the call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4422 + FUNTYPE is the data type of the function (as a tree),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4423 + or for a library call it is an identifier node for the subroutine name. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4424 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4426 +/* Define how to find the value returned by a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4427 + VALTYPE is the data type of the value (as a tree).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4428 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4429 + otherwise, FUNC is 0. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4430 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4431 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4432 +/* Define how to find the value returned by a library function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4433 + assuming the value has mode MODE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4435 +/* All return values are in the X-register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4436 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4437 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4438 +/* Define this if using the nonreentrant convention for returning
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4439 + structure and union values. No; it is inefficient and buggy. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4440 +#undef PCC_STATIC_STRUCT_RETURN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4441 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4442 +/* 1 if N is a possible register number for a function value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4443 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4445 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4446 + more than one register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4447 +#define NEEDS_UNTYPED_CALL 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4448 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4449 +/* 1 if N is a possible register number for function argument passing. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4450 +#define FUNCTION_ARG_REGNO_P(N) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4451 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4452 + (((N) == HARD_D_REGNUM) || ((N) == HARD_X_REGNUM)) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4453 + 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4454 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4455 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4456 + Argument Lists
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4457 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4459 +/* Cumulative arguments are tracked in a single integer,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4460 + * which is the number of bytes of arguments scanned so far,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4461 + * plus which registers have already been used. The register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4462 + * info is kept in some of the upper bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4463 +#define CUMULATIVE_ARGS unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4464 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4465 +#define CUM_STACK_ONLY 0x80000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4466 +#define CUM_X_MASK 0x40000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4467 +#define CUM_B_MASK 0x20000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4468 +#define CUM_STACK_INVALID 0x10000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4469 +#define CUM_STACK_MASK 0xFFFFFFF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4470 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4471 +#define CUM_ADVANCE_8BIT(cum) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4472 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) |= CUM_B_MASK))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4473 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4474 +#define CUM_ADVANCE_16BIT(cum) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4475 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) |= CUM_X_MASK))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4476 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4477 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4478 + for a call to a function whose data type is FNTYPE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4479 + For a library call, FNTYPE is 0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4480 + N_NAMED was added in gcc 3.4 and is not used currently. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4481 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4482 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4484 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4485 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4486 + : (unsigned) int_size_in_bytes (TYPE))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4487 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4488 +/* Update the data in CUM to advance over an argument
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4489 + of mode MODE and data type TYPE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4490 + (TYPE is null for libcalls where that information may not be available.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4491 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4492 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4493 + CUM_ADVANCE_8BIT (CUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4494 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4495 + CUM_ADVANCE_16BIT (CUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4496 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4498 +/* Define where to put the arguments to a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4499 + Value is zero to push the argument on the stack,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4500 + or a hard register rtx in which to store the argument.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4501 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4502 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4503 + For the 6809, the first 8-bit function argument can be placed into B,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4504 + and the first 16-bit arg can go into X. All other arguments
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4505 + will be pushed onto the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4507 + Command-line options can adjust this behavior somewhat.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4508 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4509 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4510 + ((MODE == VOIDmode) ? NULL_RTX : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4511 + ((MODE == BLKmode) || (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4512 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY | CUM_B_MASK))) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4513 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4514 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY | CUM_X_MASK))) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4515 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4516 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4517 +/* Output assembler code to FILE to increment profiler label # LABELNO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4518 + for profiling a function entry. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4519 +#define FUNCTION_PROFILER(FILE, LABELNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4520 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4521 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4522 +/* Stack pointer must be correct on function exit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4523 +#define EXIT_IGNORE_STACK 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4525 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4526 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4527 +** Trampolines for Nested Functions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4528 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4529 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4530 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4531 +/* Length in units of the trampoline for entering a nested function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4532 +#define TRAMPOLINE_SIZE 7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4533 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4534 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4535 + Addressing modes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4536 + and classification of registers for them.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4537 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4538 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4539 +/* 6809 has postincrement and predecrement addressing modes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4540 +#define HAVE_POST_INCREMENT 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4541 +#define HAVE_PRE_DECREMENT 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4542 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4543 +/* Whether or not to use index registers is configurable.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4544 + * Experiments show that things work better when this is off, so
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4545 + * that's the way it is for now. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4546 +#undef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4548 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4549 +/* Macros to check register numbers against specific register classes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4550 +#define REG_VALID_FOR_BASE_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4551 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4552 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4553 +/* MC6809 index registers do not allow scaling, */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4554 +/* but there is "accumulator-offset" mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4555 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4556 +#define REG_VALID_FOR_INDEX_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4557 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4558 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4559 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4560 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4561 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4562 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4563 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4564 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4565 + || REG_VALID_FOR_BASE_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4566 + || (REGNO) == FRAME_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4567 + || (REGNO) == HARD_FRAME_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4568 + || (REGNO) == ARG_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4569 + || (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4571 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4572 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4573 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4574 + || REG_VALID_FOR_INDEX_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4575 + || (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4578 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4579 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4580 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4581 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4582 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4584 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4585 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4586 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4587 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4588 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4589 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4590 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4591 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4592 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4593 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4594 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4595 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4596 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4597 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4598 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4599 +#ifndef REG_OK_STRICT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4600 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4601 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4602 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4603 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4604 +#define REG_OK_FOR_INDEX_P(X) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4605 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4606 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4607 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4608 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4609 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4610 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4611 +#define REG_OK_FOR_INDEX_P(X) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4612 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4613 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4615 +/* Maximum number of registers that can appear in a valid memory address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4616 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4617 +#define MAX_REGS_PER_ADDRESS 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4618 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4619 +#define MAX_REGS_PER_ADDRESS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4620 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4621 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4622 +/* 1 if X is an rtx for a constant that is a valid address.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4623 + * We allow any constant, plus the sum of any two constants (this allows
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4624 + * offsetting a symbol ref) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4625 +#define CONSTANT_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4626 + ((CONSTANT_P (X)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4627 + || ((GET_CODE (X) == PLUS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4628 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4629 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4630 +/* Nonzero if the constant value X is a legitimate general operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4631 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4632 +/* Any single-word constant is ok; the only contexts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4633 + allowing general_operand of mode DI or DF are movdi and movdf. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4634 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4635 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4636 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4637 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4638 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4639 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4640 + Test for valid memory addresses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4641 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4642 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4643 + that is a valid memory address for an instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4644 + The MODE argument is the machine mode for the MEM expression
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4645 + that wants to use this address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4646 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4647 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4648 + Valid addresses are either direct or indirect (MEM) versions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4649 + of the following forms.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4650 + constant N
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4651 + register ,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4652 + constant indexed N,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4653 + accumulator indexed D,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4654 + auto_increment ,X++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4655 + auto_decrement ,--X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4656 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4658 +#define REGISTER_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4659 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4660 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4661 +#define EXTENDED_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4662 + CONSTANT_ADDRESS_P (X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4663 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4664 +#define LEGITIMATE_BASE_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4665 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4666 + || (GET_CODE (X) == SIGN_EXTEND \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4667 + && GET_CODE (XEXP (X, 0)) == REG \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4668 + && GET_MODE (XEXP (X, 0)) == HImode \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4669 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4671 +#define LEGITIMATE_OFFSET_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4672 + (CONSTANT_ADDRESS_P (X) || (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4673 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4674 +/* 1 if X is the sum of a base register and an offset. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4675 +#define INDEXED_ADDRESS(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4676 + ((GET_CODE (X) == PLUS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4677 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4678 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4679 + || (GET_CODE (X) == PLUS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4680 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4681 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4683 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4684 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4685 +#define STACK_PUSH_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4686 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4687 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4688 +#define STACK_POP_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4689 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4690 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4691 +#define PUSH_POP_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4692 + (((GET_CODE (X) == PRE_DEC) || (GET_CODE (X) == POST_INC)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4693 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4694 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4695 +/* Go to ADDR if X is a valid address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4696 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4697 +{ \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4698 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4699 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4700 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4701 + if (INDEXED_ADDRESS (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4702 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4703 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4704 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4705 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4706 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4707 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4708 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4709 + Address Fix-up
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4710 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4711 +/* Go to LABEL if ADDR (a legitimate address expression)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4712 + has an effect that depends on the machine mode it is used for.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4713 + In the latest GCC, this case is already handled by the core code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4714 + so no action is required here. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4715 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4718 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4719 + Miscellaneous Parameters
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4720 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4721 +/* Specify the machine mode that this machine uses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4722 + for the index in the tablejump instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4723 +#define CASE_VECTOR_MODE Pmode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4724 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4725 +/* Define this as 1 if `char' should by default be signed; else as 0. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4726 +#define DEFAULT_SIGNED_CHAR 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4727 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4728 +/* This flag, if defined, says the same insns that convert to a signed fixnum
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4729 + also convert validly to an unsigned one. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4730 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4731 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4732 +/* Max number of bytes we can move from memory to memory/register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4733 + in one reasonably fast instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4734 +#define MOVE_MAX 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4735 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4736 +/* Int can be 8 or 16 bits (default is 16) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4737 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4738 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4739 +/* Short is always 16 bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4740 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4742 +/* Size (bits) of the type "long" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4743 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4744 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4745 +/* Size (bits) of the type "long long" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4746 +#define LONG_LONG_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4747 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4748 +/* Size (bits) of the type "char" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4749 +#define CHAR_TYPE_SIZE 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4750 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4751 +/* Size (bits) of the type "float" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4752 +#define FLOAT_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4753 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4754 +/* Size (bits) of the type "double" on target machine.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4755 + * Note that the C standard does not require that doubles
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4756 + * hold any more bits than float. Since the 6809 has so few
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4757 + * registers, we cannot really support more than 32-bits. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4758 +#define DOUBLE_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4760 +/* Size (bits) of the type "long double" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4761 +#define LONG_DOUBLE_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4763 +/* Define the type used for "size_t". With a 64KB address space,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4764 + * only a 16-bit value here makes sense. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4765 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4766 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4767 +/* Likewise, the difference between two pointers is also a 16-bit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4768 + * signed value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4769 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4771 +/* Nonzero if access to memory by bytes is slow and undesirable. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4772 +#define SLOW_BYTE_ACCESS 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4773 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4774 +/* Define if shifts truncate the shift count
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4775 + which implies one can omit a sign-extension or zero-extension
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4776 + of a shift count. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4777 +#define SHIFT_COUNT_TRUNCATED 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4779 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4780 + is done just by pretending it is already truncated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4781 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4782 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4783 +/* It is as good to call a constant function address as to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4784 + call an address kept in a register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4785 +#define NO_FUNCTION_CSE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4787 +/* Specify the machine mode that pointers have.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4788 + After generation of rtl, the compiler makes no further distinction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4789 + between pointers and any other objects of this machine mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4790 +#define Pmode HImode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4791 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4792 +/* A function address in a call instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4793 + is a byte address (for indexing purposes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4794 + so give the MEM rtx a byte's mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4795 +#define FUNCTION_MODE HImode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4796 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4797 +/* Define the cost of moving a value from a register in CLASS1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4798 + * to CLASS2, of a given MODE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4799 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4800 + * On the 6809, hard register transfers are all basically equivalent.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4801 + * But soft register moves are treated more like memory moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4802 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4803 + (((CLASS1 == M_REGS) || (CLASS2 == M_REGS)) ? 4 : 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4804 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4805 +/* Define the cost of moving a value between a register and memory. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4806 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4808 +/* Check a `double' value for validity for a particular machine mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4809 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4810 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4811 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4813 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4814 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4815 + machine-dependent
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4816 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4817 +/* Tell final.c how to eliminate redundant test instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4818 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4819 +/* Here we define machine-dependent flags and fields in cc_status
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4820 + (see `conditions.h'). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4821 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4822 +/* Store in cc_status the expressions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4823 + that the condition codes will describe
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4824 + after execution of an instruction whose pattern is EXP.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4825 + Do not alter them if the instruction would not alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4827 +/* On the 6809, most of the insns to store in an address register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4828 + fail to set the cc's. However, in some cases these instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4829 + can make it possibly invalid to use the saved cc's. In those
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4830 + cases we clear out some or all of the saved cc's so they won't be used. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4831 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4832 +#define NOTICE_UPDATE_CC(EXP, INSN) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4833 + notice_update_cc((EXP), (INSN))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4834 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4835 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4836 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4837 +** pragma support
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4838 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4839 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4840 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4841 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4842 +#define REGISTER_TARGET_PRAGMAS() \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4843 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4844 + extern void pragma_section PARAMS ((cpp_reader *)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4845 + c_register_pragma (0, "section", pragma_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4846 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4848 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4849 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4850 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4851 + ASSEMBLER FORMAT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4852 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4854 +#define FMT_HOST_WIDE_INT "%ld"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4856 +/* Output to assembler file text saying following lines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4857 + may contain character constants, extra white space, comments, etc. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4858 +#define ASM_APP_ON ";----- asm -----\n"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4859 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4860 +/* Output to assembler file text saying following lines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4861 + no longer contain unusual constructs. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4862 +#define ASM_APP_OFF ";--- end asm ---\n"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4863 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4864 +/* Use a semicolon to begin a comment. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4865 +#define ASM_COMMENT_START "; "
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4866 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4867 +/* Output assembly directives to switch to section 'name' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4868 +#undef TARGET_ASM_NAMED_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4869 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4870 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4871 +#undef TARGET_HAVE_NAMED_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4872 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4873 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4874 +/* Output before read-only data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4875 +#define TEXT_SECTION_ASM_OP (code_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4876 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4877 +/* Output before writable data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4878 +#define DATA_SECTION_ASM_OP (data_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4879 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4880 +/* Output before uninitialized data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4881 +#define BSS_SECTION_ASM_OP (bss_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4882 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4883 +/* Support the ctors and dtors sections for g++. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4884 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4885 +#undef CTORS_SECTION_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4886 +#define CTORS_SECTION_ASM_OP "\t.area\t.ctors"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4887 +#undef DTORS_SECTION_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4888 +#define DTORS_SECTION_ASM_OP "\t.area\t.dtors"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4889 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4890 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4891 +#undef DO_GLOBAL_CTORS_BODY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4892 +#undef DO_GLOBAL_DTORS_BODY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4893 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4894 +#define HAS_INIT_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4895 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4896 +/* This is how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4897 + that says to advance the location counter
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4898 + to a multiple of 2**LOG bytes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4900 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4901 + if ((LOG) > 1) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4902 + fprintf (FILE, "\t.bndry\t%u\n", 1 << (LOG))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4903 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4904 +/* The .set foo,bar construct doesn't work by default */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4905 +#undef SET_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4906 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4907 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4908 + assemble_name (FILE, LABEL1); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4909 + fputs ("\tequ\t", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4910 + assemble_name (FILE, LABEL2); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4911 + fputc ('\n', FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4912 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4914 +/* How to refer to registers in assembler output.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4915 + This sequence is indexed by compiler's hard-register-number (see above). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4916 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4918 +#define REGISTER_NAMES { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4919 + [HARD_D_REGNUM]= "d", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4920 + [HARD_X_REGNUM]= "x", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4921 + [HARD_Y_REGNUM]= "y", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4922 + [HARD_U_REGNUM]= "u", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4923 + [HARD_S_REGNUM]= "s", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4924 + [HARD_PC_REGNUM]= "pc", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4925 + [HARD_A_REGNUM]= "a", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4926 + [HARD_B_REGNUM]= "b", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4927 + [HARD_CC_REGNUM]= "cc",\
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4928 + [HARD_DP_REGNUM]= "dp", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4929 + [SOFT_FP_REGNUM]= "soft_fp", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4930 + [SOFT_AP_REGNUM]= "soft_ap", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4931 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4932 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4933 + [HARD_RSVD1_REGNUM] = "-", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4934 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4935 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4936 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4937 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4938 +** Debug Support
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4939 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4940 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4941 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4942 +/* Default to DBX-style debugging */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4943 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4944 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4945 +#define DBX_DEBUGGING_INFO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4947 +#define DEFAULT_GDB_EXTENSIONS 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4948 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4949 +#define ASM_STABS_OP ";\t.stabs\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4950 +#define ASM_STABD_OP ";\t.stabd\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4951 +#define ASM_STABN_OP ";\t.stabn\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4953 +#define DBX_CONTIN_LENGTH 54
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4954 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4955 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4956 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4957 + const char *p = FILENAME; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4958 + while ((p = strchr (p, '/')) != NULL) { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4959 + p = FILENAME = p+1; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4960 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4961 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4962 + output_quoted_string (ASMFILE, FILENAME); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4963 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4964 + assemble_name (ASMFILE, ltext_label_name); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4965 + fputc ('\n', ASMFILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4966 + switch_to_section (text_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4967 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4968 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4969 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4970 +/* With -g, GCC sometimes outputs string literals that are longer than
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4971 + * the assembler can handle. Without actual debug support, these are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4972 + * not really required. Redefine the function to output strings to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4973 + * output as much as possible. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4974 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4975 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4976 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4977 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4978 +** Output and Generation of Labels
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4979 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4980 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4982 +/* Prefixes for various assembly-time objects */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4983 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4984 +#define REGISTER_PREFIX ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4985 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4986 +#define LOCAL_LABEL_PREFIX ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4988 +#define USER_LABEL_PREFIX "_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4989 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4990 +#define IMMEDIATE_PREFIX "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4992 +/* This is how to output the definition of a user-level label named NAME,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4993 + such as the label on a static function or variable NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4994 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4995 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4996 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4997 + if (section_changed) { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4998 + fprintf (FILE, "\n%s\n\n", code_section_op); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4999 + section_changed = 0; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5000 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5001 + assemble_name (FILE, NAME); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5002 + fputs (":\n", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5003 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5004 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5005 +/* This is how to output the label for a function definition. It
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5006 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5007 + other properties. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5008 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5009 + m6809_declare_function_name (FILE,NAME,DECL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5010 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5011 +/* This is how to output a command to make the user-level label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5012 + named NAME defined for reference from other files. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5013 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5014 +#define GLOBAL_ASM_OP "\n\t.globl\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5015 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5016 +/* This is how to output a reference to a user label named NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5017 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5018 + fprintf (FILE, "_%s", NAME)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5019 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5020 +/* This is how to output a reference to a symbol ref
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5021 + * Check to see if the symbol is in the direct page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5022 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5023 +{ \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5024 + print_direct_prefix (FILE, sym); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5025 + assemble_name (FILE, XSTR (sym, 0)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5026 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5027 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5028 +/* External references aren't necessary, so don't emit anything */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5029 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5031 +/* This is how to store into the string LABEL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5032 + the symbol_ref name of an internal numbered label where
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5033 + PREFIX is the class of label and NUM is the number within the class.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5034 + This is suitable for output with `assemble_name'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5035 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5036 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5037 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5038 +/* This is how to output an assembler line defining an `int' constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5039 +#define ASM_OUTPUT_INT(FILE,VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5040 +( fprintf (FILE, "\t.word\t"), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5041 + output_addr_const (FILE, (VALUE)), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5042 + fprintf (FILE, "\n"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5043 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5044 +/* Likewise for `char' and `short' constants. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5045 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5046 +( fprintf (FILE, "\t.word\t"), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5047 + output_addr_const (FILE, (VALUE)), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5048 + fprintf (FILE, "\n"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5049 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5050 +/* This is how to output a string. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5051 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5052 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5053 +/* This is how to output an insn to push a register on the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5054 + It need not be very fast code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5055 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5056 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5057 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5059 +/* This is how to output an insn to pop a register from the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5060 + It need not be very fast code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5061 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5062 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5063 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5064 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5065 +/* This is how to output an element of a case-vector that is absolute. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5067 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5068 + fprintf (FILE, "\t.word\tL%u\n", VALUE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5069 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5070 +/* This is how to output an element of a case-vector that is relative. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5071 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5072 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5073 + fprintf (FILE, "\t.word\tL%u-L%u\n", VALUE, REL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5074 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5075 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5076 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5077 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5078 +** Assembler Commands for Alignment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5079 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5080 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5081 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5082 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5083 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5084 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5085 + fprintf (FILE, "\tzmb\t%d\t;skip space\n", SIZE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5086 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5088 +/* This says how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5089 + to define a global common symbol. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5090 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5091 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5092 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5093 + switch_to_section (bss_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5094 + fputs ("\n\t.globl\t", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5095 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5096 + fputs ("\n", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5097 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5098 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5099 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5100 +/* This says how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5101 + to define a local common symbol. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5102 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5103 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5104 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5105 + switch_to_section (bss_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5106 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5107 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5108 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5109 +/* Store in OUTPUT a string (made with alloca) containing
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5110 + an assembler-name for a local static variable named NAME.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5111 + LABELNO is an integer which is different for each call. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5112 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5113 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5114 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5115 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5116 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5117 +/* Print an instruction operand X on file FILE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5118 + CODE is the code from the %-spec for printing this operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5119 + If `%z3' was used to print operand 3, then CODE is 'z'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5120 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5121 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5122 +/* Print a memory operand whose address is X, on file FILE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5123 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5124 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5125 +/* Don't let stack pushes build up too much. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5126 +#define MAX_PENDING_STACK 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5127 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5128 +/* Define values for builtin operations */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5129 +enum m6809_builtins
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5130 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5131 + M6809_SWI,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5132 + M6809_SWI2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5133 + M6809_SWI3,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5134 + M6809_CWAI,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5135 + M6809_SYNC,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5136 + M6809_ADD_CARRY,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5137 + M6809_SUB_CARRY,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5138 + M6809_ADD_DECIMAL,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5139 + M6809_NOP,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5140 + M6809_BLOCKAGE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5141 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5142 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5143 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5144 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5145 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5146 @@ -0,0 +1,2358 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5147 +;; GCC machine description for Motorola 6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5148 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5149 +;; 2009 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5150 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5151 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5152 +;; by William Astle (lost@l-w.ca).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5153 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5154 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5155 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5156 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5157 +;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5158 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5159 +;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5160 +;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5161 +;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5162 +;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5163 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5164 +;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5165 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5166 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5167 +;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5168 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5169 +;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5170 +;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5171 +;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5172 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5173 +;; General information:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5174 +;; --------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5175 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5176 +;; versions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5177 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5178 +;; * The 'A' and 'B' registers are treated as a single register by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5179 +;; register allocator; hence, the instruction templates assume that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5180 +;; both can be modified if either one is available for use. No
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5181 +;; attempt is made to split instructions to refer to a particular half
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5182 +;; of the register. It is always referred to as the 'D' register, even
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5183 +;; in QImode (when it will be displayed as 'B').
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5184 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5185 +;; * There is full support for proper branch instruction generation,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5186 +;; based on instruction lengths. However, many instruction patterns
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5187 +;; are still overloaded to emit lots of real instructions, which can
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5188 +;; make the length calculation difficult; in those cases, I've tried
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5189 +;; to be pessimistic and assume the worst-case.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5190 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5191 +;; * The instruction type attributes are only defined for branch
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5192 +;; vs. non branch instructions for now, since there is seemingly no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5193 +;; reason to define these for other types anyway.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5194 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5195 +;; * The limited number of total registers presents the greatest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5196 +;; challenge. There are 'soft registers' -- memory locations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5197 +;; used to simulate real regs -- which can be helpful.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5198 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5199 +;; * Position-independent code (PIC) is supported and has been tested
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5200 +;; but not to the extent of absolute code generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5201 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5202 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5203 +;; as UNSPEC instructions, and can be accessed from C code using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5204 +;; __builtin_xxxx() style functions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5205 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5206 +;; What still needs to be done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5207 +;; ----------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5208 +;; * Replace remaining instances of (define_peephole) with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5209 +;; (define_peephole2), or remove them completely if they are not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5210 +;; matching anyway. Add more peepholes for things actually encountered.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5211 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5212 +;; * Indexing addressing can lead to crashes in complex functions when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5213 +;; register pressure is high. Only the 'D' register can actually be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5214 +;; used as an index register, and its demand by other instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5215 +;; can sometimes mean that it is impossible to satisfy constraints.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5216 +;; Currently, indexing is completely disabled to avoid these types
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5217 +;; of problems, although code is slightly more inefficient in some
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5218 +;; working cases.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5219 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5220 +;; * 32-bit math is terribly inefficient.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5221 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5222 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5223 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5224 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5225 +;;- Constants
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5226 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5227 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5228 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5229 +; Define constants for hard register numbers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5230 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5231 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5232 + (HARD_RSVD1_REGNUM 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5233 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5234 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5235 + (HARD_Z_REGNUM 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5236 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5237 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5238 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5239 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5240 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5241 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5243 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5244 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5245 +; The range in which a short branch insn can be used.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5246 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5247 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5248 + (MIN_SHORT_BRANCH_OFFSET -127)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5249 + (MAX_SHORT_BRANCH_OFFSET 128)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5250 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5251 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5252 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5253 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5254 +; The lengths of various types of real 6809 instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5255 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5256 +; By default, ordinary insns are 4 bytes long. This is often not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5257 +; right, and the insn patterns below will redefine this to the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5258 +; correct value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5259 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5260 +; Branch instruction lengths (conditional and unconditionals) are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5261 +; well known and declared here. The short insns are used when the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5262 +; offset is within the range declared above (between MIN_SHORT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5263 +; and MAX_SHORT) ; otherwise the long form is used.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5264 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5265 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5266 + (DEFAULT_INSN_LENGTH 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5267 + (SHORT_CBRANCH_LENGTH 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5268 + (LONG_CBRANCH_LENGTH 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5269 + (SHORT_BRANCH_LENGTH 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5270 + (LONG_BRANCH_LENGTH 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5271 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5273 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5274 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5275 +; Constants for insn cycle counts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5276 +; Note that these counts all assume 1-byte opcodes. 2-byte
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5277 +; opcodes require 1 extra cycles for fetching the extra byte.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5278 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5279 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5280 + ;; The default insn length, when it cannot be calculated.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5281 + ;; Take a conservative approach and estimate high.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5282 + (DEFAULT_INSN_CYCLES 10)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5283 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5284 + ;; Cycle counts for ALU and load operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5285 + (ALU_INHERENT_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5286 + (ALU_IMMED_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5287 + (ALU_DIRECT_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5288 + (ALU_INDEXED_BASE_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5289 + (ALU_EXTENDED_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5290 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5291 + ;; If an ALU operation is on a 16-bit register (D), then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5292 + ;; add this number of cycles to the total count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5293 + (ALU_16BIT_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5294 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5295 + ;; A load of a 16-bit register incurs this extra amount.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5296 + (LOAD_16BIT_CYCLES 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5297 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5298 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5299 + (MEM_DIRECT_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5300 + (MEM_INDEXED_BASE_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5301 + (MEM_EXTENDED_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5302 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5303 + ;; Cycle count for any reg-reg transfer (regardless of size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5304 + (EXG_CYCLES 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5305 + (TFR_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5306 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5307 + ;; Cycle count for a condition code update (andcc/orcc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5308 + (CC_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5309 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5310 + (JMP_DIRECT_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5311 + (JMP_INDEXED_BASE_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5312 + (JMP_EXTENDED_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5313 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5314 + (JSR_DIRECT_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5315 + (JSR_INDEXED_BASE_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5316 + (JSR_EXTENDED_CYCLES 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5317 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5318 + (LEA_BASE_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5319 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5320 + ;; Cycle count for a psh/pul operations. Add to this the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5321 + ;; total number of bytes moved for the correct count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5322 + (PSH_PUL_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5324 + ;; Miscellaneous cycle counts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5325 + (CWAI_CYCLES 20)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5326 + (MUL_CYCLES 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5327 + (NOP_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5328 + (RTI_CYCLES 15)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5329 + (RTS_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5330 + (SWI_CYCLES 20)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5331 + (SYNC_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5332 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5333 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5334 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5335 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5336 +; An enumeration of values for each "unspec"; i.e. unspecified
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5337 +; instruction. These represent insns that are meaningful on the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5338 +; 6809 but which have no intrinsic meaning to GCC itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5339 +; These insns can be generated explicitly using the __builtin_xxx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5340 +; syntax; they are also implicitly generated by the backend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5341 +; as needed to implement other insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5342 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5343 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5344 + (UNSPEC_BLOCKAGE 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5345 + (UNSPEC_PUSH_RS 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5346 + (UNSPEC_POP_RS 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5347 + (UNSPEC_SWI 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5348 + (UNSPEC_CWAI 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5349 + (UNSPEC_ADD_CARRY 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5350 + (UNSPEC_SUB_CARRY 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5351 + (UNSPEC_SYNC 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5352 + (UNSPEC_ADD_DECIMAL 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5353 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5354 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5355 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5356 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5357 +;;- Predicates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5358 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5360 +(include "predicates.md")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5361 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5362 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5363 +;;- Attributes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5364 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5365 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5366 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5367 +;; The type attribute is used to distinguish between different
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5368 +;; types of branch instructions, so that their lengths can be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5369 +;; calculated correctly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5370 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5371 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5372 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5373 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5374 +;; The length of a branch instruction is calculated based on how
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5375 +;; far away the branch target is. Lengths of other insns default
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5376 +;; to 4. set_attr is used in instruction templates to specify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5377 +;; the length when it is known exactly. When not sure, err on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5378 +;; the high side to avoid compile errors.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5379 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5380 +(define_attr "length" ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5381 + (cond [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5382 + (eq_attr "type" "branch")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5383 + (if_then_else (lt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5384 + (const_int MIN_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5385 + (const_int LONG_BRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5386 + (if_then_else (gt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5387 + (const_int MAX_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5388 + (const_int LONG_BRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5389 + (const_int SHORT_BRANCH_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5390 + (eq_attr "type" "cbranch")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5391 + (if_then_else (lt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5392 + (const_int MIN_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5393 + (const_int LONG_CBRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5394 + (if_then_else (gt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5395 + (const_int MAX_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5396 + (const_int LONG_CBRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5397 + (const_int SHORT_CBRANCH_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5398 + ] (const_int DEFAULT_INSN_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5399 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5400 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5401 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5402 +;; The default attributes for 'asm' statements.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5403 +;; The default length is the longest possible single 6809 instruction,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5404 +;; which is 5 bytes. GCC will automatically multiply this by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5405 +;; number of real insns contained in an asm statement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5406 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5407 +(define_asm_attributes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5408 + [(set_attr "length" "5")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5409 + (set_attr "type" "unknown")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5410 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5411 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5412 +;; An attribute for the number of cycles that it takes an instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5413 +;; to execute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5414 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5415 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5418 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5419 +;;- Instruction patterns. When multiple patterns apply,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5420 +;;- the first one in the file is chosen.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5421 +;;-
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5422 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5423 +;;-
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5424 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5425 +;;- for most instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5426 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5427 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5428 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5429 +;;- Test
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5430 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5431 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5432 +;; cmpx is 3 bytes, not 4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5433 +(define_insn "*tsthi_x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5434 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5435 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5436 + "cmpx\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5437 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5438 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5439 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5440 +(define_insn "*tsthi_d"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5441 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5442 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5443 + "subd\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5444 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5445 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5446 +(define_insn "*tsthi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5447 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5448 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5449 + "cmp%0\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5450 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5452 +(define_insn "*bitqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5453 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5454 + (and:QI (match_operand:QI 0 "register_operand" "%q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5455 + (match_operand:QI 1 "general_operand" "mi")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5456 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5457 + "bit%0\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5458 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5459 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5460 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5461 +(define_insn "tstqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5462 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5463 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5464 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5465 + tst%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5466 + tst\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5467 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5468 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5469 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5470 +;;- Compare instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5471 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5472 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5473 +;; - cmphi for register to memory or register compares
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5474 +(define_insn "cmphi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5475 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5476 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5477 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5478 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5479 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5480 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5481 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5482 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5483 + return "cmp%0\t,s++\t;cmphi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5484 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5485 + if (GET_CODE (operands[0]) == REG)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5486 + return "cmp%0\t%1\t;cmphi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5487 + else {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5488 + cc_status.flags |= CC_REVERSED;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5489 + return "cmp%1\t%0\t;cmphi:(R)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5490 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5491 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5492 + [(set_attr "length" "5,5,7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5493 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5494 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5495 +(define_insn "cmpqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5496 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5497 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5498 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5499 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5500 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5501 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5502 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5503 + if (operands[1] == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5504 + return "tst%0\t;cmpqi:(ZERO)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5505 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5506 + return "cmp%0\t%1\t;cmpqi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5507 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5508 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5509 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5510 + cc_status.flags |= CC_REVERSED;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5511 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5512 + if (operands[0] == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5513 + return "tst%1\t;cmpqi:(RZERO)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5514 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5515 + return "cmp%1\t%0\t;cmpqi:(R)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5516 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5517 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5518 + [(set_attr "length" "1,3,2,1,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5519 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5520 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5521 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5522 +;;- Compare/branch pattern
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5523 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5525 +(define_expand "cbranchhi4"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5526 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5527 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5528 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5529 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5530 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5531 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5532 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5533 + (label_ref (match_operand 3 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5534 + (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5535 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5536 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5537 +)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5538 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5539 +(define_expand "cbranchqi4"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5540 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5541 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5542 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5543 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5544 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5545 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5546 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5547 + (label_ref (match_operand 3 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5548 + (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5549 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5550 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5551 +)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5552 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5553 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5554 +;;- Move
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5555 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5557 +; this looks good (obviously not finished) but I still see 'movsi'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5558 +; places in udivsi3 where it's broken
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5559 +; (define_insn "pushsi1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5560 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5561 +; (match_operand:SI 0 "general_operand" "o"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5562 +; (set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5563 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5564 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5565 +; "; pushsi %0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5566 +; [(set_attr "length" "12")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5567 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5568 +; (define_insn "popsi1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5569 +; [(set (match_operand:SI 0 "general_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5570 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5571 +; (set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5572 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5573 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5574 +; "; popsi %0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5575 +; [(set_attr "length" "12")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5577 +; (define_insn "movsi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5578 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5579 +; (match_operand:SI 1 "general_operand" " oi"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5580 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5581 +; "; movsi %0 <- %1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5582 +; [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5584 +; this doesn't work
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5585 +; (define_expand "movsi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5586 +; [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5587 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5588 +; (match_operand:SI 1 "general_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5589 +; (clobber (match_scratch:HI 2 ""))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5590 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5591 +; {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5592 +; rtx insn;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5593 +; if (STACK_PUSH_P (operands[0]) || STACK_POP_P (operands[1]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5594 +; {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5595 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5596 +; }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5597 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5598 +; DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5599 +; })
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5600 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5602 +(define_expand "movhi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5603 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5604 + (match_operand:HI 1 "general_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5605 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5606 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5607 + /* One of the ops has to be in a register prior to reload */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5608 + if (!register_operand (operand0, HImode) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5609 + !register_operand (operand1, HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5610 + operands[1] = copy_to_mode_reg (HImode, operand1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5611 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5613 +;;; Try a splitter to handle failure cases where we try to move
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5614 +;;; an immediate constant (zero usually) directly to memory.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5615 +;;; This absolutely requires an intermediate register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5616 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5617 + [(set (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5618 + (match_operand:HI 1 "immediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5619 + (clobber (match_operand:HI 2 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5620 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5621 + [(set (match_dup 2) (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5622 + (set (match_dup 0) (match_dup 2))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5623 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5625 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5626 +;;; This would be a nice method for loading from a word array,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5627 +;;; but it is never generated because the combiner cannot merge
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5628 +;;; more than 3 instructions (there are four here). This is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5629 +;;; perhaps better done via a peephole.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5630 +(define_insn "*movhi_array_load"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5631 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5632 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5633 + (match_operand:HI 2 "immediate_operand" "i"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5634 + (clobber (match_scratch:HI 3 "=X"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5635 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5636 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5637 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5638 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5639 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5640 +;;; Optimize the move of a byte to the stack using the pshs instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5641 +;;; instead of a store with pre-increment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5642 +(define_insn "movhi_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5643 + [(set (match_operand:HI 0 "push_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5644 + (match_operand:HI 1 "register_operand" "U"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5645 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5646 + "pshs\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5647 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5649 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5650 +(define_insn "*movhi_pic_symbolref"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5651 + [(set (match_operand:HI 0 "register_operand" "=a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5652 + (match_operand:HI 1 "symbolic_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5653 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5654 + "lea%0\t%c1,pcr"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5655 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5656 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5658 +(define_insn "*movhi_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5659 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5660 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5661 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5662 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5663 + lea%0\t,%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5664 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5665 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5666 + ld%0\t%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5667 + st%1\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5668 + [(set_attr "length" "2,2,2,*,*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5669 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5671 +;;; Generated by the combiner to merge an address calculation with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5672 +;;; a byte load. We can use the 'abx' instruction here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5673 +(define_insn "*movqi_array_load"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5674 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5675 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5676 + (match_operand:HI 2 "immediate_operand" "i"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5677 + (clobber (match_scratch:HI 3 "=X"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5678 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5679 + "ldx\t%2\;abx\;ld%0\t,x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5680 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5681 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5683 +;;; Optimize the move of a byte to the stack using the pshs instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5684 +;;; instead of a store with pre-increment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5685 +(define_insn "movqi_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5686 + [(set (match_operand:QI 0 "push_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5687 + (match_operand:QI 1 "register_operand" " q"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5688 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5689 + "pshs\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5690 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5691 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5692 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5693 +;;; Optimize the move of a byte from the stack using the puls instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5694 +;;; instead of a store with post-decrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5695 +(define_insn "movqi_pop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5696 + [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5697 + (match_operand:QI 1 "pop_operand" "m"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5698 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5699 + "puls\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5700 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5703 +;;- load low byte of 16-bit data into 8-bit register/memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5704 +(define_insn "*mov_lsb"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5705 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5706 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5707 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5708 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5709 + \t;movlsbqihi: D->B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5710 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5711 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5712 + stb\t%0\t;movlsbqihi: R:%1 -> %0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5713 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5714 + [(set_attr "length" "0,*,2,*,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5715 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5717 +;;- load high byte of 16-bit data into 8-bit register/memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5718 +(define_insn "*mov_msb"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5719 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5720 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5721 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5722 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5723 + tfr\ta,b\t;movmsbqihi: D->B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5724 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5725 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5726 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5727 + sta\t%0\t;movmsbqihi: R:%1 -> %0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5728 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5729 + [(set_attr "length" "2,1,4,*,*,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5730 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5731 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5732 +(define_insn "*movqi_boolean"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5733 + [(set (reg:QI HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5734 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5735 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5736 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5737 + tst%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5738 + andcc\t#~4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5739 + orcc\t#4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5740 + tst\t%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5742 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5743 +(define_insn "movqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5744 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5745 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5746 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5747 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5748 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5749 + clr%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5750 + clr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5751 + ld%0\t%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5752 + st%1\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5753 + tfr\tcc,%0\;and%0\t#4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5754 + tst%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5755 + [(set_attr "length" "2,1,3,*,*,4,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5756 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5757 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5758 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5759 +;;- Swap registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5760 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5761 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5762 +; Note: 8-bit swap is never needed so it is not defined.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5763 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5764 +(define_insn "swaphi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5765 + [(set (match_operand:HI 0 "register_operand" "+r")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5766 + (match_operand:HI 1 "register_operand" "+r"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5767 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5768 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5769 + "exg\t%1,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5770 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5771 + (set (attr "cycles") (const_int EXG_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5772 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5773 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5774 +(define_insn "bswaphi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5775 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5776 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5777 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5778 + "exg\ta,b"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5779 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5780 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5781 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5782 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5783 +;;- Extension and truncation insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5784 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5785 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5786 +(define_insn "extendqihi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5787 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5788 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5789 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5790 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5791 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5794 +(define_insn "zero_extendqihi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5795 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5796 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5797 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5798 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5799 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5801 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5802 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5803 +;;- All kinds of add instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5804 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5805 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5806 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5807 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5808 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5809 +;; so it is MUCH less efficient. Define this one ourselves.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5810 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5811 +;; TODO - can't always get 'd' for the clobber... allow other registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5812 +;; as well and use exg d,R ... exg R,d around the code sequence to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5813 +;; use others, at a price. Also consider libcall for this when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5814 +;; optimizing for size.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5815 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5816 +(define_insn "addsi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5817 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5818 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5819 + (match_operand:SI 2 "general_operand" " oi")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5820 + (clobber (match_scratch:HI 3 "=d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5821 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5822 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5823 + m6809_output_addsi3 (PLUS, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5824 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5825 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5826 + [(set_attr "length" "21")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5828 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5829 +; Increment of a 16-bit MEM by 1 can be done without a register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5830 +(define_insn "*addhi_mem_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5831 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5832 + (plus:HI (match_dup 0) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5833 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5834 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5835 + rtx xoperands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5837 + xoperands[0] = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5838 + xoperands[1] = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5839 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5840 + output_asm_insn ("inc\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5841 + output_asm_insn ("bne\t__IL%=", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5842 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5843 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5844 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5845 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5846 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5848 +; Decrement of a 16-bit MEM by 1 can be done without a register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5849 +(define_insn "*addhi_mem_minus1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5850 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5851 + (plus:HI (match_dup 0) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5852 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5853 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5854 + rtx xoperands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5856 + xoperands[0] = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5857 + xoperands[1] = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5859 + output_asm_insn ("tst\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5860 + output_asm_insn ("bne\t__IL%=", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5861 + output_asm_insn ("dec\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5862 + output_asm_insn ("__IL%=:", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5863 + output_asm_insn ("dec\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5864 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5865 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5866 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5867 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5868 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5869 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5870 +; using the LEAX B,Y addressing mode, where X and Y are both
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5871 +; index registers. This will only get generated via the peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5872 +; which removes a sign extension.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5873 +(define_insn "*addhi_b"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5874 + [(set (match_operand:HI 0 "index_register_operand" "=a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5875 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5876 + (match_operand:QI 2 "register_operand" "q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5877 + ))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5878 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5879 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5880 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5881 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5882 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5883 +; Splitter for addhi pattern #5 below
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5884 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5885 + [(set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5886 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5887 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5888 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5889 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5890 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5891 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5892 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5893 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5894 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5895 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5896 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5897 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5900 +; Splitter for addhi pattern #7 below
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5901 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5902 + [(set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5903 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5904 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5905 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5906 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5907 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5908 + (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5909 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5910 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5911 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5912 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5913 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5914 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5915 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5916 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5917 +; TODO - this is ugly. During RTL generation, we don't know what registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5918 +; are available, so the multiple-insn sequences can only be solved
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5919 +; via 'define_split's during matching. See andhi3 for an example.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5920 +; Keep the constraints with ? modifiers to help reload pick the right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5921 +; registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5922 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5923 +; The forms are:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5924 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5925 +; to avoid this even happening...)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5926 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5927 +; now, is this a better way?)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5928 +; 3. Best choice: 'addd'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5929 +; 4. Next best choice: 'lea'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5930 +; 5. Hybrid of 3 and 4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5931 +; 6. Same as 4, not bad
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5932 +; 7. BAD, no D register at all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5933 +; 8. 'lea', as good as 4.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5934 +(define_insn "addhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5935 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5936 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5937 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5938 + ))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5939 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5940 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5941 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5942 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5943 + add%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5944 + lea%0\t%1,%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5945 + #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5946 + lea%0\t%2,%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5947 + #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5948 + lea%0\t%a2,%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5949 + [(set_attr "length" "2,6,*,*,7,*,7,*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5950 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5951 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5952 +(define_insn "addqi3_carry"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5953 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5954 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5955 + (match_operand:QI 1 "whole_general_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5956 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5957 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5958 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5959 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5960 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5961 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5962 +; TODO: specifying 'A' for the first constraint, to force into the A register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5963 +; is not working because of the way registers are currently set up. This will
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5964 +; take some work to get right. Thus the second alternative as a backup.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5965 +(define_insn "addqi3_decimal"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5966 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5967 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5968 + (match_operand:QI 1 "general_operand" "%0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5969 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5970 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5971 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5972 + adda\t%2\;daa
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5973 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5974 + [(set_attr "length" "5,9")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5975 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5976 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5977 +(define_insn "addqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5978 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5979 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5980 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5981 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5982 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5983 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5984 + inc%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5985 + dec%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5986 + inc\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5987 + dec\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5988 + add%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5989 + [(set_attr "length" "1,1,1,3,3,*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5990 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5992 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5993 +;;- Subtract instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5994 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5996 +(define_insn "subsi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5997 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5998 + (minus:SI (match_operand:SI 1 "general_operand" " o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5999 + (match_operand:SI 2 "general_operand" " oi")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6000 + (clobber (match_scratch:HI 3 "=d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6001 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6002 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6003 + m6809_output_addsi3 (MINUS, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6004 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6005 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6006 + [(set_attr "length" "21")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6007 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6008 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6009 +(define_insn "subhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6010 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6011 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6012 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6013 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6014 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6015 + sub%0\t%2\t;subhi: R:%0 -= %2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6016 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6017 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6018 + [(set_attr "length" "*,5,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6019 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6020 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6021 +(define_insn "subqi3_carry"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6022 + [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6023 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6024 + (match_operand:QI 1 "whole_general_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6025 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6026 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6027 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6028 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6031 +(define_insn "subqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6032 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6033 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6034 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6035 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6036 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6037 + dec%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6038 + sub%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6039 + dec%0\;neg%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6040 + sub%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6041 + [(set_attr "length" "1,3,2,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6042 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6043 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6044 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6045 +;;- Multiply instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6046 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6047 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6048 +; TODO - merge these two instructions, using 'extend_operator' to match
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6049 +; either signed or zero extension. Everything else is the same.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6050 +(define_insn "mulqihi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6051 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6052 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6053 + (match_operand:QI 2 "general_operand" "tmK")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6054 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6055 + "lda\t%2\t;mulqihi3\;mul"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6056 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6057 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6059 +(define_insn "umulqihi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6060 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6061 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6062 + (match_operand:QI 2 "general_operand" "tmK")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6063 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6064 + "lda\t%2\t;umulqihi3\;mul"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6065 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6067 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6068 +; Expand a 16x16 multiplication into either a libcall or a shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6069 +; If the second operand is a small constant, use the above form.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6070 +; Otherwise, do a libcall.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6071 +(define_expand "mulhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6072 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6073 + (mult:HI (match_operand:HI 1 "general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6074 + (match_operand:HI 2 "nonmemory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6075 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6076 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6077 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6078 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6079 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6080 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6081 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6082 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6083 +;;- Divide instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6084 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6085 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6086 +(define_expand "divhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6087 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6088 + (div:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6089 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6090 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6091 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6092 + emit_libcall_insns (HImode, "divhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6093 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6094 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6096 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6097 +(define_expand "divqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6098 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6099 + (div:QI (match_operand:QI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6100 + (match_operand:QI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6101 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6102 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6103 + emit_libcall_insns (QImode, "divqi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6104 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6105 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6106 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6107 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6108 +(define_expand "udivhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6109 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6110 + (udiv:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6111 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6112 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6113 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6114 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6115 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6116 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6117 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6119 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6120 +;;- mod
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6121 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6122 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6123 +(define_expand "modhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6124 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6125 + (mod:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6126 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6127 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6128 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6129 + emit_libcall_insns (HImode, "modhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6130 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6131 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6132 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6134 +(define_expand "modqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6135 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6136 + (mod:QI (match_operand:QI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6137 + (match_operand:QI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6138 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6139 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6140 + emit_libcall_insns (QImode, "modqi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6141 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6142 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6145 +(define_expand "umodhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6146 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6147 + (umod:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6148 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6149 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6150 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6151 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6152 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6153 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6156 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6157 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6158 +;;- and, or, xor common patterns
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6159 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6161 +; Split a bitwise HImode into two QImode instructions, with one of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6162 +; the sources in a pushable register. The register is pushed onto
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6163 +; the stack and memory pop operands (,s+) are used in the QI forms.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6164 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6165 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6166 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6167 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6168 + (match_operand:HI 2 "register_operand" "")]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6169 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6170 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6171 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6172 + [(reg:QI HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6173 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6174 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6175 + [(reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6177 + (use (reg:QI HARD_A_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6178 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6179 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6180 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6181 +; Split a bitwise HImode into two QImode instructions, with one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6182 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6183 +; reference. This requires dereferencing the pointer into a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6184 +; temporary register (X), which must be saved/restored around the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6185 +; compute instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6186 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6187 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6188 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6189 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6190 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6191 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6192 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6193 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6194 + (set (match_dup 4) (match_dup 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6195 + (set (match_dup 4) (mem:HI (match_dup 4)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6196 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6197 + [(reg:QI HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6198 + (mem:QI (post_inc:QI (match_dup 4)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6199 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6200 + [(reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6201 + (mem:QI (post_inc:QI (match_dup 4)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6202 + (use (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6203 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6204 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6205 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6206 + /* Use X for a temporary index register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6207 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6208 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6209 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6210 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6211 +; Split a bitwise HImode into two QImode instructions. This is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6212 +; the common case. This handles splitting when neither of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6213 +; above two cases applies.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6214 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6215 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6216 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6217 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6218 + (match_operand:HI 2 "general_operand" "")]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6219 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6220 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6221 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6222 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6223 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6224 + (use (reg:QI HARD_A_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6225 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6226 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6227 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6228 + operands[4] = gen_rtx_const_high (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6229 + operands[5] = gen_rtx_const_low (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6230 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6231 + else if ((GET_CODE (operands[2]) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6232 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6233 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6234 + FAIL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6235 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6236 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6237 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6238 + operands[4] = gen_highpart (QImode, operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6239 + operands[5] = gen_lowpart (QImode, operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6240 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6241 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6243 +; Below are the specific cases for each of the operators.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6244 +; The QImode versions are the simplest and can be implemented
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6245 +; directly on the hardware. The HImode cases are all output
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6246 +; using one of the above splitting techniques.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6247 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6248 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6249 +;;- and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6250 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6251 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6252 +(define_insn "andhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6253 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6254 + (and:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6255 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6256 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6257 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6258 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6259 +;; it is not clear that this is correct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6260 +(define_insn "*andqi_2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6261 + [(set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6262 + (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6263 + (and:QI (match_operand:QI 1 "register_operand" "q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6264 + (match_operand 2 "const_int_operand" "i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6265 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6266 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6267 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6268 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6269 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6270 + return "and%0\t%3";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6271 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6273 + return "and%0\t%2";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6274 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6275 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6276 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6277 +(define_insn "andqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6278 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6279 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6280 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6281 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6282 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6283 + clr%0\t;andqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6284 + \t;andqi(-1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6285 + and%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6286 + and%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6287 + [(set_attr "length" "1,0,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6288 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6290 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6291 +;;- or
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6292 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6293 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6294 +(define_insn "iorhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6295 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6296 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6297 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6298 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6299 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6300 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6301 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6302 +(define_insn "iorqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6303 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6304 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6305 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6306 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6307 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6308 + \t;iorqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6309 + or%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6310 + or%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6311 + [(set_attr "length" "0,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6312 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6313 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6314 +;;- xor
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6315 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6316 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6317 +(define_insn "xorhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6318 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6319 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6320 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6321 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6322 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6324 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6325 +(define_insn "xorqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6326 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6327 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6328 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6329 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6330 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6331 + \t;xorqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6332 + com%0\t;xorqi(-1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6333 + eor%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6334 + eor%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6335 + [(set_attr "length" "0,1,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6336 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6337 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6338 +;;- Two's Complements
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6339 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6340 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6341 +(define_insn "neghi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6342 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6343 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6344 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6345 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6346 + nega\;negb\;sbca\t#0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6347 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6348 + [(set_attr "length" "5,9")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6350 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6351 +(define_insn "negqi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6352 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6353 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6354 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6355 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6356 + neg%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6357 + neg\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6358 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6360 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6361 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6362 +;;- One's Complements
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6363 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6364 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6365 +(define_insn "one_cmplhi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6366 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6367 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6368 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6369 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6370 + coma\;comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6371 + com\t%0\;com\t%L0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6372 + exg\td,%0\;coma\;comb\;exg\td,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6373 + [(set_attr "length" "2,6,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6374 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6375 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6376 +(define_insn "one_cmplqi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6377 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6378 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6379 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6380 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6381 + com%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6382 + com\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6383 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6384 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6385 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6386 +;;- Shifts/rotates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6387 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6388 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6389 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6390 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6392 +(define_mode_iterator bit_mode [QI HI])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6393 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6395 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6397 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6398 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6399 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6400 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6401 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6402 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6403 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6405 +; Individual instructions implemented in the CPU.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6406 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6407 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6408 +(define_insn "*ashift1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6409 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6410 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6411 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6412 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6413 + asl\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6414 + asl%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6415 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6417 +(define_insn "*lshiftrt1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6418 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6419 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6420 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6421 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6422 + lsr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6423 + lsr%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6424 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6426 +(define_insn "*ashiftrt1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6427 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6428 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6429 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6430 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6431 + asr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6432 + asr%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6433 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6435 +(define_insn "*rotate1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6436 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6437 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6438 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6439 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6440 + rol\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6441 + rol%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6442 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6445 +(define_insn "*rotatert1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6446 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6447 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6448 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6449 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6450 + ror\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6451 + ror%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6452 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6453 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6454 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6455 +; A shift by 8 for D reg can be optimized by just moving
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6456 +; between the A/B halves, and then zero/sign extending or
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6457 +; filling in zeroes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6458 +; Because GCC does not understand that 'A' and 'D' refer to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6459 +; the same storage location, we must use 'USE' throughout
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6460 +; to prevent deletion of 'unnecessary' instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6461 +; Similar optimization for MEM would require a scratch register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6462 +; so is not done here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6463 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6464 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6465 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6466 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6467 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6468 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6469 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6470 + (use (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6471 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6472 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6473 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6474 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6475 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6476 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6477 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6478 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6479 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6480 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6481 + (use (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6482 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6483 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6484 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6485 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6486 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6487 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6488 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6489 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6490 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6491 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6492 + (use (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6493 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6494 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6495 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6496 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6498 +; On the WPC hardware, there is a shift register that can be used
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6499 +; to compute (1<<n) efficiently in two instructions. Note that this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6500 +; form only works when using -mint8 though, because C will promote
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6501 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6502 +(define_insn "ashlqi3_wpc"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6503 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6504 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6505 + (match_operand:QI 2 "general_operand" "q")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6506 + "TARGET_WPC"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6507 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6508 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6509 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6510 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6511 +; Internal instructions for shifting by a constant.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6512 +; Two forms are provided, one for QImode, one for HImode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6513 +; These are always split into the above instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6514 +; (except for QImode forms that directly match one of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6515 +; above instructions, in which the condition will not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6516 +; allow the splitter to match).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6517 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6518 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6519 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6520 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6521 + (match_operand:HI 2 "immediate_operand" "n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6522 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6523 + "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6524 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6525 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6526 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6527 + m6809_split_shift (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6528 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6529 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6530 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6531 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6532 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6533 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6534 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6535 + (match_operand:QI 2 "immediate_operand" "n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6536 + "INTVAL (operands[2]) > 1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6537 + "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6538 + "&& reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6539 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6540 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6541 + m6809_split_shift (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6542 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6543 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6544 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6545 +; Internal instructions for shifting by a nonconstant.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6546 +; These expand into complex assembly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6548 +(define_insn "<bit_code:bit_code_name>hi3_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6549 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6550 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6551 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6552 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6553 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6554 + m6809_output_shift_insn (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6555 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6556 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6557 + [(set_attr "length" "20")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6558 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6559 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6560 +(define_insn "<bit_code:bit_code_name>qi3_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6561 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6562 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6563 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6564 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6565 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6566 + m6809_output_shift_insn (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6567 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6568 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6569 + [(set_attr "length" "16")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6571 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6572 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6573 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6574 +;;- Jumps and transfers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6575 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6577 +;;; The casesi pattern is normally *not* defined; see 'tablejump' instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6578 +(define_expand "casesi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6579 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6580 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6581 + (match_operand:HI 2 "immediate_operand" "") ; total range
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6582 + (match_operand 3 "" "") ; table label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6583 + (match_operand 4 "" "")] ; out of range label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6584 + "TARGET_BYTE_INT && TARGET_CASESI"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6585 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6586 + m6809_do_casesi (operands[0], operands[1], operands[2],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6587 + operands[3], operands[4]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6588 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6589 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6590 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6591 +(define_insn "tablejump_short_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6592 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6593 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6594 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6595 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6596 + "jmp\t[b,x]\t;tablejump_short_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6597 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6598 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6599 +(define_insn "tablejump_long_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6600 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6601 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6602 + (match_operand:HI 0 "register_operand" "d"))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6603 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6604 + "jmp\t[d,x]\t;tablejump_long_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6605 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6606 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6607 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6608 + ;; A tablejump operation gives the address in operand 0, with the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6609 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6610 + ;; shows the arguments as GCC presents them. For a register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6611 + ;; operand, the assembly code is straightforward. For a MEM,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6612 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6613 + ;; and one for PIC mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6614 + (define_expand "tablejump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6615 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6616 + (set (pc) (match_operand:HI 0 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6617 + (use (label_ref (match_operand 1 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6618 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6619 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6620 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6621 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6622 + })
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6623 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6625 +(define_insn "*tablejump_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6626 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6627 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6628 + (match_operand:HI 0 "register_operand" "a"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6629 + (use (label_ref (match_operand 1 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6630 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6631 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6632 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6633 + "jmp\t,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6634 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6635 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6636 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6637 +(define_insn "*tablejump_symbol"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6638 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6639 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6640 + (mem:HI
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6641 + (plus:HI (match_operand:HI 0 "register_operand" "a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6642 + (label_ref (match_operand 1 "" "")))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6643 + (use (label_ref (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6644 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6645 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6646 + "!flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6647 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6648 + output_asm_insn ("jmp\t[%a1,%0]", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6649 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6650 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6651 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6652 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6653 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6654 +(define_insn "*tablejump_symbol_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6655 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6656 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6657 + (mem:HI
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6658 + (plus:HI (match_operand:HI 0 "register_operand" "d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6659 + (label_ref (match_operand 1 "" "")))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6660 + (use (label_ref (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6661 + (clobber (match_scratch:HI 2 "=&a"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6662 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6663 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6664 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6665 + output_asm_insn ("lea%2\t%a1,pcr", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6666 + output_asm_insn ("ld%0\t%0,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6667 + output_asm_insn ("jmp\t%0,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6668 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6669 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6670 + [(set_attr "length" "8")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6671 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6672 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6673 +(define_insn "indirect_jump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6674 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6675 + (match_operand:HI 0 "register_operand" "a"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6676 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6677 + "jmp\t,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6678 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6679 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6680 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6681 +(define_insn "jump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6682 + [(set (pc) (label_ref (match_operand 0 "" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6683 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6684 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6685 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6686 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6687 + [(set (attr "type") (const_string "branch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6688 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6689 +; Output assembly for a condition branch instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6690 +(define_insn "*cond_branch"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6691 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6692 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6693 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6694 + (label_ref (match_operand 0 "" "")) (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6695 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6696 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6697 + return output_branch_insn ( GET_CODE(operands[1]),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6698 + operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6699 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6700 + [(set (attr "type") (const_string "cbranch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6703 +; Similar to above, but for a condition branch instruction that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6704 +; had its operands reversed at some point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6705 +(define_insn "*cond_branch_reverse"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6706 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6707 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6708 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6709 + (pc) (label_ref (match_operand 0 "" ""))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6710 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6711 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6712 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6713 + operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6714 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6715 + [(set (attr "type") (const_string "cbranch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6718 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6719 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6720 +;;- Calls
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6721 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6722 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6723 +;; Generate a call instruction for a function that does not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6724 +;; return a value. The expander is used during RTL generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6725 +;; The instructions below are used during matching; only one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6726 +;; of them will be used, depending on the type of function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6727 +;; being called. The different conditions are:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6728 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6729 +;; 1) far_functionp - is this a far function? Those need
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6730 +;; to be output as indirect calls through a far-function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6731 +;; handler.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6732 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6733 +;; 2) noreturn_functionp - if the function does not return,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6734 +;; we can use a 'jmp' instead of a 'jsr' to call it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6735 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6736 +;; 3) is PIC mode enabled? If so, we'll always use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6737 +;; relative calls (lbsr or lbra).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6738 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6739 +;; Note: not all combinations are fully supported, especially
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6740 +;; relating to PIC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6741 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6742 +;; The 'bsr' instruction is never generated.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6743 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6744 +(define_expand "call"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6745 + [(call (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6746 + (match_operand:HI 1 "general_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6747 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6748 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6749 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6750 +(define_insn "*call_nopic_far"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6751 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6752 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6753 + "far_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6754 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6755 + output_far_call_insn (operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6756 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6757 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6758 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6760 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6761 +; PIC forms come first, and should only match
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6762 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6763 +(define_insn "*call_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6764 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6765 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6766 + "flag_pic && !noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6767 + "lbsr\t%C0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6768 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6771 +(define_insn "*call_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6772 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6773 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6774 + "!noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6775 + "jsr\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6776 + [(set_attr "length" "3")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6777 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6779 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6780 +(define_insn "*call_noreturn_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6781 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6782 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6783 + "flag_pic && noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6784 + "lbra\t%C0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6785 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6787 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6788 +(define_insn "*call_noreturn_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6789 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6790 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6791 + "noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6792 + "jmp\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6793 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6794 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6796 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6797 +;; Same as above, but for functions that do return a value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6798 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6799 +(define_expand "call_value"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6800 + [(set (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6801 + (call (match_operand:HI 1 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6802 + (match_operand:HI 2 "general_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6803 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6804 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6805 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6806 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6807 +(define_insn "*call_value_far"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6808 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6809 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6810 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6811 + "far_functionp (operands[1])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6812 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6813 + output_far_call_insn (operands, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6814 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6815 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6816 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6818 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6819 +(define_insn "*call_value_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6820 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6821 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6822 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6823 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6824 + "lbsr\t%C1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6825 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6828 +(define_insn "*call_value_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6829 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6830 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6831 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6832 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6833 + "jsr\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6834 + [(set_attr "length" "3")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6835 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6837 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6838 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6839 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6840 +;; How to generate an untyped call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6841 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6842 +(define_expand "untyped_call"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6843 + [(parallel [(call (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6844 + (const_int 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6845 + (match_operand 1 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6846 + (match_operand 2 "" "")])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6847 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6848 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6849 + int i;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6850 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6851 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6852 + for (i=0; i < XVECLEN (operands[2], 0); i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6853 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6854 + rtx set = XVECEXP (operands[2], 0, i);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6855 + emit_move_insn (SET_DEST (set), SET_SRC (set));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6856 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6857 + emit_insn (gen_blockage ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6858 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6859 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6860 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6861 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6862 +(define_expand "sibcall"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6863 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6864 + [(call (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6865 + (match_operand:HI 1 "immediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6866 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6867 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6868 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6869 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6870 +(define_insn "*sibcall_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6871 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6872 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6873 + (match_operand:HI 1 "immediate_operand" "i"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6874 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6875 + "SIBLING_CALL_P(insn)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6876 + "jmp\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6877 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6878 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6879 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6880 +(define_expand "sibcall_value"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6881 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6882 + [(set (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6883 + (call (match_operand:HI 1 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6884 + (match_operand:HI 2 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6885 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6886 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6887 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6888 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6889 +(define_insn "*sibcall_value_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6890 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6891 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6892 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6893 + (match_operand:HI 2 "immediate_operand" "i")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6894 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6895 + "SIBLING_CALL_P(insn)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6896 + "jmp\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6897 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6900 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6901 +;;- Function Entry and Exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6902 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6903 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6904 +;; On entry to a function, the stack frame looks as follows:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6905 +;; - return address (pushed by the caller)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6906 +;; - saved registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6907 +;; - local variable storage
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6908 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6909 +;; If the function does not modify the stack after that, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6910 +;; any of these can be accessed directly as an offset from
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6911 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6912 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6913 +;; and all references to the stack frame will use that as a base instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6914 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6915 +(define_expand "prologue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6916 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6917 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6918 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6919 + emit_prologue_insns ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6920 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6921 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6922 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6923 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6924 +;; The function epilogue does exactly the reverse of the prologue,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6925 +;; deallocating local variable space, restoring saved registers,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6926 +;; and returning.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6927 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6928 +;; For the 6809, the return may be 'rti' if the function was
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6929 +;; declared as an interrupt function, but is normally 'rts'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6930 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6931 +;; Also, as an optimization, the register restore and the 'rts'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6932 +;; can be combined into a single instruction, by adding 'PC' to the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6933 +;; list of registers to be restored. This is only done if there are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6934 +;; any saved registers, as 'rts' is more efficient by itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6935 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6936 +(define_expand "epilogue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6937 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6938 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6939 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6940 + emit_epilogue_insns (false);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6941 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6942 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6944 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6945 +(define_expand "sibcall_epilogue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6946 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6947 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6948 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6949 + emit_epilogue_insns (true);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6950 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6951 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6953 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6954 +;; The RTS instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6955 +(define_insn "return_rts"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6956 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6957 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6958 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6959 + && m6809_get_live_regs () == 0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6960 + "rts"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6961 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6962 + (set (attr "cycles") (const_int RTS_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6964 +(define_insn "return_puls_pc"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6965 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6966 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6967 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6968 + && m6809_get_live_regs () != 0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6969 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6970 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6971 + (set (attr "cycles") (const_int RTS_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6972 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6973 +;; The RTI instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6974 +(define_insn "return_rti"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6975 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6976 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6977 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6978 + "rti"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6979 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6980 + (set (attr "cycles") (const_int RTI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6982 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6983 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6984 +;;- Unspecified instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6985 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6986 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6987 +;; An instruction that has the effect of an unspec_volatile, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6988 +;; which doesn't require emitting any assembly code.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6989 +(define_insn "blockage"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6990 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6991 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6992 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6993 + [(set_attr "length" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6994 + (set (attr "cycles") (const_int 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6996 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6997 +;; Say how to push multiple registers onto the stack, using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6998 +;; the 6809 'pshs' instruction. The operand is a regset
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6999 +;; specifying which registers to push.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7000 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7001 +;; The operand mode is not given intentionally, so as to allow
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7002 +;; any possible integer mode for the regset.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7003 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7004 +;; See below for a peephole that can combine consecutive push
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7005 +;; instructions that qualify for merging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7006 +(define_insn "register_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7007 + [(use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7008 + (unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7009 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7010 + (clobber (reg:HI HARD_S_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7011 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7012 + "pshs\t%R0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7013 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7014 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7015 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7016 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7017 +;; Say how to pop multiple registers from the stack, using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7018 +;; the 6809 'puls' instruction. The operand is the register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7019 +;; bitset value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7020 +(define_insn "register_pop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7021 + [(use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7022 + (unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7023 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7024 + (clobber (reg:HI HARD_S_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7025 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7026 + "puls\t%R0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7027 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7028 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7031 +(define_insn "m6809_swi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7032 + [(unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7033 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7034 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7035 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7036 + swi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7037 + swi%c0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7038 + [(set_attr "length" "1,2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7039 + (set (attr "cycles") (const_int SWI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7040 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7041 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7042 +;; Generate the CWAI instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7043 +(define_insn "m6809_cwai"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7044 + [(unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7045 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7046 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7047 + "cwai\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7048 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7049 + (set (attr "cycles") (const_int CWAI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7050 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7051 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7052 +;; Generate the SYNC instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7053 +(define_insn "m6809_sync"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7054 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7055 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7056 + "sync"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7057 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7058 + (set (attr "cycles") (const_int SYNC_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7059 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7060 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7061 +;; Generate the NOP instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7062 +(define_insn "nop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7063 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7064 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7065 + "nop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7066 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7067 + (set (attr "cycles") (const_int NOP_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7068 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7069 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7070 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7071 +;;- Peepholes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7072 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7073 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7074 +;;; Each peephole has an ID that is used for debugging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7075 +;;; Each peephole condition is bracketed by calls to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7076 +;;; m6809_match_peephole2() also for debugging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7077 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7078 + (PEEP_END 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7079 + (PEEP_COND 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7080 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7081 + (PEEP_STACK_STORE_INC 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7082 + (PEEP_STACK_CLEAR_INC 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7083 + (PEEP_LSRB_ADCB 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7084 + (PEEP_ABX 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7085 + (PEEP_ABX2 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7086 + (PEEP_INDEXED_INC 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7087 + (PEEP_MEM_DEC 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7088 + (PEEP_MEM_INC 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7089 + (PEEP_MEM_DEC_CMP 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7090 + (PEEP_PUSH2 9)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7091 + (PEEP_STORE_IMPLIES_CC 10)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7092 + (PEEP_DEC_IMPLIES_CC 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7093 + (PEEP_LEAB 12)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7094 + (PEEP_LDX_INDIRECT 13)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7095 + (PEEP_POP_JUNK 14)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7096 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7097 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7099 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7100 +;;; function prologue needs to allocate stack space and 'b' is placed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7101 +;;; into that local right away. Combine the stack allocation with the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7102 +;;; store using preincrement mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7103 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7104 + [(set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7105 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7106 + (set (mem:QI (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7107 + (match_operand:QI 0 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7108 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7109 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7110 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7111 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7112 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7113 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7114 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7115 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7116 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7117 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7118 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7119 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7120 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7121 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7122 +;;; Merge two consecutive push instructions into a single register_push.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7123 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7124 + [(set (match_operand 0 "push_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7125 + (match_operand 1 "register_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7126 + (set (match_operand 2 "push_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7127 + (match_operand 3 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7128 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7129 + && reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7130 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7131 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7132 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7133 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7134 + (use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7135 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7136 + (clobber (reg:HI HARD_S_REGNUM))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7137 + (use (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7138 + (use (match_dup 3))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7139 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7140 + operands[4] = gen_rtx_CONST_INT (QImode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7141 + (1 << REGNO (operands[1])) | (1 << REGNO (operands[3])));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7142 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7145 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7146 +;;; notation, so that it may be combined with an adjacent regset.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7147 +;;; TBD - this doesn't compile some code cleanly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7148 +;(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7149 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7150 +; (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7151 +; "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7152 +; [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7153 +; (use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7154 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7155 +; (clobber (reg:HI HARD_S_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7156 +;{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7157 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7158 +;})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7159 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7161 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7162 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7163 +;;; won't overflow when q=0xFF.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7164 +;;; TODO : this form isn't accounting for promotion when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7165 +;;; using 16-bit ints.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7166 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7167 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7168 + [(set (reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7169 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7170 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7171 + "lsrb\;adcb\t#0; peephole"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7172 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7173 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7174 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7175 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7176 +;; Optimize the case of following a register store with a test
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7177 +;; of reg or mem just moved.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7178 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7179 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7180 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7181 + (match_operand:HI 1 "register_operand" "r"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7182 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7183 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7184 + && (operands[2] == operands[0] || operands[2] == operands[1])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7185 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7186 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7187 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7189 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7190 +;; Optimize a pair of SET instructions in which the second insn
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7191 +;; is the reverse of the first one. I.e.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7192 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7193 +;; A = B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7194 +;; ----> A = B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7195 +;; B = A
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7196 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7197 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7198 +;; But don't do this if either is a VOLATILE MEM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7199 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7200 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7201 + (match_operand:HI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7202 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7203 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7204 + [(set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7205 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7206 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7207 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7208 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7209 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7210 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7211 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7212 + [(set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7213 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7214 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7215 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7216 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7217 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7218 +;; if B and X can be used. Two patterns are provided to catch both
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7219 +;; X=X+D and X=D+X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7220 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7221 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7222 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7223 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7224 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7225 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7226 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7227 + "abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7228 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7229 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7230 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7231 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7232 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7233 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7234 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7235 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7236 + "abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7237 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7238 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7239 +;;; Likewise, handle when B is scaled by 2 prior to the add.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7240 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7241 +;;; time, in only 3 cycles.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7243 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7244 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7245 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7246 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7247 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7248 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7249 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7250 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7251 + "abx\;abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7252 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7254 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7255 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7256 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7257 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7258 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7259 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7260 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7261 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7262 + "abx\;abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7263 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7264 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7265 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7266 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7267 +;; Work around a compiler bug that generates bad code when copying
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7268 +;; between 32-bit memory addresses after a libcall. The problem seen is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7269 +;; that the source is MEM (REG X), but X is used as the reload register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7270 +;; The second half of the copy therefore fails.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7271 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7272 +;; The solution is to switch the reload register to D, since that is guaranteed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7273 +;; not to be in use right after a libcall.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7274 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7275 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7276 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7277 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7278 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7279 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7280 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7281 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7282 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7283 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7284 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7285 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7286 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7287 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7288 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7290 +;; Turn "and then test" into a "bit test" operation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7291 +;; Provide variants for immediate and memory sources
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7292 +;; This is the most used peephople.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7293 +; (define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7294 +; [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7295 +; (and:QI (match_operand:QI 1 "register_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7296 +; (match_operand:QI 2 "immediate_operand" "i")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7297 +; (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7298 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7299 +; "bit%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7300 +; [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7301 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7302 +; (define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7303 +; [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7304 +; (and:QI (match_operand:QI 1 "register_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7305 +; (match_operand:QI 2 "memory_operand" "m")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7306 +; (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7307 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7308 +; "bit%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7309 +; [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7310 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7311 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7312 +;; Turn a "decrement, then test" sequence into just a "decrement".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7313 +;; The test can be omitted, since it is implicitly done.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7314 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7315 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7316 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7317 + (match_operand:QI 2 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7318 + (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7319 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7320 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7321 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7324 +;; Merge an indexed register increment with a previous usage.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7325 +;; This is usually done automatically, but not always
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7326 +;; The 'use' should be optional; in all cases where this has been
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7327 +;; seen, it is required though.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7328 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7329 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7330 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7331 + (use (match_dup 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7332 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7333 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7334 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7335 + (use (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7336 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7337 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7338 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7339 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7340 +;;; the indirect mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7341 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7342 + [(set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7343 + (mem:HI (match_operand:HI 0 "general_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7344 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7345 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7346 + [(set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7347 + (mem:HI (mem:HI (match_dup 0))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7348 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7350 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7351 +;;; Reorder a store followed by a unary operation on that memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7352 +;;; so that the unary is performed and then the store. Consider
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7353 +;;; a binary shift operation, which will be decomposed into
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7354 +;;; identical single shifts, also.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7355 +;;; TODO - recognize more than just 'ashift' here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7356 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7357 + [(set (match_operand:QI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7358 + (match_operand:QI 1 "register_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7359 + (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7360 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7361 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7362 + [(set (match_dup 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7363 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7364 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7365 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7367 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7368 +;;; is done first, then use the REG instead of the MEM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7369 +;;;(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7370 +;;; [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7371 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7372 +;;; (set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7373 +;;; (match_operand:QI 1 "memory_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7374 +;;; "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7375 +;;; [(set (match_dup 0) (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7376 +;;; (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7377 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7378 +;;; "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7380 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7381 +;;; Replace sex; leaX d,Y with leaX b,Y.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7382 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7383 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7384 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7385 + (set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7386 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7387 + (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7388 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7389 + [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7390 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7391 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7392 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7393 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7394 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7395 + (set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7396 + (plus:HI (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7397 + (match_operand:HI 1 "index_register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7398 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7399 + [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7400 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7401 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7402 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7403 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7404 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7405 +;;; register is not needed, then the load will get deleted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7406 +;;; automatically, but it may be needed for comparisons.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7407 +;;; Same for incb/inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7408 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7409 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7410 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7411 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7412 + (set (match_dup 1) (match_dup 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7413 + (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7414 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7415 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7416 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7418 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7419 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7420 +;;; register is not needed, then the load will get deleted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7421 +;;; automatically, but it may be needed for comparisons.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7422 +;;; Same for incb/inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7423 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7424 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7425 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7426 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7427 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7428 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7429 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7430 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7431 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7432 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7433 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7434 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7435 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7436 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7437 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7438 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7439 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7440 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7441 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7442 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7444 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7445 +;;; that the branch can never occur because of the limited range of B.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7446 +;;; N must be a power of two for this to make sense. This helps with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7447 +;;; the default cases of switch statements on a value (x & N).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7448 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7449 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7450 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7451 + (set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7452 + (compare (match_dup 0) (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7453 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7454 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7455 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7456 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7457 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7459 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7460 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7461 +;;; <mem> must be offsettable for the instruction to match.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7462 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7463 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7464 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7465 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7466 + "reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7467 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7468 + && peep2_reg_dead_p (3, operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7469 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7470 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7471 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7472 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7473 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7474 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7475 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7476 + "reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7477 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7478 + && peep2_reg_dead_p (3, operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7479 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7480 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7481 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7482 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7483 +;;; Replace a load or store using an indexed register, followed by an increment of that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7484 +;;; register, with the combined form using autoincrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7485 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7486 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7487 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7488 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7489 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7490 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7491 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7492 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7493 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7494 +;;- mode:emacs-lisp
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7495 +;;- comment-start: ";;- "
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7496 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7497 +;;- eval: (modify-syntax-entry ?[ "(]")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7498 +;;- eval: (modify-syntax-entry ?] ")[")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7499 +;;- eval: (modify-syntax-entry ?{ "(}")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7500 +;;- eval: (modify-syntax-entry ?} "){")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7501 +;-; vim: set ts=2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7502 +;-; vim: set expandtab:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7503 +;-; vim: set filetype=lisp:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7504 +;;- End:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7505 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7506 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7507 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7508 @@ -0,0 +1,98 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7509 +; Options for the M6809 port of the compiler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7510 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7511 +; Copyright (C) 2005 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7512 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7513 +; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7514 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7515 +; GCC is free software; you can redistribute it and/or modify it under
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7516 +; the terms of the GNU General Public License as published by the Free
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7517 +; Software Foundation; either version 2, or (at your option) any later
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7518 +; version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7519 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7520 +; GCC is distributed in the hope that it will be useful, but WITHOUT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7521 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7522 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7523 +; License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7524 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7525 +; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7526 +; along with GCC; see the file COPYING. If not, write to the Free
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7527 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7528 +; 02110-1301, USA.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7530 +margcount
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7531 +Target Mask(ARGCOUNT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7532 +Push argument count
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7533 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7534 +mint8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7535 +Target RejectNegative Mask(BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7536 +Use 8-bit integers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7537 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7538 +mint16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7539 +Target RejectNegative
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7540 +Use 16-bit integers InverseMask(BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7541 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7542 +mreg-args
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7543 +Target Mask(REG_ARGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7544 +Use registers for function arguments
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7545 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7546 +mshort_size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7547 +Target RejectNegative Mask(SMALL_SIZE_T)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7548 +Use 8-bit size_t
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7549 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7550 +mlong_size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7551 +Target RejectNegative InverseMask(SMALL_SIZE_T)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7552 +Use 16-bit size_t
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7553 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7554 +mdirect
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7555 +Target Mask(DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7556 +Enable direct addressing
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7557 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7558 +mwpc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7559 +Target RejectNegative Mask(WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7560 +Enable WPC platform extensions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7561 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7562 +mexperiment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7563 +Target RejectNegative Mask(EXPERIMENT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7564 +Enable current experimental feature
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7565 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7566 +m6309
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7567 +Target RejectNegative Mask(6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7568 +Enable Hitachi 6309 extensions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7569 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7570 +mcasesi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7571 +Target RejectNegative Mask(CASESI)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7572 +Enable the casesi pattern
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7573 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7574 +mfar-code-page=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7575 +Target RejectNegative Joined Var(far_code_page_option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7576 +Sets the far code page value for this compilation unit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7578 +mcode-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7579 +Target RejectNegative Joined Var(code_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7580 +Sets the name of the section for code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7581 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7582 +mdata-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7583 +Target RejectNegative Joined Var(data_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7584 +Sets the name of the section for initialized data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7585 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7586 +mbss-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7587 +Target RejectNegative Joined Var(bss_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7588 +Sets the name of the section for uninitialized data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7589 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7590 +mabi_version=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7591 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7592 +Sets the calling convention
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7593 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7594 +msoft-reg-count=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7595 +Target RejectNegative Joined Var(m6809_soft_reg_count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7596 +Sets the number of soft registers that can be used
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7597 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7598 +mdret
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7599 +Target RejectNegative Mask(DRET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7600 +Put function call results in D, not X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7602 +mfar-stack-param
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7603 +Target Mask(FAR_STACK_PARAM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7604 +Enable stack parameters to a farcall
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7605 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7606 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7607 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7608 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7609 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7610 @@ -0,0 +1,94 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7611 +/* GCC for 6809 : machine-specific function prototypes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7613 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7615 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7616 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7617 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7618 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7619 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7620 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7621 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7622 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7623 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7625 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7626 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7627 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7629 +#ifndef __M6809_PROTOS_H__
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7630 +#define __M6809_PROTOS_H__
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7631 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7632 +void print_options (FILE *file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7633 +void m6809_cpu_cpp_builtins (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7634 +void m6809_override_options (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7635 +void m6809_init_builtins (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7636 +unsigned int m6809_get_live_regs (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7637 +const char * m6809_get_regs_printable (unsigned int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7638 +unsigned int m6809_get_regs_size (unsigned int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7639 +int m6809_function_has_type_attr_p (tree decl, const char *);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7640 +int m6809_current_function_has_type_attr_p (const char *);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7641 +int prologue_epilogue_required (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7642 +int noreturn_functionp (rtx x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7643 +void output_function_prologue (FILE *file, int size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7644 +void output_function_epilogue (FILE *file, int size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7645 +int check_float_value (enum machine_mode mode, double *d, int overflow);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7646 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7647 +void m6809_asm_file_start (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7648 +void m6809_output_ascii (FILE *fp, const char *str, unsigned long size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7649 +void m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7650 +void m6809_reorg (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7651 +int m6809_current_function_is_void (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7652 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7653 +int m6809_function_value_regno_p (unsigned int regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7654 +void emit_prologue_insns (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7655 +void emit_epilogue_insns (bool);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7656 +void m6809_conditional_register_usage (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7657 +void m6809_output_quoted_string (FILE *asm_file, const char *string);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7658 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7659 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7660 +int power_of_two_p (unsigned int n);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7661 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7662 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7663 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7664 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7665 +int m6809_single_operand_operator (rtx exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7666 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7667 +#ifdef TREE_CODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7668 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7669 +#endif /* TREE_CODE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7671 +#ifdef RTX_CODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7672 +void print_direct_prefix (FILE *file, rtx addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7673 +void print_operand (FILE *file, rtx x, int code);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7674 +void print_operand_address (FILE *file, rtx addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7675 +void notice_update_cc (rtx exp, rtx insn);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7676 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7677 +rtx gen_rtx_const_high (rtx r);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7678 +rtx gen_rtx_const_low (rtx r);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7679 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7680 +void emit_libcall_insns (enum machine_mode mode, const char *name, rtx *operands, int count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7681 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7682 +void output_far_call_insn (rtx *operands, int has_return);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7683 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7684 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7685 +const char * far_functionp (rtx x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7686 +rtx m6809_function_value (const tree valtype, const tree func);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7687 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7688 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7689 +const char * m6809_get_decl_bank (tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7690 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7691 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7692 +const char * far_function_type_p (tree type);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7693 +void m6809_asm_trampoline_template(FILE *f);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7694 +bool m6809_frame_pointer_required (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7695 +int m6809_can_eliminate (int from, int to);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7696 +int m6809_initial_elimination_offset (int from, int to);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7697 +void m6809_emit_move_insn (rtx dst, rtx src);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7698 +void m6809_split_shift (enum rtx_code code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7699 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7700 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7702 +#endif /* RTX_CODE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7703 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7704 +#endif /* __M6809_PROTOS_H__ */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7705 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7706 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7707 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7708 @@ -0,0 +1,78 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7709 +;; Predicate definitions for Motorola 6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7710 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7711 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7712 +;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7713 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7714 +;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7715 +;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7716 +;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7717 +;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7718 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7719 +;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7720 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7721 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7722 +;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7723 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7724 +;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7725 +;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7726 +;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7727 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7728 +;; whole_register_operand is like register_operand, but it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7729 +;; does not allow SUBREGs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7730 +(define_predicate "whole_register_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7731 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7732 + (match_operand 0 "register_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7733 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7734 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7735 +;; A predicate that matches any index register. This can be used in nameless
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7736 +;; patterns and peepholes which need a 16-bit reg, but not D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7737 +(define_predicate "index_register_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7738 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7739 + (match_test "REGNO (op) == HARD_X_REGNUM || REGNO (op) == HARD_Y_REGNUM || REGNO (op) == HARD_U_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7740 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7742 +;; match only X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7743 +(define_predicate "register_operand_x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7744 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7745 + (match_test "REGNO (op) == HARD_X_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7746 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7747 +;; match only D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7748 +(define_predicate "register_operand_d"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7749 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7750 + (match_test "REGNO (op) == HARD_D_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7751 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7752 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7753 +;; Likwise, a replacement for general_operand which excludes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7754 +;; SUBREGs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7755 +(define_predicate "whole_general_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7756 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7757 + (match_operand 0 "general_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7758 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7760 +(define_predicate "add_general_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7761 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7762 + (match_operand 0 "general_operand")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7763 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7764 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7765 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7766 +(define_predicate "shift_count_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7767 + (and (match_code "const_int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7768 + (and (match_operand 0 "const_int_operand")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7769 + (match_test "INTVAL (op) == 1 || INTVAL (op) == 8"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7772 +;; A predicate that matches any bitwise logical operator. This
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7773 +;; allows for a single RTL pattern to be used for multiple operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7774 +(define_predicate "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7775 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7776 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7778 +;; A predicate that matches any shift or rotate operator. This
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7779 +;; allows for a single RTL pattern to be used for multiple operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7780 +(define_predicate "shift_rotate_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7781 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7782 + (match_code "rotate") (match_code "rotatert")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7783 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7784 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7785 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7787 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7788 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7789 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7790 @@ -0,0 +1,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7791 +# For a few minor differences in code generation on the CoCo...
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7792 +T_CFLAGS = -DTARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7794 +# For doing the startup differently on the CoCo...
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7795 +CRT0STUFF_T_CFLAGS += -DTARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7796 +# vim: set filetype=make:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7797 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7798 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7799 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7800 @@ -0,0 +1,64 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7801 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7802 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7803 +RANLIB_FOR_TARGET = true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7804 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7805 +# Stubs for libgcc defined by m6809 are here
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7806 +LIB1ASMSRC = m6809/libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7808 +# Here are the functions that are implemented within libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7809 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7810 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7811 + _ashlhi3 _ashrhi3 _lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7813 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7814 +# although the compile breaks without it. -DDF=SF is required to set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7815 +# the size of "double" to the same as the size of a "float".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7816 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7818 +LIB2ADDEH =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7819 +LIB2ADDEHSTATIC =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7820 +LIB2ADDEHSHARED =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7821 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7822 +LIBGCC2_DEBUG_CFLAGS =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7823 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7824 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7825 +# Multilib information
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7826 +# This creates multiple versions of libgcc.a for each set of incompatible
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7827 +# -mxxx options.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7828 +MULTILIB_OPTIONS = fpic mdret
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7829 +MULTILIB_DIRNAMES =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7830 +MULTILIB_MATCHES =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7831 +MULTILIB_EXCEPTIONS =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7832 +EXTRA_MULTILIB_PARTS = crt0.o
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7833 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7834 +LIBGCC = stmp-multilib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7835 +INSTALL_LIBGCC = install-multilib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7837 +# We want fine grained libraries, so use the new code to build the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7838 +# floating point emulation libraries.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7839 +FPBIT = fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7840 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7841 +fp-bit.c: $(srcdir)/config/fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7842 + echo '#define FLOAT' > fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7843 + echo '#define FLOAT_ONLY' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7844 + echo '#define CMPtype HItype' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7845 + echo '#define SMALL_MACHINE' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7846 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7847 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7848 + echo '#endif' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7849 + echo '#define DI SI' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7850 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7851 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7852 +# crt0.o is built from the following source file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7853 +CRT0_S = $(srcdir)/config/m6809/crt0.S
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7854 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7856 +# Flags to use when building crt0.o
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7857 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7859 +# Assemble startup files.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7860 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7861 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7862 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7863 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7864 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7865 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-proto gcc-4.6.4/gcc/config/m6809/t-proto
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7866 --- gcc-4.6.4-clean/gcc/config/m6809/t-proto 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7867 +++ gcc-4.6.4/gcc/config/m6809/t-proto 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7868 @@ -0,0 +1,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7869 +# For a few minor differences in code generation on a custom prototype.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7870 +T_CFLAGS = -DTARGET_PROTO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7871 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7872 +# For doing the startup differently on a custom prototype.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7873 +CRT0STUFF_T_CFLAGS += -DTARGET_PROTO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7874 +# vim: set filetype=make:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7875 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7876 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7877 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7878 @@ -0,0 +1 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7879 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7880 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7881 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7882 +++ gcc-4.6.4/gcc/config.gcc 2017-11-29 17:11:09.229248437 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7883 @@ -375,6 +375,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7884 cpu_type=m32r
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7885 extra_options="${extra_options} g.opt"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7886 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7887 +m6809-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7888 + cpu_type=m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7889 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7890 m68k-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7891 extra_headers=math-68881.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7892 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7893 @@ -1706,6 +1709,15 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7894 thread_file='posix'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7895 fi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7896 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7897 +m6809-coco-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7898 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7899 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7900 +m6809-proto-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7901 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-proto"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7902 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7903 +m6809-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7904 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7905 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7906 # m68hc11 and m68hc12 share the same machine description.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7907 m68hc11-*-*|m6811-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7908 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7909 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7910 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7911 +++ gcc-4.6.4/gcc/gcse.c 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7912 @@ -833,7 +833,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7913 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7914 if (max_distance == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7915 return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7916 -
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7917 gcc_assert (max_distance > 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7918 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7919 else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7920 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7921 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7922 +++ gcc-4.6.4/gcc/libgcc2.c 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7923 @@ -485,6 +485,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7924 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7925
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7926 #ifdef L_bswapsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7927 +#if MIN_UNITS_PER_WORD > 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7928 SItype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7929 __bswapsi2 (SItype u)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7930 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7931 @@ -494,7 +495,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7932 | (((u) & 0x000000ff) << 24));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7933 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7934 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7935 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7936 #ifdef L_bswapdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7937 +#if LONG_LONG_TYPE_SIZE > 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7938 DItype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7939 __bswapdi2 (DItype u)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7940 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7941 @@ -508,6 +511,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7942 | (((u) & 0x00000000000000ffull) << 56));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7943 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7944 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7945 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7946 #ifdef L_ffssi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7947 #undef int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7948 int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7949 @@ -1280,7 +1284,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7950 UDWtype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7951 __fixunssfDI (SFtype a)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7952 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7953 -#if LIBGCC2_HAS_DF_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7954 +#if LIBGCC2_HAS_DF_MODE || (FLT_MANT_DIG >= W_TYPE_SIZE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7955 /* Convert the SFtype to a DFtype, because that is surely not going
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7956 to lose any bits. Some day someone else can write a faster version
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7957 that avoids converting to DFtype, and verify it really works right. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7958 @@ -1298,7 +1302,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7959
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7960 /* Assemble result from the two parts. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7961 return ((UDWtype) hi << W_TYPE_SIZE) | lo;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7962 -#elif FLT_MANT_DIG < W_TYPE_SIZE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7963 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7964 if (a < 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7965 return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7966 if (a < Wtype_MAXp1_F)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7967 @@ -1334,8 +1338,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7968 return (DWtype)counter << shift;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7969 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7970 return -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7971 -#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7972 -# error
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7973 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7974 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7975 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7976 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7977 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7978 +++ gcc-4.6.4/gcc/longlong.h 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7979 @@ -528,6 +528,11 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7980 : "cbit")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7981 #endif /* __M32R__ */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7982
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7983 +#if defined (__m6309__) || defined (__m6809__)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7984 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7985 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7986 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7988 #if defined (__mc68000__) && W_TYPE_SIZE == 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7989 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7990 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7991 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7992 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7993 +++ gcc-4.6.4/gcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7994 @@ -2003,14 +2003,14 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7995
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7996 # Compile the start modules crt0.o and mcrt0.o that are linked with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7997 # every program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7998 -$(T)crt0.o: s-crt0 ; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7999 -$(T)mcrt0.o: s-crt0; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8000 +crt0.o: s-crt0 ; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8001 +mcrt0.o: s-crt0; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8002
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8003 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8004 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8005 - -o $(T)crt0.o -c $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8006 + -o crt0.o -c $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8007 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8008 - -o $(T)mcrt0.o -c $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8009 + -o mcrt0.o -c $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8010 $(STAMP) s-crt0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8011 #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8012 # Compiling object files from source files.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8013 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8014 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8015 +++ gcc-4.6.4/gcc/opth-gen.awk 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8016 @@ -121,7 +121,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8017 END {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8018 print "/* This file is auto-generated by opth-gen.awk. */"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8019 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8020 -print "#ifndef OPTIONS_H"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8021 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8022 print "#define OPTIONS_H"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8023 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8024 print "#include \"flag-types.h\""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8025 @@ -432,18 +432,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8026
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8027 for (i = 0; i < n_opts; i++) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8028 opt = opt_args("InverseMask", flags[i])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8029 - if (opt ~ ",") {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8030 - vname = var_name(flags[i])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8031 - macro = "OPTION_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8032 - mask = "OPTION_MASK_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8033 - if (vname == "") {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8034 - vname = "target_flags"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8035 - macro = "TARGET_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8036 - mask = "MASK_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8037 - }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8038 - print "#define " macro nth_arg(1, opt) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8039 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8040 - }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8041 + if (opt ~ ",")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8042 + print "#define TARGET_" nth_arg(1, opt) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8043 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8044 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8045 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8046
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8047 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8048 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8049 +++ gcc-4.6.4/gcc/tree.h 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8050 @@ -3563,6 +3563,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8051 TI_UINTDI_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8052 TI_UINTTI_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8053
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8054 + TI_UINT8_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8055 + TI_UINT16_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8056 TI_UINT32_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8057 TI_UINT64_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8058
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8059 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8060 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8061 +++ gcc-4.6.4/gcc/version.c 2017-11-29 17:11:34.133149157 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8062 @@ -21,16 +21,16 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8063
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8064 /* This is the location of the online document giving instructions for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8065 reporting bugs. If you distribute a modified version of GCC,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8066 - please configure with --with-bugurl pointing to a document giving
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8067 - instructions for reporting bugs to you, not us. (You are of course
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8068 - welcome to forward us bugs reported to you, if you determine that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8069 - they are not bugs in your modifications.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8070 + please change this to refer to a document giving instructions for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8071 + reporting bugs to you, not us. (You are of course welcome to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8072 + forward us bugs reported to you, if you determine that they are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8073 + not bugs in your modifications.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8074
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8075 -const char bug_report_url[] = BUGURL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8076 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8077
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8078 /* The complete version string, assembled from several pieces.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8079 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8080 Makefile. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8081
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8082 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8083 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw pl9)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8084 const char pkgversion_string[] = PKGVERSION;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8085 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8086 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8087 +++ gcc-4.6.4/libgcc/config.host 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8088 @@ -371,6 +371,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8089 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8090 m32rle-*-linux*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8091 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8092 +m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8093 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8094 m68hc11-*-*|m6811-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8095 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8096 m68hc12-*-*|m6812-*-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8097 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8098 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8099 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8100 @@ -23,7 +23,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8101 #$(info $o$(objext): -DL$($o-label) $($o-opt))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8102
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8103 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8104 - $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8105 + $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8106
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8107 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8108 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8109 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8110 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8111 +++ gcc-4.6.4/libgcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8112 @@ -374,8 +374,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8113 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8114 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8115 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8116 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8117 - $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8118 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8119 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8120 libgcc-objects += $(lib2funcs-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8121
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8122 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8123 @@ -410,8 +410,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8124 # Build LIB2_DIVMOD_FUNCS.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8125 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8126 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8127 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8128 - -fexceptions -fnon-call-exceptions $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8129 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8130 + $(gcc_compile) -DL$* -c $*.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8131 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8132 libgcc-objects += $(lib2-divmod-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8133
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8134 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8135 @@ -443,7 +444,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8136 ifneq ($(FPBIT),)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8137 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8138 $(fpbit-o): %$(objext): $(FPBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8140 + ln -sf $(FPBIT) $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8142 libgcc-objects += $(fpbit-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8143
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8144 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8145 @@ -458,7 +460,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8146 ifneq ($(DPBIT),)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8147 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8148 $(dpbit-o): %$(objext): $(DPBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8149 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8150 + ln -sf $(DPBIT) $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8151 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8152 libgcc-objects += $(dpbit-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8153
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8154 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8155 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8156 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8157 +++ gcc-4.6.4/README.LW 2017-11-29 17:11:09.189248596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8158 @@ -0,0 +1,14 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8159 +This is a port of gcc6809 which is designed to work with the lwtools
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8160 +cross-assembler and linker package. You will need several scripts from that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8161 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8162 +this. Instructions for building are present in the lwtools package.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8164 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8165 +Dominy (brian@oddchange.com) with some significant renovations to make it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8166 +work with gcc 4.6.4.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8167 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8168 +There is no guarantee that it will work for any particular purpose you
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8169 +choose to put it to.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8170 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8171 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8172 +contact the main GCC developers!