Mercurial > hg > index.cgi
annotate extra/gcc6809lw-4.6.4-9.patch @ 577:e49d24f4a9a5
Correct bug in the object file output code leading to stack corruption
It turns out leaving a pointer to a stack allocated temporary in a
persistent data structure is not conducive to correct program operation.
Undo the export check setup in the object file output sequence so a
pointer to stack allocated memory is not left hanging when the function
returns. This seems to correct at least one mysterious crash bug, and
possibly others.
Thanks to Boisy Pitre for reporting the crash bug that led to this
discovery, as well as a previous crash bug that likely has the same
root cause.
Additional thanks to Ciaran Anscomb whose debugger wielding wizardry
revealed the exact location of this particular bit of unbrilliance.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sat, 03 Aug 2024 14:30:06 -0600 |
| parents | 639d19f5fb8e |
| children |
| rev | line source |
|---|---|
|
447
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1 diff -urN gcc-4.6.4-clean/config.sub gcc-4.6.4/config.sub |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2 --- gcc-4.6.4-clean/config.sub 2010-05-25 07:22:07.000000000 -0600 |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3 +++ gcc-4.6.4/config.sub 2017-11-28 21:12:11.136911706 -0700 |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4 @@ -313,7 +313,7 @@ |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5 c6x) |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6 basic_machine=tic6x-unknown |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7 ;; |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
10 # Motorola 68HC11/12. |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
11 basic_machine=$basic_machine-unknown |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
12 os=-none |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
13 @@ -354,7 +354,7 @@ |
|
639d19f5fb8e
Source cleanups and "prototype" target for gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
14 | 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", §)) |
|
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! |