Mercurial > hg > index.cgi
annotate extra/gcc6809lw-4.6.4-4.patch @ 416:b4d0eafc5bfe
Fix code generation error in gcc6809
It turned out that under some circumstances, the gcc optimizer would select
an instruction sequence that had the sense of a branch inverted. It seems
this was due to a particular instruction pattern included in the machine
description not being quite right with respect to how the condition codes
were tracked. Removing that instruction pattern seems to fix things
(subtraction with the arguments reversed). gcc seems to be smart enough to
figure out how to reorganize code to work without this reversed sense
subtraction and then do the right thing.
author | William Astle <lost@l-w.ca> |
---|---|
date | Thu, 24 Mar 2016 20:07:20 -0600 |
parents | |
children |
rev | line source |
---|---|
416
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4 @@ -313,7 +313,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5 c6x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6 basic_machine=tic6x-unknown |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
10 # Motorola 68HC11/12. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
11 basic_machine=$basic_machine-unknown |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
12 os=-none |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
13 @@ -354,7 +354,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
14 | i*86-* | i860-* | i960-* | ia64-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
15 | ip2k-* | iq2000-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
16 | lm32-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
17 - | m32c-* | m32r-* | m32rle-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
18 + | m32c-* | m32r-* | m32rle-* | m6809-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
19 | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
20 | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
21 | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
22 @@ -509,6 +509,10 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
23 basic_machine=arm-unknown |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
24 os=-cegcc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
25 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
26 + coco) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
27 + basic_machine=coco |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
28 + os=-none |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
29 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
30 convex-c1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
31 basic_machine=c1-convex |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
32 os=-bsd |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
36 @@ -3439,6 +3439,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
37 m32r-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
38 noconfigdirs="$noconfigdirs ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
39 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
40 + m6809*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
42 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
43 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
45 libgloss_dir=m68hc11 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
49 @@ -885,6 +885,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
50 m32r-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
51 noconfigdirs="$noconfigdirs ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
52 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
53 + m6809*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
55 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
56 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
58 libgloss_dir=m68hc11 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
61 +++ gcc-4.6.4/gcc/calls.c 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
62 @@ -2561,7 +2561,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
63 call sequence. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
64 Also do the adjustments before a throwing call, otherwise |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
65 exception handling can fail; PR 19225. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
66 - if (pending_stack_adjust >= 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
67 + if (pending_stack_adjust >= 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
68 || (pending_stack_adjust > 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
69 && (flags & ECF_MAY_BE_ALLOCA)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
70 || (pending_stack_adjust > 0 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in 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 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
74 @@ -0,0 +1,173 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
75 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
77 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
78 +;;; This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
79 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
80 +;;; GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
81 +;;; it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
82 +;;; the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
83 +;;; any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
84 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
85 +;;; GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
88 +;;; GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
89 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
90 +;;; You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
91 +;;; along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
92 +;;; <http://www.gnu.org/licenses/>. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
93 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
94 + /* Declare external for main() */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
95 + .globl _main |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
96 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
97 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
98 +/* The startup is heavily dependent on the type of machine and |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
99 +OS environment that is available at the start point. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
100 +For the most part, the general idea is the same across machines, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
101 +but the implementation is vastly different. This is managed via |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
102 +conditional compiles throughout the startup code for each of the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
103 +supported machines. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
104 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
105 +#ifdef TARGET_COCO /* CoCo memory map */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
106 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
107 +#define COCO_RAMROM_MODE 0xFFDE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
108 +#define COCO_ALLRAM_MODE 0xFFDF |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
109 +#define COCO_PAGE1 0xFFD5 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
110 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
111 +/* SAM M1 and M0 adjusts the memory size */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
112 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
113 +#define BASIC_WARMSTART_FLAG 0x0071 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
114 +#define BASIC_START 0xA027 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
115 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
116 +#define __STACK_TOP 0x6800 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
117 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
118 +#else /* Simulator (default) memory map */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
119 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
120 +#define SIM_EXIT_REG 0xFF01 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
121 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
122 +#define __STACK_TOP 0xFE00 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
123 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
124 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
125 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
126 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
127 + .area .data |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
128 + .area .ctors |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
129 + .area .dtors |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
130 + .area .bss |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
131 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
133 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
134 + ;;; __exit : Exit point from the program |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
135 + ;;; For simulation, this writes to a special I/O register that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
136 + ;;; the simulator interprets as end-of-program. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
137 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
139 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
140 + .globl __exit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
141 +__exit: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
142 +#ifdef TARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
143 + ;; Go back to ROM/RAM mode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
144 + sta COCO_RAMROM_MODE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
145 + clr BASIC_WARMSTART_FLAG |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
146 + jmp BASIC_START |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
147 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
148 + tfr x,d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
149 + stb SIM_EXIT_REG |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
150 + bra __exit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
151 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
152 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
153 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
155 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
156 + ;;; __start : Entry point to the program |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
157 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
159 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
160 + .globl __start |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
161 +__start: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
162 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
163 +#ifdef HAVE_DIRECT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
164 + ;; Initialize the direct page pointer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
165 + lda #<s_.direct |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
166 + tfr a,dp |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
167 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
168 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
169 +#ifdef TARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
170 + ;; Turn off interrupts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
171 + orcc #(0x10|0x40) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
172 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
173 + ;; Setup All RAM Mode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
174 + sta COCO_ALLRAM_MODE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
175 +#endif /* TARGET_COCO */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
176 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
177 + ;; Initialize the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
178 + lds #__STACK_TOP - 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
179 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
180 + ;; Call any "initializer" functions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
181 + ldu #s_.ctors |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
182 +__ctors_loop: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
183 + ldy ,u++ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
184 + cmpy #0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
185 + beq __ctors_done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
186 + jsr ,y |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
187 + bra __ctors_loop |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
188 +__ctors_done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
189 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
190 + ;; Enable interrupts on the simulator |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
191 +#ifndef TARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
192 + andcc #~(0x10|0x40) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
193 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
194 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
195 + ;; Set up the environment |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
196 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
197 + ;; Set up argc/argv arrays |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
198 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
199 + ;; Call the main function. The exit code will |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
200 + ;; be returned in the X register, unless compiled |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
201 + ;; with -mdret, in which case it comes back in D. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
202 + jsr _main |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
203 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
204 + ;; Call any finalizer functions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
205 + ldu #s_.dtors |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
206 +__dtors_loop: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
207 + ldy ,u++ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
208 + cmpy #0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
209 + beq __dtors_done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
210 + jsr ,y |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
211 + bra __dtors_loop |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
212 +__dtors_done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
213 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
214 + ;; If main returns, then invoke _exit() to stop the program |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
215 + ;; The C library doesn't support -mdret yet, so move the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
216 + ;; argument first. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
217 +#ifdef __DRET__ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
218 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
219 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
220 + jmp _exit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
221 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
222 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
223 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
224 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
225 + ;;; __crt0_vector : Default handler for interrupts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
226 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
227 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
228 +___crt0_vector: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
229 + ;; The default behavior is to simply ignore all |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
230 + ;; non-reset interrupts. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
231 + rti |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
232 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
233 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
234 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
235 + ;;; vector : The interrupt vector table |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
237 + ;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
238 + .area vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
239 +vectors: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
240 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
241 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
242 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
243 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
244 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
245 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
246 + .word ___crt0_vector |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
247 + .word __start |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
248 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
249 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
250 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2015-07-20 19:44:52.766843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
251 @@ -0,0 +1,511 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
252 +/* libgcc routines for m6809 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
253 + Copyright (C) 2006 Free Software Foundation, Inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
254 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
255 +This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
256 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
257 +GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
258 +it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
259 +the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
260 +any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
261 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
262 +GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
263 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
265 +GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
266 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
267 +You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
268 +along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
269 +<http://www.gnu.org/licenses/>. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
270 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
271 +/* As a special exception, if you link this library with other files, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
272 + some of which are compiled with GCC, to produce an executable, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
273 + this library does not by itself cause the resulting executable |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
274 + to be covered by the GNU General Public License. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
275 + This exception does not however invalidate any other reasons why |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
276 + the executable file might be covered by the GNU General Public License. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
277 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
278 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
279 +#define SIGFPE jmp _abort |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
280 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
281 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
282 + ; Shift functions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
283 + ; On input, D is value to be shifted, and X has shift count. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
284 + ; Result is also in D. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
285 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
286 +#ifdef L_ashlhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
287 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
288 + .globl _ashlhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
289 +_ashlhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
290 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
291 +1$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
292 + leax -1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
293 + cmpx #-1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
294 + beq 2$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
295 + aslb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
296 + rola |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
297 + bra 1$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
298 +2$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
299 + puls x,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
300 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
301 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
302 +#ifdef L_ashrhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
303 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
304 + .globl _ashrhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
305 +_ashrhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
306 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
307 +1$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
308 + leax -1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
309 + cmpx #-1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
310 + beq 2$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
311 + asra |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
312 + rorb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
313 + bra 1$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
314 +2$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
315 + puls x,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
316 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
317 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
318 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
319 +#ifdef L_lshrhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
320 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
321 + .globl _lshrhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
322 +_lshrhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
323 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
324 +1$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
325 + leax -1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
326 + cmpx #-1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
327 + beq 2$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
328 + lsra |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
329 + rorb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
330 + bra 1$ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
331 +2$: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
332 + puls x,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
333 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
334 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
335 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
336 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
337 +#ifdef L_softregs |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
338 + .area direct |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
339 + .globl m0, m1, m2, m3, m4, m5, m6, m7 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
340 + .globl m8, m9, m10, m11, m12, m13, m14, m15 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
341 +m0: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
342 +m1: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
343 +m2: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
344 +m3: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
345 +m4: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
346 +m5: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
347 +m6: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
348 +m7: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
349 +m8: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
350 +m9: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
351 +m10: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
352 +m11: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
353 +m12: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
354 +m13: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
355 +m14: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
356 +m15: .blkb 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
357 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
358 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
359 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
360 +#ifdef L_ashlsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
361 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
362 + .globl _ashlsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
363 +_ashlsi3_one: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
364 + asl 3,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
365 + rol 2,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
366 + rol 1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
367 + rol ,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
368 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
369 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
370 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
371 +#ifdef L_ashlsi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
372 + /* X points to the SImode (source/dest) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
373 + B is the count */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
374 +_ashlsi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
375 + pshs u |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
376 + cmpb #16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
377 + blt try8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
378 + subb #16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
379 + ; Shift by 16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
380 + ldu 2,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
381 + stu ,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
382 +try8: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
383 + cmpb #8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
384 + blt try_rest |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
385 + subb #8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
386 + ; Shift by 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
387 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
388 +try_rest: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
389 + tstb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
390 + beq done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
391 +do_rest: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
392 + ; Shift by 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
393 + asl 3,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
394 + rol 2,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
395 + rol 1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
396 + rol ,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
397 + decb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
398 + bne do_rest |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
399 +done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
400 + puls u,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
401 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
402 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
403 +#ifdef L_ashrsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
404 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
405 + .globl _ashlsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
406 +_ashrsi3_one: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
407 + asr ,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
408 + ror 1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
409 + ror 2,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
410 + ror 3,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
411 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
412 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
413 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
414 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
415 +#ifdef L_lshrsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
416 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
417 + .globl _lshrsi3_one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
418 +_lshrsi3_one: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
419 + lsr ,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
420 + ror 1,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
421 + ror 2,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
422 + ror 3,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
423 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
424 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
425 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
426 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
427 +#ifdef L_clzsi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
428 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
429 + .globl ___clzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
430 + ; Input: X = 16-bit unsigned integer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
431 + ; Output: X = number of leading zeros |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
432 + ; This function destroys the value in D. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
433 +___clzhi2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
434 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
435 + ; Find the offset of the leftmost '1' bit in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
436 + ; the left half of the word. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
437 + ; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
438 + ; Bits are numbered in the table with 1 meaning the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
439 + ; LSB and 8 meaning the MSB. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
440 + ; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
441 + ; If nonzero, then clz is 8-a. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
442 + tfr x,d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
443 + ldx #___clz_tab |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
444 + tfr a,b |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
445 + clra |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
446 + ldb d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
447 + bne upper_bit_set |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
448 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
449 +lower_bit_set: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
450 + ; If the upper byte is zero, then check the lower |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
451 + ; half of the word. Return 16-a. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
452 + puls d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
453 + clra |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
454 + ldb d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
455 + negb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
456 + addb #16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
457 + bra done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
458 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
459 +upper_bit_set: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
460 + negb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
461 + addb #8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
462 + puls x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
463 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
464 +done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
465 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
466 + puls pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
467 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
468 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
469 +#ifdef L_clzdi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
470 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
471 + .globl ___clzsi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
472 + ; Input: 32-bit unsigned integer is on the stack, just |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
473 + ; above the return address |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
474 + ; Output: X = number of leading zeros |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
475 +___clzsi2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
476 + ; Check the upper 16-bit word |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
477 + ; If it is not zero, then return clzhi2(X). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
478 + ; A branch can be used instead of a call since no |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
479 + ; postprocessing is needed. Use long branch form |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
480 + ; though since functions may not be near each other. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
481 + ldx 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
482 + lbne ___clzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
483 + ldx 4,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
484 + jsr ___clzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
485 + leax 16,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
486 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
487 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
488 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
489 +#ifdef L_ctzsi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
490 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
491 + .globl ___ctzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
492 + ; Input: X = 16-bit unsigned integer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
493 + ; Output: X = number of trailing zeros |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
494 + ; F(x) = 15 - clzhi2(X & -x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
495 + ; This function destroys the value in D. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
496 +___ctzhi2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
497 + tfr x,d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
498 + coma |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
499 + comb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
500 + addd #1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
501 + pshs a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
502 + pshs b |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
503 + tfr x,d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
504 + andb ,s+ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
505 + anda ,s+ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
506 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
507 + jsr ___clzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
508 + tfr x,d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
509 + subd #16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
510 + coma |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
511 + comb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
512 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
513 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
514 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
515 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
516 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
517 +#ifdef L_ctzdi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
518 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
519 + .globl ___ctzsi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
520 + ; Input: 32-bit unsigned integer is on the stack, just |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
521 + ; above the return address |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
522 + ; Output: X = number of leading zeros |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
523 +___ctzsi2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
524 + ; Check the lower 16-bit word |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
525 + ; If it is not zero, then return ctzhi2(X). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
526 + ; A branch can be used instead of a call since no |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
527 + ; postprocessing is needed. Use long branch form |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
528 + ; though since functions may not be near each other. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
529 + ldx 4,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
530 + lbne ___ctzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
531 + ldx 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
532 + jsr ___ctzhi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
533 + leax 16,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
534 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
535 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
536 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
537 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
538 +#ifdef L_mulhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
540 +;;; ___mulhi3 - signed/unsigned multiply |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
541 +;;; Called by GCC to implement 16x16 multiplication |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
542 +;;; Arguments: Two 16-bit values, one in stack, one in X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
543 +;;; Result: 16-bit result in X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
545 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
546 + .globl _mulhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
547 +_mulhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
548 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
549 + lda 5,s ; left msb * right lsb * 256 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
550 + ldb ,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
551 + mul |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
552 + tfr b,a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
553 + clrb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
554 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
555 + ldb 1,s ; left lsb * right msb * 256 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
556 + lda 4,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
557 + mul |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
558 + tfr b,a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
559 + clrb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
560 + leax d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
561 + ldb 1,s ; left lsb * right lsb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
562 + lda 5,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
563 + mul |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
564 + leax d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
565 + puls d,pc ; kill D to remove initial push |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
566 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
567 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
568 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
569 +#ifdef L_divhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
571 +;;; ___divhi3 - signed division |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
572 +;;; Arguments: Dividend in X, divisor on the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
573 +;;; Returns result in X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
575 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
576 + .globl _divhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
577 +_divhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
578 + ldd 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
579 + bne do_div ; check dividend |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
580 + SIGFPE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
581 +do_div: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
582 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
583 + jsr _seuclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
584 + puls x,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
585 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
586 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
587 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
588 +#ifdef L_modhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
590 +;;; ___modhi3 - signed modulo |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
591 +;;; Arguments: Dividend in X, divisor on the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
592 +;;; Returns result in X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
594 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
595 + .globl _modhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
596 +_modhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
597 + ldd 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
598 + bne do_mod ; check dividend |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
599 + SIGFPE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
600 +do_mod: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
601 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
602 + jsr _seuclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
603 + leas 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
604 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
605 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
606 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
607 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
608 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
609 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
610 +#ifdef L_udivhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
612 +;;; ___udivhi3 - unsigned division |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
613 +;;; Arguments: Dividend in X, divisor on the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
614 +;;; Returns result in X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
616 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
617 + .globl _udivhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
618 +_udivhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
619 + ldd 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
620 + bne do_udiv ; check dividend |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
621 + SIGFPE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
622 +do_udiv: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
623 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
624 + jsr _euclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
625 + puls x,pc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
626 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
627 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
628 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
629 +#ifdef L_umodhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
631 +;;; ___umodhi3 - unsigned modulo |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
632 +;;; Arguments: Dividend in X, divisor on the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
633 +;;; Returns result in X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
635 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
636 + .globl _umodhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
637 +_umodhi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
638 + ldd 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
639 + bne do_umod ; check dividend |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
640 + SIGFPE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
641 +do_umod: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
642 + pshs x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
643 + jsr _euclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
644 + leas 2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
645 + tfr d,x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
646 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
647 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
648 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
649 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
650 +#ifdef L_euclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
651 +; unsigned euclidean division |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
652 +; calling: (left / right) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
653 +; push left |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
654 +; ldd right |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
655 +; jsr _euclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
656 +; quotient on the stack (left) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
657 +; modulus in d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
658 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
659 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
660 + .globl _euclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
661 + left=5 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
662 + right=1 ; word |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
663 + count=0 ; byte |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
664 + CARRY=1 ; alias |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
665 +_euclid: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
666 + leas -3,s ; 2 local variables |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
667 + clr count,s ; prescale divisor |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
668 + inc count,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
669 + tsta |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
670 +presc: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
671 + bmi presc_done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
672 + inc count,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
673 + aslb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
674 + rola |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
675 + bra presc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
676 +presc_done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
677 + std right,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
678 + ldd left,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
679 + clr left,s ; quotient = 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
680 + clr left+1,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
681 +mod1: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
682 + subd right,s ; check subtract |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
683 + bcc mod2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
684 + addd right,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
685 + andcc #~CARRY |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
686 + bra mod3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
687 +mod2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
688 + orcc #CARRY |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
689 +mod3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
690 + rol left+1,s ; roll in carry |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
691 + rol left,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
692 + lsr right,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
693 + ror right+1,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
694 + dec count,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
695 + bne mod1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
696 + leas 3,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
697 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
698 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
699 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
700 +#ifdef L_seuclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
701 +; signed euclidean division |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
702 +; calling: (left / right) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
703 +; push left |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
704 +; ldd right |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
705 +; jsr _seuclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
706 +; quotient on the stack (left) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
707 +; modulus in d |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
708 + .area .text |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
709 + .globl _seuclid |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
710 + left=6 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
711 + right=2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
712 + quot_sign=1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
713 + mod_sign=0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
714 +_seuclid: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
715 + leas -4,s ; 3 local variables |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
716 + std right,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
717 + clr mod_sign,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
718 + clr quot_sign,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
719 + ldd left,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
720 + bge mod_abs |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
721 + inc mod_sign,s ; sign(mod) = sign(left) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
722 + inc quot_sign,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
723 + bsr negd ; abs(left) -> D |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
724 +mod_abs: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
725 + pshs b,a ; push abs(left) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
726 + ldd right+2,s ; all references shifted by 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
727 + bge quot_abs |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
729 + bsr negd ; abs(right) -> D |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
730 +quot_abs: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
731 + jsr _euclid ; call (unsigned) euclidean division |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
732 + std right+2,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
733 + puls a,b ; quot -> D |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
734 + tst quot_sign,s ; all references no longer shifted |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
735 + beq quot_done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
736 + bsr negd |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
737 +quot_done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
738 + std left,s ; quot -> left |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
739 + ldd right,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
740 + tst mod_sign,s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
741 + beq mod_done |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
742 + bsr negd |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
743 +mod_done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
744 + leas 4,s ; destroy stack frame |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
745 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
746 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
747 +negd: ; self-explanatory ! |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
748 + nega |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
749 + negb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
750 + sbca #0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
751 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
752 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
753 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
754 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
755 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
756 +#ifdef L_pending_addsi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
757 +_addsi3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
758 + rts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
759 +#endif /* L_pending_addsi3 */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
760 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
761 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
762 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
763 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
764 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
765 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2015-07-20 22:11:37.726714746 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
766 @@ -0,0 +1,3023 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
767 +/*------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
768 + FILE: m6809.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
769 +-------------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
770 +/* Subroutines for insn-output.c for MC6809. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
771 + Copyright (C) 1989-2007 Free Software Foundation, Inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
772 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
774 + Space Astronomy Laboratory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
775 + University of Wisconsin at Madison |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
776 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
778 + ( msdoerfe@informatik.uni-erlangen.de ) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
779 + also added #pragma interrupt (inspired by gcc-6811) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
780 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
782 + (ebotcazou@multimania.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
783 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
785 + (ebotcazou@multimania.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
786 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
788 + (brian@oddchange.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
789 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
790 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
791 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
792 +This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
793 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
794 +GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
795 +it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
796 +the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
797 +any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
798 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
799 +GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
800 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
802 +GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
803 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
804 +You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
805 +along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
806 +<http://www.gnu.org/licenses/>. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
807 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
808 +#include <string.h> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
809 +#include <time.h> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
810 +#include <sys/types.h> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
811 +#include <sys/timeb.h> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
812 +#include <stdio.h> |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
813 +#include "config.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
814 +#include "system.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
815 +#include "coretypes.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
816 +#include "tm.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
817 +#include "tree.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
818 +#include "rtl.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
819 +#include "tm_p.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
820 +#include "regs.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
821 +#include "flags.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
822 +#include "hard-reg-set.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
823 +#include "real.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
824 +#include "tree.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
825 +#include "insn-config.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
826 +#include "conditions.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
827 +#include "insn-flags.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
828 +#include "output.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
829 +#include "insn-attr.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
830 +#include "function.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
831 +#include "target.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
832 +#include "target-def.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
833 +#include "expr.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
834 +#include "recog.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
835 +#include "cpplib.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
836 +#include "c-family/c-pragma.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
837 +#include "c-family/c-common.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
838 +#include "toplev.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
839 +#include "optabs.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
840 +#include "version.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
841 +#include "df.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
842 +#include "rtlhooks-def.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
843 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
844 +/* macro to return TRUE if length of operand mode is one byte */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
846 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
847 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
848 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
849 +register and not a fake one that is emulated in software. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
851 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
852 +/*------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
853 + Target hooks, moved from target.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
854 +-------------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
855 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
856 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
857 +#undef TARGET_ENCODE_SECTION_INFO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
859 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
860 +#undef TARGET_ASM_FILE_START |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
861 +#define TARGET_ASM_FILE_START m6809_asm_file_start |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
862 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
863 +#undef TARGET_ASM_ALIGNED_HI_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
865 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
866 +#undef TARGET_ASM_ALIGNED_SI_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
867 +#define TARGET_ASM_ALIGNED_SI_OP NULL |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
868 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
869 +#undef TARGET_ASM_UNALIGNED_HI_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
871 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
872 +#undef TARGET_ASM_UNALIGNED_SI_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
874 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
875 +#undef TARGET_RTX_COSTS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
876 +#define TARGET_RTX_COSTS m6809_rtx_costs |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
877 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
878 +#undef TARGET_ATTRIBUTE_TABLE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
880 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
881 +#undef TARGET_INIT_BUILTINS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
882 +#define TARGET_INIT_BUILTINS m6809_init_builtins |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
883 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
884 +#undef TARGET_EXPAND_BUILTIN |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
886 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
887 +#undef TARGET_DEFAULT_TARGET_FLAGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS | MASK_DIRECT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
889 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
892 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
895 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
896 +#undef TARGET_TRAMPOLINE_INIT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
898 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
899 +#undef TARGET_FRAME_POINTER_REQUIRED |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
901 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
902 +#undef TARGET_OPTION_OVERRIDE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
903 +#define TARGET_OPTION_OVERRIDE m6809_override_options |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
904 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
905 +/* External variables used */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
906 +extern int reload_completed; /* set in toplev.c */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
907 +extern FILE *asm_out_file; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
908 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
909 +static int last_mem_size; /* operand size (bytes) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
910 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
911 +/* True if the section was recently changed and another .area |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
912 + * directive needs to be output before emitting the next label. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
913 +int section_changed = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
914 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
915 +/* Section names. The defaults here are used until an |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
916 + * __attribute__((section)) is seen that changes it. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
917 +char code_section_op[128] = "\t.area .text"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
918 +char data_section_op[128] = "\t.area .data"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
919 +char bss_section_op[128] = "\t.area .bss"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
920 +const char *code_bank_option = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
921 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
922 +/* TRUE if the direct mode prefix might be valid in this context. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
923 + * This is set by 'print_address' prior to calling output_addr_const, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
924 + * which performs into 'print_direct_prefix' to do the final checks. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
925 +static int check_direct_prefix_flag; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
926 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
927 +/* Nonzero if an address is being printed in a context which does not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
928 + * permit any PIC modifications to the address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
929 +static int pic_ok_for_addr_p = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
930 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
931 +/* Current code page. This supports machines which can do bank |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
932 + * switching to allow for more than 64KB of code/data. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
933 +char far_code_page[64]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
934 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
935 +/* Current bank name */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
936 +static char current_bank_name[8] = "-1"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
937 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
938 +/* Default bank name */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
939 +static char default_code_bank_name[8] = "-1"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
940 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
941 +/* Direct memory reserved as soft registers */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
942 +unsigned int m6809_soft_regs = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
943 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
944 +/* ABI version */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
946 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
947 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
948 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
949 + * Called after options have been parsed. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
950 + * If overrides have been specified on the command-line, then |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
951 + * these values are copied into the main storage variables. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
952 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
953 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
954 +m6809_override_options (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
955 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
956 + /* Handle -mfar-code-page */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
957 + if (far_code_page_option == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
958 + far_code_page_option = "__default_code_page"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
959 + strcpy (far_code_page, far_code_page_option); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
960 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
962 + if (code_section_ptr != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
963 + sprintf (code_section_op, "\t.area %s", code_section_ptr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
964 + if (data_section_ptr != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
965 + sprintf (data_section_op, "\t.area %s", data_section_ptr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
966 + if (bss_section_ptr != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
968 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
969 + /* Handle -mcode-bank */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
970 + if (code_bank_option != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
971 + sprintf (default_code_bank_name, "%s", code_bank_option); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
972 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
973 + /* Handle -mabi-version or -mno-reg-args */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
974 + if (m6809_abi_version_ptr != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
975 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
976 + if (!strcmp (m6809_abi_version_ptr, "stack")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
977 + m6809_abi_version = M6809_ABI_VERSION_STACK; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
978 + else if (!strcmp (m6809_abi_version_ptr, "regs")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
979 + m6809_abi_version = M6809_ABI_VERSION_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
980 + else if (!strcmp (m6809_abi_version_ptr, "bx")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
981 + m6809_abi_version = M6809_ABI_VERSION_BX; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
982 + else if (!strcmp (m6809_abi_version_ptr, "latest")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
983 + m6809_abi_version = M6809_ABI_VERSION_LATEST; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
984 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
985 + m6809_abi_version = atoi (m6809_abi_version_ptr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
986 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
987 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
988 + /* The older -mno-reg-args option is deprecated, and treated |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
989 + as -mabi=stack. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
990 + if (!TARGET_REG_ARGS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
991 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead."); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
993 + m6809_abi_version = M6809_ABI_VERSION_STACK; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
994 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
995 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
996 + /* -fexceptions is unsupported */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
997 + flag_exceptions = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
998 + flag_non_call_exceptions = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
999 + flag_unwind_tables = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1000 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1001 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1002 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1003 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1004 + * Output prefix that directs the assembler to use a direct-mode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1005 + * instruction if globally enabled, address is a symbol, and symbol |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1006 + * has been marked as in direct page. Also, never do this if |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1007 + * using the indirect mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1008 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1009 +print_direct_prefix (FILE * file, rtx addr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1010 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1011 + if (TARGET_DIRECT && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1012 + (GET_CODE (addr) == SYMBOL_REF) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1013 + SYMBOL_REF_FLAG (addr) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1014 + check_direct_prefix_flag) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1015 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1016 + putc ('*', file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1017 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1018 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1019 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1020 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1021 +/** Prints an operand (that is not an address) in assembly from RTL. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1022 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1023 +print_operand (FILE * file, rtx x, int code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1024 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1025 + if (REG_P (x)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1026 + /* gcc currently allocates the entire 16-bit 'd' register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1027 + * even when it only needs an 8-bit value. So here it |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1028 + * is tricked into printing only the lower 8-bit 'b' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1029 + * register into the assembly output. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1030 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1031 + * Eventually gcc should be modified to allocate a/b |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1032 + * independently and this hack can be removed. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1033 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1034 + * Occasionally, we may want to do an operation using |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1035 + * the 'a' register instead of 'b'; use the 'A' code |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1036 + * to specify that. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1037 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1038 + if (code == 'A') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1039 + fputs ("a", file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1041 + fputs ("b", file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1042 + else if (M_REG_P (x) && code == 'L') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1043 + /* Soft registers can be treated like memory and accessed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1044 + * at a particular offset. TODO : handle 'W' */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1045 + fputs (reg_names[REGNO (x)+1], file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1046 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1047 + fputs (reg_names[REGNO (x)], file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1048 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1049 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1050 + else if (MEM_P (x)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1052 + if (code == 'L') { /* LSH of word address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1053 + if (GET_CODE (XEXP (x, 0)) == MEM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1054 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1055 + /* Offseting an indirect addressing mode is not supported */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1056 + error ("expression too complex for 6809 (offset indirect mode)"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1057 + debug_rtx (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1058 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1059 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1060 + x = adjust_address (x, QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1061 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1062 + else if (code == 'M') { /* MSH of word address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1063 + if (GET_CODE (XEXP (x, 0)) == MEM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1064 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1065 + /* Offseting an indirect addressing mode is not supported */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1066 + error ("expression too complex for 6809 (offset indirect mode)"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1067 + debug_rtx (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1068 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1069 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1070 + x = adjust_address (x, QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1071 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1072 + else if (code == 'W') { /* least significant half of 32-bit */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1073 + x = adjust_address (x, HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1074 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1075 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1076 + pic_ok_for_addr_p = (code != 'C'); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1077 + output_address (XEXP (x, 0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1078 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1079 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1081 + union { double d; int i[2]; } u; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1082 + u.i[0] = CONST_DOUBLE_LOW (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1083 + u.i[1] = CONST_DOUBLE_HIGH (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1084 + fprintf (file, "#%#9.9g", u.d); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1085 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1086 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1087 + else if (code == 'R') { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1088 + fprintf (file, "%s", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1089 + m6809_get_regs_printable (INTVAL (x))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1090 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1091 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1092 + else { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1093 + if (code == 'L') { /* LSH of word address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1095 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1096 + else if (code == 'M') { /* MSH of word address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1098 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1099 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1100 + putc ('#', file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1101 + output_addr_const (file, x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1102 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1103 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1104 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1105 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1106 +/** Prints an address operand to assembler from its RTL representation. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1107 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1108 +print_operand_address (FILE *file, rtx addr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1109 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1110 + register rtx base = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1111 + register rtx offset = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1112 + int regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1113 + int indirect_flag = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1114 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1115 + check_direct_prefix_flag = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1116 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1117 + /*** check for indirect addressing ***/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1118 + if (MEM_P (addr)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1120 + addr = XEXP (addr, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1121 + if (pic_ok_for_addr_p) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1122 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1123 + indirect_flag = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1124 + fprintf (file, "["); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1125 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1126 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1127 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1128 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1129 + switch (GET_CODE (addr)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1130 + case REG: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1131 + regno = REGNO (addr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1132 + fprintf (file, ",%s", reg_names[regno]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1133 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1134 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1135 + case PRE_DEC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1136 + regno = REGNO (XEXP (addr, 0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1138 + fprintf (file, "%s", reg_names[regno]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1139 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1140 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1141 + case POST_INC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1142 + regno = REGNO (XEXP (addr, 0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1143 + fprintf (file, ",%s", reg_names[regno]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1145 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1146 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1147 + case PLUS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1148 + base = XEXP (addr, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1149 + if (MEM_P (base)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1150 + base = XEXP (base, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1151 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1152 + offset = XEXP (addr, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1153 + if (MEM_P (offset)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1154 + offset = XEXP (offset, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1155 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1157 + if (!indirect_flag) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1158 + check_direct_prefix_flag = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1159 + output_addr_const (file, base); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1160 + check_direct_prefix_flag = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1161 + fputs ("+", file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1162 + output_addr_const (file, offset); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1163 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1164 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1166 + output_addr_const (file, base); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1168 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1169 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1171 + output_addr_const (file, offset); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1172 + fprintf (file, ",%s", reg_names[REGNO (base)]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1173 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1174 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1175 + /*** accumulator offset ***/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1176 + else if (((D_REG_P (offset)) || (Q_REG_P (offset))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1177 + && (A_REG_P (base))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1178 + fprintf (file, "%s,%s", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1180 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1181 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1182 + else if (((D_REG_P (base)) || (Q_REG_P (base))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1183 + && (A_REG_P (offset))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1184 + fprintf (file, "%s,%s", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1186 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1187 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1188 + else if (GET_CODE (base) == PRE_DEC) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1189 + regno = REGNO (XEXP (base, 0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1191 + fprintf (file, "%s", reg_names[regno]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1192 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1193 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1194 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1195 + abort (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1196 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1197 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1198 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1199 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1200 + /* Set this global before calling output_addr_const() */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1201 + if (!indirect_flag) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1202 + check_direct_prefix_flag = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1203 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1205 + * '#' and follow it by ',pcr' to enable relative addressing. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1207 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1208 + ASM_OUTPUT_SYMBOL_REF (file, addr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1209 + fputs (",pcr", file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1210 + pic_ok_for_addr_p = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1211 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1212 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1213 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1214 + output_addr_const (file, addr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1215 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1216 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1217 + check_direct_prefix_flag = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1218 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1219 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1220 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1221 + if (indirect_flag) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1222 + fprintf (file, "]"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1223 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1224 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1225 +/*------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1226 + Update the CC Status |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1227 +--------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1228 + Set the cc_status for the results of an insn whose pattern is EXP. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1229 + We assume that jumps don't affect the condition codes. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1230 + All else, clobbers the condition codes, by assumption. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1231 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1232 + We assume that ALL add, minus, etc. instructions effect the condition |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1233 + codes. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1234 +-------------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1235 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1237 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1238 + int src_code; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1239 + int dst_code; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1240 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1241 + /*** recognize SET insn's ***/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1242 + if (GET_CODE (exp) == SET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1243 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1244 + src_code = GET_CODE (SET_SRC (exp)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1245 + dst_code = GET_CODE (SET_DEST (exp)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1246 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1247 + /* Jumps do not alter the cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1248 + if (SET_DEST (exp) == pc_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1249 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1250 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1251 + /* Moving one register into another register (tfr): |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1252 + Doesn't alter the cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1254 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1255 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1256 + /* Moving memory into a register (load): Sets cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1258 + cc_status.value1 = SET_SRC (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1259 + cc_status.value2 = SET_DEST (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1260 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1261 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1262 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1263 + /* Moving register into memory (store): Sets cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1264 + if (dst_code == MEM && REG_P (SET_SRC (exp))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1265 + cc_status.value1 = SET_SRC (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1266 + cc_status.value2 = SET_DEST (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1267 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1268 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1269 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1270 + /* Function calls clobber the cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1271 + else if (GET_CODE (SET_SRC (exp)) == CALL) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1272 + CC_STATUS_INIT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1273 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1274 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1275 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1276 + /* Tests and compares set the cc's in predictable ways. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1277 + else if (SET_DEST (exp) == cc0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1278 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1279 + cc_status.flags = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1280 + cc_status.value1 = SET_SRC (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1281 + cc_status.value2 = SET_DEST (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1282 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1283 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1284 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1285 + else if (A_REG_P (SET_DEST (exp))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1286 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1287 + CC_STATUS_INIT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1288 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1289 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1290 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1291 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1292 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1293 + /* Certain instructions affect the condition codes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1294 + switch (src_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1295 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1296 + case PLUS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1297 + case MINUS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1298 + case NEG: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1299 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1300 + /* These instructions set the condition codes, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1301 + * and may modify the V bit. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1302 + cc_status.flags |= CC_NO_OVERFLOW; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1303 + /* FALLTHRU */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1304 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1305 + case AND: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1306 + case IOR: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1307 + case XOR: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1308 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1309 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1310 + /* These instructions set the condition codes, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1311 + * but cannot overflow (V=0). */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1312 + cc_status.value1 = SET_SRC (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1313 + cc_status.value2 = SET_DEST (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1314 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1315 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1316 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1317 + /* Everything else is clobbered */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1318 + CC_STATUS_INIT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1319 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1320 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1321 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1322 + } /* SET */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1323 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1324 + else if (GET_CODE (exp) == PARALLEL |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1325 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1326 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1327 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1328 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1330 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1331 + CC_STATUS_INIT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1332 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1333 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1334 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1335 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1336 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1337 + /*** default action if we haven't recognized something |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1338 + and returned earlier ***/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1339 + CC_STATUS_INIT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1340 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1341 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1342 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1343 +/** Returns nonzero if the expression EXP can be implemented using one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1344 + * of the 6809's single operand instructions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1345 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1346 +m6809_single_operand_operator (rtx exp) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1347 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1348 + rtx op1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1349 + HOST_WIDE_INT val; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1350 + enum rtx_code code; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1351 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1352 + debug_rtx(exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1353 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1354 + code = GET_CODE (exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1355 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1356 + /* Unary operators always qualify */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1357 + switch (code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1358 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1359 + case NEG: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1360 + case NOT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1361 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1362 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1363 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1364 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1365 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1366 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1367 + /* Binary operators can only qualify if the second |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1368 + * argument is a CONST_INT of certain value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1369 + op1 = XEXP (exp, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1370 + if (GET_CODE (op1) != CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1371 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1372 + val = INTVAL (op1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1373 + switch (code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1374 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1375 + case PLUS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1376 + case MINUS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1377 + if (val == -1 || val == 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1378 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1379 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1380 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1381 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1382 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1383 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1384 + case ROTATE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1385 + case ROTATERT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1386 + if (val == 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1387 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1388 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1389 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1390 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1391 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1392 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1393 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1394 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1395 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1396 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1397 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1398 +/** Return a bitarray of the hard registers which are used by a function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1399 +unsigned int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1400 +m6809_get_live_regs (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1401 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1402 + unsigned int regs = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1403 + int regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1404 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1405 + if (frame_pointer_needed) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1406 + regs |= (1 << HARD_FRAME_POINTER_REGNUM); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1407 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1408 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1409 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1410 + regs |= (1 << regno); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1411 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1412 + return regs; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1413 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1414 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1415 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1416 +/** Return a printable version of a list of hard registers, suitable |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1417 + * for use in a PSHx or PULx insn. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1418 +const char * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1419 +m6809_get_regs_printable (unsigned int regs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1420 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1421 + static char list[64]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1422 + char *listp = list; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1423 + unsigned int regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1424 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1425 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1426 + if ((regs & (1 << regno)) && !S_REGNO_P (regno)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1427 + listp += sprintf (listp, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1428 + (listp == list) ? "%s" : ",%s", reg_names[regno]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1429 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1430 + return list; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1431 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1432 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1433 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1434 +/** Return the total number of bytes covered by a set of hard registers. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1435 +unsigned int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1436 +m6809_get_regs_size (unsigned int regs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1437 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1438 + unsigned int regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1439 + unsigned int size = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1440 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1441 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1442 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1443 + /* Only count register in the given register set */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1444 + if (REGSET_CONTAINS_P (regno, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1445 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1446 + /* Add 1 or 2 byte, depending on the size of the register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1447 + * Since 'D' may be in both sets, check for WORD_REGSET first. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1448 + if (REGSET_CONTAINS_P(regno, WORD_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1449 + size += 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1450 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1451 + size++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1452 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1453 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1454 + return size; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1455 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1456 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1457 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1458 +/* Given the target of call instruction in X, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1459 + * return the tree node that contains the function declaration for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1460 + * that target. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1461 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1462 + * If the rtx or the tree do not appear valid for any reason, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1463 + * then return NULL_TREE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1464 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1465 +static tree call_target_decl (rtx x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1466 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1467 + tree decl; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1468 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1469 + /* Make sure the target is really a MEM. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1470 + if (!x || !MEM_P (x)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1471 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1472 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1473 + /* Make sure the address is a SYMBOL_REF. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1474 + x = XEXP (x, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1475 + if (!x || (GET_CODE (x) != SYMBOL_REF)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1476 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1477 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1478 + /* Get the declaration of this symbol */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1479 + decl = SYMBOL_REF_DECL (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1480 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1481 + /* Make sure the declaration is really a function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1482 + if (!decl || (TREE_CODE(decl) != FUNCTION_DECL)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1483 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1484 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1485 + return decl; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1486 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1487 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1488 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1489 +/** Returns nonzero if a function, whose declaration is in DECL, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1490 + * was declared to have the attribute given by ATTR_NAME. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1491 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1492 +m6809_function_has_type_attr_p (tree decl, const char *attr_name) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1493 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1494 + tree type; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1495 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1496 + type = TREE_TYPE (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1497 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1498 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1499 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1500 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1501 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1502 +/** Returns nonzero if the current function was declared to have the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1503 + * attribute given by ATTR_NAME. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1504 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1505 +m6809_current_function_has_type_attr_p (const char *attr_name) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1506 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1507 + return m6809_function_has_type_attr_p (current_function_decl, attr_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1508 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1509 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1510 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1511 +/** Return nonzero if the current function has no return value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1512 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1513 +m6809_current_function_is_void (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1514 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1515 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl)))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1516 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1517 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1518 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1519 +/** Get the value of a declaration's 'bank', as set by the 'bank' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1520 + * attribute. If no bank was declared, it returns NULL by default. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1521 +const char * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1522 +m6809_get_decl_bank (tree decl) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1523 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1524 + tree attr; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1525 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1526 + /* Lookup the 'bank' attribute. If it does not exist, then |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1527 + * return NULL */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1528 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1529 + if (attr == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1530 + return NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1531 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1532 + /* Make sure it has a value assigned to it */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1533 + attr = TREE_VALUE (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1534 + if (attr == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1535 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1536 + warning (WARNING_OPT "banked function did not declare a bank number"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1537 + return NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1538 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1539 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1540 + /* Return the bank name */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1541 + attr = TREE_VALUE (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1542 + return TREE_STRING_POINTER (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1543 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1544 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1545 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1546 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1547 +m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1548 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1549 + /* Check the function declaration for special properties. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1550 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1551 + * If the function was declare with __attribute__((bank)), output |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1552 + * assembler definitions to force the function to go into the named |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1553 + * bank. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1554 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1555 + const char *bank_name = m6809_get_decl_bank (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1556 + if (bank_name != NULL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1557 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1558 + /* Declare __self_bank as a local assembler value that denotes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1559 + * which bank the current function is in. This is required only |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1560 + * when the bank actually changes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1561 + if (strcmp (bank_name, current_bank_name)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1562 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1563 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1564 + strcpy (current_bank_name, bank_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1565 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1566 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1567 + /* Declare a global assembler value that denotes which bank the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1568 + * named function is in. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1569 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1570 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1571 + /* Force the current function into a new area */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1572 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1573 + bank_name, bank_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1574 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1575 + bank_name, bank_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1576 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1577 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1578 + /* Emit the label for the function's name */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1579 + ASM_OUTPUT_LABEL (asm_out_file, name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1580 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1581 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1582 +#if 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1583 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1584 + * Handle pragmas. Note that only the last branch pragma seen in the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1585 + * source has any affect on code generation. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1586 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1587 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1588 +#define BAD_PRAGMA(msgid, arg) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1589 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1590 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1591 +static int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1592 +pragma_parse (const char *name, tree *sect) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1593 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1594 + tree s, x; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1595 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1596 + if (pragma_lex (&x) != CPP_OPEN_PAREN) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1597 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1598 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1599 + if (pragma_lex (&s) != CPP_STRING) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1600 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1601 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1602 + if (pragma_lex (&x) != CPP_CLOSE_PAREN) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1603 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1604 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1605 + if (pragma_lex (&x) != CPP_EOF) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1606 + warning (WARNING_OPT "junk at end of '#pragma %s'", name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1607 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1608 + *sect = s; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1609 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1610 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1611 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1612 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1613 +/* |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1614 + * Handle #pragma section. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1615 + * This is deprecated; code should use __attribute__(section("name")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1616 + * instead. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1617 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1618 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1619 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1620 + tree sect; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1621 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1622 + if (pragma_parse ("section", §)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1623 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1624 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1625 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1626 + ".area\t%s", TREE_STRING_POINTER (sect)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1627 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1628 + ".area\t%s", TREE_STRING_POINTER (sect)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1629 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1630 + /* Mark a flag that sections have changed. Upon emitting another |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1631 + * declaration, the new .area directive will be written. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1632 + section_changed++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1633 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1634 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1635 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1636 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1637 + * Check a `double' value for validity for a particular machine mode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1638 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1639 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1640 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1641 +check_float_value (enum machine_mode mode, double *d, int overflow) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1642 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1643 + if (mode == SFmode) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1644 + if (*d > 1.7014117331926443e+38) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1645 + error("magnitude of constant too large for `float'"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1646 + *d = 1.7014117331926443e+38; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1647 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1648 + else if (*d < -1.7014117331926443e+38) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1649 + error("magnitude of constant too large for `float'"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1650 + *d = -1.7014117331926443e+38; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1651 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1652 + else if ((*d > 0) && (*d < 2.9387358770557188e-39)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1653 + warning(WARNING_OPT "`float' constant truncated to zero"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1654 + *d = 0.0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1655 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1656 + else if ((*d < 0) && (*d > -2.9387358770557188e-39)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1657 + warning(WARNING_OPT "`float' constant truncated to zero"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1658 + *d = 0.0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1659 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1660 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1661 + return overflow; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1662 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1663 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1664 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1665 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1666 +/** Declare that the target supports named output sections. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1667 +bool m6809_have_named_section = (bool)1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1668 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1669 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1670 +/** Write to the assembler file a directive to place |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1671 + * subsequent objects to a different section in the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1672 + * object file. ASxxxx uses the "area" directive for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1673 + * this purpose. It does not however support generalized |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1674 + * alignment, and can only place items on an odd/even |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1675 + * boundary. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1676 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1677 +m6809_asm_named_section ( |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1678 + const char *name, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1679 + unsigned int flags ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1680 + tree decl) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1681 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1682 + fprintf (asm_out_file, "\t.area\t%s\n", name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1683 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1684 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1685 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1686 +enum reg_class |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1687 +m6809_preferred_reload_class (rtx x, enum reg_class regclass) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1688 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1689 + /* Check cases based on type code of rtx */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1690 + switch (GET_CODE(x)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1691 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1692 + /* |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1693 + * Observation, 2015-07-19, William Astle |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1694 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1695 + * The original comparison for range for 16 bits was wrong, adding 0x80 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1696 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1697 + * a more straight forward range comparison - excessive cleverness isn't |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1698 + * really required here. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1699 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1700 + case CONST_INT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1701 + /* Constants that can fit into 1 byte should be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1702 + * loaded into a Q_REGS reg */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1703 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1704 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1705 + (regclass > A_REGS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1706 + return Q_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1707 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1708 + /* 16-bit constants should be loaded into A_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1709 + * when possible. gcc may already require A_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1710 + * or D_REGS for certain types of instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1711 + * This case applies mostly to simple copy operations |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1712 + * to/from memory when any register will do, but |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1713 + * it's best to avoid using D register since it is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1714 + * needed for other things. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1715 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1716 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1717 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1718 + (regclass > A_REGS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1719 + return A_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1720 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1721 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1722 + case SYMBOL_REF: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1723 + case LABEL_REF: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1724 + /* Addresses should always be loaded into A_REGS */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1725 + if (regclass >= A_REGS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1726 + return (A_REGS); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1727 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1728 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1729 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1730 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1731 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1732 + /* Check cases based on mode of rtx */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1733 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1734 + return Q_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1735 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1736 + /* Default: return whatever class reload suggested */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1737 + return regclass; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1738 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1739 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1740 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1741 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1742 + * Check a new declaration for the "section" attribute. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1743 + * If it exists, and the target section is "direct", then mark |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1744 + * the declaration (in RTL) to indicate special treatment. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1745 + * When the variable is referenced later, we test for this flag |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1746 + * and can emit special asm text to force the assembler to use |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1747 + * short instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1748 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1749 +static void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1750 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1751 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1752 + tree attr, id; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1753 + const char *name; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1754 + const char *decl_name; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1755 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1756 + /* We only care about variable declarations, not functions */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1757 + if (TREE_CODE (decl) != VAR_DECL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1758 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1759 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1760 + /* For debugging purposes only; grab the decl's name */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1761 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1762 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1763 + /* Give up if the decl doesn't have any RTL */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1764 + if (!DECL_RTL (decl)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1765 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1766 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1767 + /* See if it has a section attribute */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1768 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1769 + if (!attr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1770 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1771 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1772 + /* See if the section attribute has a value */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1773 + id = TREE_VALUE (TREE_VALUE (attr)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1774 + if (!id) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1775 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1776 + name = TREE_STRING_POINTER (id); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1777 + if (!name) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1778 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1779 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1780 + /* See if the value is 'direct'. If so, mark it. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1781 + if (!strcmp (name, "direct")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1782 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1783 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1784 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1785 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1786 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1787 + * Output code to perform a complex shift, for which there is no |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1788 + * direct support in the instruction set. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1789 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1790 + * shift1 is an instruction pattern for performing a 1-bit modification. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1791 + * This code wraps that pattern in a loop to perform the shift N times, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1792 + * where N is given by the address register in operands[2]. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1793 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1794 + * To support 16-bit shifts, shift2 can also be provided: it is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1795 + * a second instruction to be included in the loop. 8-bit shift |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1796 + * insns will pass NULL here. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1797 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1798 + * The insn length of shift1/shift2 is assumed to be 1 byte, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1799 + * which works in all of the cases it is needed so far. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1800 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1801 +static void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1802 +m6809_gen_register_shift ( |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1803 + rtx *operands, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1804 + const char *shift1, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1805 + const char *shift2 ) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1806 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1807 + char beq_pattern[32]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1808 + char bra_pattern[32]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1809 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1810 + int shiftlen = (shift1 && shift2) ? 2 : 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1811 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1812 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1813 + int beq_offset = 2 + shiftlen + 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1814 + int bra_offset = shiftlen + 2 + cmplen + 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1815 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1816 + sprintf (beq_pattern, "beq\t.+%d", beq_offset); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1817 + sprintf (bra_pattern, "bra\t.-%d", bra_offset); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1818 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1819 + output_asm_insn ("pshs\t%2", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1820 + output_asm_insn ("lea%2\t-1,%2", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1821 + output_asm_insn ("cmp%2\t#-1", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1822 + output_asm_insn (beq_pattern, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1823 + if (shift1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1824 + output_asm_insn (shift1, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1825 + if (shift2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1826 + output_asm_insn (shift2, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1827 + output_asm_insn (bra_pattern, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1828 + output_asm_insn ("puls\t%2", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1829 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1830 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1831 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1832 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1833 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1834 +gen_rtx_const_high (rtx r) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1835 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1836 + unsigned char v = (INTVAL (r) >> 8) & 0xFF; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1837 + signed char s = (signed char)v; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1838 + return gen_int_mode (s, QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1839 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1840 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1841 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1842 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1843 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1844 +gen_rtx_const_low (rtx r) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1845 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1846 + unsigned char v = INTVAL (r) & 0xFF; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1847 + signed char s = (signed char)v; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1848 + return gen_int_mode (s, QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1849 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1850 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1851 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1852 +/** Generate RTL to allocate/free bytes on the stack. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1853 + * CODE is given as MINUS when allocating and PLUS when freeing, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1854 + * to match the semantics of a downward-growing stack. SIZE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1855 + * is always given as a positive integer. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1856 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1857 +static rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1858 +gen_rtx_stack_adjust (enum rtx_code code, int size) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1859 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1860 + if (size <= 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1861 + return NULL_RTX; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1862 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1863 + if (code == MINUS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1864 + size = -size; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1865 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1866 + return gen_rtx_SET (Pmode, stack_pointer_rtx, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1867 + gen_rtx_PLUS (Pmode, stack_pointer_rtx, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1868 + gen_int_mode (size, HImode))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1869 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1870 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1871 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1872 +/** Generate RTL to push/pop a set of registers. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1873 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1874 +gen_rtx_register_pushpop (int op, int regs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1875 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1876 + rtx nregs = gen_int_mode (regs, QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1877 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1878 + if (op == UNSPEC_PUSH_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1879 + return gen_register_push (nregs); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1880 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1881 + return gen_register_pop (nregs); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1882 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1883 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1884 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1885 +/* Given a register set REGS, where the bit positions correspond to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1886 + * hard register numbers, return another bitmask that represents the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1887 + * order in which those registers would be pushed/popped. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1888 + * Registers that are pushed first have higher bit positions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1889 + * The pop order is just the reverse bitmask. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1890 + * These values are the same as the bitmasks actually used in the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1891 + * machine instructions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1892 +static unsigned int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1893 +register_push_order (int regs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1894 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1895 + unsigned int order = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1896 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1897 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1898 + order |= 0x80; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1899 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1900 + order |= 0x40; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1901 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1902 + order |= 0x20; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1903 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1904 + order |= 0x10; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1905 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1906 + order |= 0x8; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1907 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1908 + order |= 0x4; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1909 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1910 + order |= 0x2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1911 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1912 + order |= 0x1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1913 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1914 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1915 + order |= (0x4 | 0x2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1916 + return order; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1917 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1918 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1919 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1920 +/* Returns nonzero if two consecutive push or pop instructions, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1921 + * as determined by the OP, can be merged into a single instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1922 + * The first instruction in the sequence pushes/pops REGS1; the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1923 + * second applies to REGS2. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1924 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1925 + * If true, the resulting instruction can use (regs1 | regs2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1926 + * safely. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1927 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1928 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1929 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1930 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1931 + /* Register sets must not overlap */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1932 + if (regs1 & regs2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1933 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1934 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1935 + if (op == UNSPEC_PUSH_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1936 + return (register_push_order (regs1) > register_push_order (regs2)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1937 + else if (op == UNSPEC_POP_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1938 + return (register_push_order (regs1) < register_push_order (regs2)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1939 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1940 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1941 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1942 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1943 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1944 +/** Emit instructions for making a library call. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1945 + * MODE is the mode of the operation. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1946 + * NAME is the library function name. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1947 + * OPERANDS is the rtx array provided by the recognizer. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1948 + * COUNT is the number of input operands to the call, and |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1949 + * should be 1 for a unary op or 2 for a binary op. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1950 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1951 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1952 +emit_libcall_insns (enum machine_mode mode, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1953 + const char *name, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1954 + rtx *operands, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1955 + int count) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1956 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1957 + /* Generate an rtx for the call target. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1958 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1959 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1960 + /* Emit the library call. Slightly different based |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1961 + on the number of operands */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1962 + if (count == 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1963 + emit_library_call (symbol, LCT_NORMAL, mode, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1964 + 2, operands[1], mode, operands[2], mode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1965 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1966 + emit_library_call (symbol, LCT_NORMAL, mode, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1967 + 1, operands[1], mode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1968 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1969 + /* The library call is expected to put its result |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1970 + in LIBCALL_VALUE, so need to copy it into the destination. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1971 + emit_move_insn (operands[0], LIBCALL_VALUE(mode)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1972 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1973 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1974 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1975 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1976 + * A small helper function that writes out a single branch instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1977 + * OPCODE is the short name, e.g. "ble". |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1978 + * OPERANDS has the rtx for the target label. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1979 + * LONG_P is nonzero if we are emitting a long branch, and need to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1980 + * prepend an 'l' to the opcode name. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1981 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1982 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1983 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1984 + char pattern[64]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1985 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1986 + output_asm_insn (pattern, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1987 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1988 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1989 +/** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1990 + * Output a branch/conditional branch insn of the proper |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1991 + * length. code identifies the particular branch insn. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1992 + * operands holds the branch target in operands[0]. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1993 + * length says what the size of this insn should be. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1994 + * Based on the length, we know whether it should be a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1995 + * short (8-bit) or long (16-bit) branch. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1996 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1997 +const char * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1998 +output_branch_insn (enum rtx_code code, rtx *operands, int length) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1999 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2000 + int shortform; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2001 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2002 + /* Decide whether or not to use the long or short form. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2003 + * Calculate automatically based on insn lengths. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2004 + shortform = ((length > 2) ? 0 : 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2005 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2006 + /* Determine the proper opcode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2007 + * Use the short (2-byte) opcode if the target is within |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2008 + * reach. Otherwise, use jmp (3-byte opcode), unless |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2009 + * compiling with -fpic, in which case we'll need to use |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2010 + * lbra (4-byte opcode). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2011 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2012 + switch (code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2013 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2014 + case LABEL_REF: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2015 + if (shortform) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2016 + output_branch_insn1 ("bra", operands, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2017 + else if (flag_pic) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2018 + output_branch_insn1 ("bra", operands, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2019 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2020 + output_branch_insn1 ("jmp", operands, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2021 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2022 + case EQ: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2023 + output_branch_insn1 ("beq", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2024 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2025 + case NE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2026 + output_branch_insn1 ("bne", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2027 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2028 + case GT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2029 + output_branch_insn1 ("bgt", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2030 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2031 + case GTU: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2032 + output_branch_insn1 ("bhi", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2033 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2034 + case LT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2035 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2036 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2037 + output_branch_insn1 ("bmi", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2038 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2039 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2040 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2041 + output_branch_insn1 ("blt", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2042 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2043 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2044 + case LTU: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2045 + output_branch_insn1 ("blo", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2046 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2047 + case GE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2049 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2050 + output_branch_insn1 ("bpl", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2051 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2052 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2053 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2054 + output_branch_insn1 ("bge", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2055 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2056 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2057 + case GEU: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2058 + output_branch_insn1 ("bhs", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2059 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2060 + case LE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2062 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2063 + output_branch_insn1 ("bmi", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2064 + output_branch_insn1 ("beq", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2065 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2066 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2067 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2068 + output_branch_insn1 ("ble", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2069 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2070 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2071 + case LEU: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2072 + output_branch_insn1 ("bls", operands, !shortform); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2073 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2074 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2075 + abort(); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2076 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2077 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2078 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2079 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2080 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2081 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2082 +/** Returns the "cost" of an RTL expression. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2083 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2084 + * the cost of a fast 8-bit arithmetic instruction that operates on |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2085 + * a reg/mem or a reg/immed. Other costs are relative to this. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2086 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2087 + * Notes: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2088 + * - The cost of a REG is always zero; this cannot be changed. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2089 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2090 + * - On the 6809, instructions on two registers will nearly always take |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2091 + * longer than those that operate on a register and a constant/memory, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2092 + * because of the way the instruction set is structured. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2093 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2094 + * TODO: multiply HImode by 2 should be done via shifts, instead of add. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2095 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2096 +static bool |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2097 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2098 + int *total, bool speed) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2099 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2100 + int has_const_arg = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2101 + HOST_WIDE_INT const_arg; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2102 + enum machine_mode mode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2103 + int nargs = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2104 + rtx op0, op1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2105 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2106 + /* Data RTXs return a value between 0-3, depending on complexity. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2107 + All of these are less than COSTS_N_INSNS(1). */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2108 + switch (code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2109 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2110 + case CC0: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2111 + case PC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2112 + *total = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2113 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2114 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2115 + case CONST_INT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2116 + if (X == const0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2117 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2118 + *total = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2119 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2120 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2121 + else if ((unsigned) INTVAL (X) < 077) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2122 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2123 + *total = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2124 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2125 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2126 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2127 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2128 + *total = 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2129 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2130 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2131 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2132 + case LABEL_REF: case CONST: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2133 + *total = 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2134 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2135 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2136 + case SYMBOL_REF: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2137 + /* References to memory are made cheaper if they have |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2138 + * the 'direct' mode attribute set */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2139 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2140 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2141 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2142 + case MEM: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2143 + /* See what form of address was given */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2144 + X = XEXP (X, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2145 + switch (GET_CODE (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2146 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2147 + case SYMBOL_REF: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2148 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2149 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2150 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2151 + case CONST_INT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2152 + *total = 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2153 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2154 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2155 + case MEM: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2156 + *total = COSTS_N_INSNS (1) + 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2157 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2158 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2159 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2160 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2161 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2162 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2163 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2164 + case CONST_DOUBLE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2165 + /* TODO : not sure about this value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2166 + *total = 3; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2167 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2168 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2169 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2170 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2171 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2172 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2173 + /* Decode the rtx */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2174 + mode = GET_MODE (X); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2175 + op0 = XEXP (X, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2176 + op1 = XEXP (X, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2177 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2178 + /* We don't implement anything in SImode or greater. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2179 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2180 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2181 + *total = COSTS_N_INSNS (100); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2182 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2183 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2184 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2185 + /* Figure out if there is a constant argument, and its value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2186 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2187 + || GET_RTX_CLASS (code) == RTX_COMM_ARITH) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2188 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2189 + nargs = 2; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2190 + if (GET_CODE (op1) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2191 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2192 + has_const_arg = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2193 + const_arg = INTVAL (op1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2194 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2195 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2196 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2197 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2198 + * Ignore soft registers, since these are really in memory. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2199 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2200 + * TODO: penalize HImode reg/reg for most operations, except maybe |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2201 + * additions since index registers allow for that. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2202 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2203 + * TODO: shifts by constant N do not always require N instructions; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2204 + * some of this can be done cheaper. The number of actual insns can be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2205 + * predicted well. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2206 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2207 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2208 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2209 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2210 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2211 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2212 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2213 + *total = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2214 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2215 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2216 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2217 + the estimated number of actual machine instructions needed to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2218 + perform the computation. Some small adjustments are made since |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2219 + some "instructions" are more complex than others. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2220 + switch (code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2221 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2222 + case PLUS: case MINUS: case COMPARE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2223 + /* 6809 handles these natively in QImode, and in HImode as long |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2224 + * as operand 1 is constant. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2225 + if (mode == QImode || (mode == HImode && has_const_arg)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2226 + *total += COSTS_N_INSNS (1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2227 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2228 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2229 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2230 + /* -1, 0, and 1 can be done using inherent instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2231 + * for PLUS and MINUS in QImode, so don't add extra cost. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2232 + if (has_const_arg |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2233 + && (mode == QImode || mode == HImode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2234 + && (const_arg == -1 || const_arg == 0 || const_arg == 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2235 + && (code == PLUS || code == MINUS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2236 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2237 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2238 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2239 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2240 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2241 + case AND: case IOR: case XOR: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2242 + case NEG: case NOT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2243 + /* 6809 handles these natively in QImode, but requires |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2244 + * splitting in HImode. Treat these as 2 insns. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2245 + *total += COSTS_N_INSNS (1) * GET_MODE_SIZE (mode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2246 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2247 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2248 + case ASHIFT: case ASHIFTRT: case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2249 + case ROTATE: case ROTATERT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2250 + /* 6809 can do shift/rotates of a QImode by a constant in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2251 + * 1 insn times the shift count, or in HImode by a constant |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2252 + * by splitting to 2 insns. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2253 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2254 + * Shift by a nonconstant will take significantly longer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2255 + * than any of these. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2256 + if (has_const_arg) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2257 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2258 + const_arg %= (GET_MODE_SIZE (mode) * 8); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2259 + if (const_arg == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2260 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2261 + *total += COSTS_N_INSNS(1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2262 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2263 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2264 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2265 + /* HImode shifts greater than 8 get optimized due |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2266 + * to register transfer from b to a; this cuts down the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2267 + * cost. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2268 + if (const_arg >= 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2269 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2270 + *total += COSTS_N_INSNS (1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2271 + const_arg -= 8; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2272 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2273 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2274 + /* The computed cost is 'const_arg' 1-bit shifts, doubled |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2275 + if in HImode, minus the cost of the constant itself which |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2276 + will be added in later but really shouldn't be. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2277 + *total += COSTS_N_INSNS (const_arg) * GET_MODE_SIZE (mode) - 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2278 + return true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2279 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2280 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2281 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2282 + /* It may take up to 7 iterations of about 6-7 real |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2283 + * instructions, so make this expensive. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2284 + *total += COSTS_N_INSNS (50); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2285 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2286 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2287 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2288 + case MULT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2289 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2290 + /* Multiply is cheap when both arguments are 8-bits. They |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2291 + could be QImode, or QImode widened to HImode, or a constant |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2292 + that fits into 8-bits. As long as both operands qualify, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2293 + we can use a single mul instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2294 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2295 + Assume that fast multiply can be used, and change this if we find |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2296 + differently... */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2297 + int ok_for_qihi3 = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2298 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2299 + /* Check the first operand */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2300 + switch (GET_MODE (op0)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2301 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2302 + case QImode: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2303 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2304 + case HImode: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2305 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2306 + ok_for_qihi3 = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2307 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2308 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2309 + ok_for_qihi3 = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2310 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2311 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2312 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2313 + /* Likewise, check the second operand. This is where constants may appear. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2314 + switch (GET_MODE (op1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2315 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2316 + case QImode: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2317 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2318 + case HImode: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2319 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2320 + ok_for_qihi3 = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2321 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2322 + case VOIDmode: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2323 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K')) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2324 + ok_for_qihi3 = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2325 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2326 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2327 + ok_for_qihi3 = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2328 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2329 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2330 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2331 + /* Fast multiply takes about 4 times as many cycles as a normal |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2332 + arithmetic operation. Otherwise, it will take an expensive libcall. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2333 + if (ok_for_qihi3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2334 + *total += COSTS_N_INSNS (4); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2335 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2336 + *total = COSTS_N_INSNS (50); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2337 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2338 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2339 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2340 + case DIV: case UDIV: case MOD: case UMOD: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2341 + /* These all require more expensive libcalls. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2342 + *total += COSTS_N_INSNS (100); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2343 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2344 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2345 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2346 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2347 + /* These can normally be done with autoincrement, etc., so |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2348 + * don't charge for them. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2349 + case PRE_DEC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2350 + case PRE_INC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2351 + case POST_DEC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2352 + case POST_INC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2353 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2354 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2355 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2356 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2357 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2358 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2359 + /* Always return false, and let the caller gather the costs |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2360 + * of the operands */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2361 + return false; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2362 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2363 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2364 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2365 +static tree |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2366 +m6809_handle_fntype_attribute (tree *node, tree name, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2367 + tree args ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2368 + int flags ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2369 + bool *no_add_attrs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2370 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2371 + if (TREE_CODE (*node) != FUNCTION_TYPE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2372 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2373 + warning (WARNING_OPT "'%s' only valid for functions", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2374 + IDENTIFIER_POINTER (name)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2375 + *no_add_attrs = TRUE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2376 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2377 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2378 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2379 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2380 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2381 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2382 +static tree |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2383 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2384 + tree name ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2385 + tree args ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2386 + int flags ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2387 + bool *no_add_attrs ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2388 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2389 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2390 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2391 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2392 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2393 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2394 +static tree |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2395 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2396 + tree name ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2397 + tree args ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2398 + int flags ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2399 + bool *no_add_attrs ATTRIBUTE_UNUSED ) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2400 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2401 + return NULL_TREE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2402 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2403 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2404 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2405 +/* Table of valid machine attributes */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2406 +const struct attribute_spec m6809_attribute_table[] = { /* |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2407 +{ name, min, max, decl, type, fntype, handler } */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2408 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2409 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2410 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2411 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2412 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2413 +{ NULL, 0, 0, false, true, false, NULL }, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2414 +}; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2415 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2416 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2417 +/** Initialize builtin routines for the 6809. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2418 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2419 +m6809_init_builtins (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2420 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2421 + /* Create type trees for each function signature required. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2422 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2423 + * void_ftype_void = void f(void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2424 + * void_ftype_uchar = void f(unsigned char) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2425 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2426 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2427 + tree void_ftype_void = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2428 + build_function_type (void_type_node, void_list_node); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2429 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2430 + tree void_ftype_uchar = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2431 + build_function_type (void_type_node, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2432 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2433 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2434 + tree uchar_ftype_uchar2 = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2435 + build_function_type (unsigned_char_type_node, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2436 + tree_cons (NULL_TREE, unsigned_char_type_node, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2437 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2438 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2439 + /* Register each builtin function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2440 + add_builtin_function ("__builtin_swi", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2441 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2442 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2443 + add_builtin_function ("__builtin_swi2", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2444 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2445 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2446 + add_builtin_function ("__builtin_swi3", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2447 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2448 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2449 + add_builtin_function ("__builtin_cwai", void_ftype_uchar, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2450 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2451 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2452 + add_builtin_function ("__builtin_sync", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2453 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2454 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2455 + add_builtin_function ("__builtin_nop", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2456 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2457 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2458 + add_builtin_function ("__builtin_blockage", void_ftype_void, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2459 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2460 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2461 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2462 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2463 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2464 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2465 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2466 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2467 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2468 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2469 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2470 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2471 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2472 +/** Used by m6809_expand_builtin, given a tree ARGLIST which |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2473 + * refers to the operands of a builtin call, return an rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2474 + * that represents the nth operand, as denoted by OPNUM, which |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2475 + * is a zero-based integer. MODE gives the expected mode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2476 + * of the operand. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2477 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2478 + * This rtx is suitable for use in the emitted RTL for the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2479 + * builtin instruction. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2480 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2481 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2482 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2483 + tree arg; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2484 + rtx r; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2485 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2486 + arg = CALL_EXPR_ARG (arglist, opnum); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2487 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2488 + /* Convert the tree to RTL */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2489 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2490 + if (r == NULL_RTX) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2491 + return NULL_RTX; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2492 + return r; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2493 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2494 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2495 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2496 +/** Expand a builtin that was registered in init_builtins into |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2497 + * RTL. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2498 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2499 +m6809_expand_builtin (tree exp, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2500 + rtx target, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2501 + rtx subtarget ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2502 + enum machine_mode mode ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2503 + int ignore ATTRIBUTE_UNUSED ) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2504 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2505 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2506 + tree arglist = exp; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2507 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2508 + rtx r0, r1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2509 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2510 + switch (fcode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2511 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2512 + case M6809_SWI: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2513 + r0 = gen_rtx_CONST_INT (VOIDmode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2514 + emit_insn (target = gen_m6809_swi (r0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2515 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2516 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2517 + case M6809_SWI2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2518 + r0 = gen_rtx_CONST_INT (VOIDmode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2519 + emit_insn (target = gen_m6809_swi (r0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2520 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2521 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2522 + case M6809_SWI3: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2523 + r0 = gen_rtx_CONST_INT (VOIDmode, 3); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2524 + emit_insn (target = gen_m6809_swi (r0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2525 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2526 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2527 + case M6809_CWAI: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2528 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2529 + emit_insn (target = gen_m6809_cwai (r0)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2530 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2531 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2532 + case M6809_SYNC: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2533 + emit_insn (target = gen_m6809_sync ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2534 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2535 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2536 + case M6809_ADD_CARRY: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2537 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2538 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2539 + if (!target) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2540 + target = gen_reg_rtx (QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2541 + emit_insn (gen_addqi3_carry (target, r0, r1)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2542 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2543 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2544 + case M6809_SUB_CARRY: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2545 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2546 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2547 + if (!target) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2548 + target = gen_reg_rtx (QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2549 + emit_insn (gen_subqi3_carry (target, r0, r1)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2550 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2551 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2552 + case M6809_NOP: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2553 + emit_insn (target = gen_nop ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2554 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2555 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2556 + case M6809_BLOCKAGE: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2557 + emit_insn (target = gen_blockage ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2558 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2559 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2560 + case M6809_ADD_DECIMAL: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2561 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2562 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2563 + if (!target) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2564 + target = gen_reg_rtx (QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2565 + emit_insn (gen_addqi3_decimal (target, r0, r1)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2566 + return target; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2567 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2568 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2569 + warning (WARNING_OPT "unknown builtin expansion ignored"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2570 + return NULL_RTX; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2571 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2572 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2573 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2574 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2575 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2576 +/* Returns nonzero if 'x' represents a function that was declared |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2577 + * as __noreturn__. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2578 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2579 +noreturn_functionp (rtx x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2580 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2581 + tree decl = call_target_decl (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2582 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2583 + if (decl == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2584 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2585 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2586 + return TREE_THIS_VOLATILE (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2587 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2588 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2589 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2590 +const char * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2591 +far_function_type_p (tree type) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2592 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2593 + tree attr; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2594 + const char *page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2595 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2596 + /* Return whether or not this decl has the far attribute */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2597 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2598 + if (attr == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2599 + return NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2600 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2601 + /* If it is far, check for a value */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2602 + attr = TREE_VALUE (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2603 + if (attr == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2604 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2605 + warning (WARNING_OPT "far code page not specified, using local value"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2606 + return far_code_page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2607 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2608 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2609 + /* We have a TREE_LIST of attribute values, get the first one. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2610 + * It should be an INTEGER_CST. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2611 + attr = TREE_VALUE (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2612 + page = TREE_STRING_POINTER (attr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2613 + return page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2614 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2615 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2616 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2617 +/* For a far function, returns the identifier that states which page |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2618 + * it resides in. Otherwise, returns NULL for ordinary functions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2619 +const char * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2620 +far_functionp (rtx x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2621 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2622 + tree decl, decl_type; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2623 + const char *page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2624 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2625 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2626 + decl = call_target_decl (x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2627 + if (decl == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2628 + return NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2629 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2630 + /* See if the function has the new 'banked' attribute. These |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2631 + * are numeric instead of text */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2632 + page = m6809_get_decl_bank (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2633 + if (page) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2634 + return page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2635 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2636 + /* No, lookup the type of the function and see if the type |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2637 + * specifies far or not. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2638 + decl_type = TREE_TYPE (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2639 + if (decl_type == NULL_TREE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2640 + return NULL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2641 + return far_function_type_p (decl_type); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2642 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2643 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2644 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2645 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2646 +/** Outputs the assembly language for a far call. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2647 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2648 +output_far_call_insn (rtx *operands, int has_return) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2649 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2650 + static char page_data[64]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2651 + const char *called_page; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2652 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2653 + /* The logic is the same for functions whether or not there |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2654 + * is a return value. Skip over the return value in this |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2655 + * case, so that the call location is always operands[0]. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2656 + if (has_return) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2657 + operands++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2658 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2659 + /* Get the name of the page being called */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2660 + called_page = far_functionp (operands[0]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2661 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2662 +#if 0 /* TODO : broken logic */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2663 + /* See if the called page name is a 'bank' */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2664 + if (isdigit (*called_page)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2665 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2666 + /* New style banking */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2667 + if (!strcmp (called_page, current_bank_name)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2668 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2669 + /* Same page */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2670 + output_asm_insn ("jsr\t%0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2671 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2672 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2673 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2674 + /* Different page */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2675 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2676 + output_asm_insn ("\t.dw\t%0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2677 + sprintf (page_data, "\t.db\t%s", called_page); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2678 + output_asm_insn (page_data, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2679 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2680 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2681 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2682 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2683 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2684 + /* Are we calling a different page than we are running in? */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2685 + if (!strcmp (called_page, far_code_page)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2686 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2687 + /* Same page : no need to execute a far call */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2688 + if (flag_pic) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2689 + output_asm_insn ("lbsr\t%C0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2690 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2691 + output_asm_insn ("jsr\t%0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2692 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2693 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2694 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2695 + /* Different page : need to emit far call thunk */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2696 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2697 + /* First output a call to the thunk for making far calls. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2698 + if (flag_pic) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2699 + output_asm_insn ("lbsr\t__far_call_handler", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2700 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2701 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2702 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2703 + /* Now output the name of the call site */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2704 + output_asm_insn ("\t.dw\t%C0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2705 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2706 + /* Finally output the page number */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2707 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0])); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2708 + output_asm_insn (page_data, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2709 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2710 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2711 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2712 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2713 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2714 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2715 + tree fntype, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2716 + rtx libname ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2717 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2718 + cum = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2719 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2720 + /* For far functions, the current implementation does not allow for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2721 + * stack parameters. So note whenever the called function is far |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2722 + * and in a different page than the current one; such a function |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2723 + * should give an error if a stack parameter is generated. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2724 + if (fntype) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2725 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2726 + const char *called_page = far_function_type_p (fntype); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2727 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2728 + cum |= CUM_STACK_INVALID; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2729 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2730 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2731 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2732 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2733 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2734 + /* has variable arguments, cannot use registers */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2735 + cum |= (CUM_X_MASK | CUM_B_MASK | CUM_STACK_ONLY); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2736 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2737 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2738 + if (m6809_abi_version == M6809_ABI_VERSION_STACK) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2739 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2740 + /* cannot use registers ; only use the stack */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2741 + cum |= (CUM_STACK_ONLY | CUM_X_MASK | CUM_B_MASK); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2742 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2743 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2744 + return cum; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2745 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2746 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2747 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2748 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2749 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2750 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2751 + if (*cump & CUM_STACK_INVALID) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2752 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2753 + *cump &= ~CUM_STACK_INVALID; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2754 + error ("far function needs stack, will not work"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2755 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2756 + return NULL_RTX; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2757 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2758 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2759 +void m6809_asm_trampoline_template(FILE *f) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2760 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2761 + fprintf(f, "ldy #0000\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2762 + fprintf(f, "jmp 0x0000\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2763 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2764 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2765 +/* |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2766 + * Trampoline output: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2767 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2768 + * ldu #&cxt 4 bytes --LDY- ?? ?? |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2769 + * jmp fnaddr 3 bytes JMP ?? ?? |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2770 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2771 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2772 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2773 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2774 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2775 + /* TODO - optimize by generating the entire trampoline code here, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2776 + * and removing the template altogether, since there are only two |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2777 + * bytes there that matter. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2778 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2779 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2780 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2781 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2782 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2783 +/** Echo the version of the compiler and the name of the source file |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2784 + * at the beginning of each assembler output file. asm_out_file |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2785 + * is a global FILE * pointing to the output stream. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2786 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2787 +m6809_asm_file_start (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2788 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2789 + const char *module_name; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2790 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2791 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2792 + __DATE__, __TIME__); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2793 + fprintf (asm_out_file, ";;; %s\n", version_string); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2794 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2795 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2796 + fprintf (asm_out_file, ";;; %s\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2797 + (TARGET_BYTE_INT ? "-mint8" : "-mint16")); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2798 + if (TARGET_EXPERIMENT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2799 + fprintf (asm_out_file, ";;; -mexperiment\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2800 + if (TARGET_WPC) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2801 + fprintf (asm_out_file, ";;; -mwpc\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2802 + if (TARGET_6309) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2803 + fprintf (asm_out_file, ";;; -m6309\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2804 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2805 + /* Print the name of the module, which is taken as the base name |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2806 + * of the input file. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2807 + * See the 'User-Defined Symbols' section of the assembler |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2808 + * documentation for the rules on valid symbols. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2809 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2810 + module_name = lbasename (main_input_filename); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2811 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2812 + fprintf (asm_out_file, "\t.module\t"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2813 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2814 + if (*module_name >= '0' && *module_name <= '9') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2815 + fprintf (asm_out_file, "_"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2816 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2817 + while (*module_name) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2818 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2819 + if ((*module_name >= '0' && *module_name <= '9') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2820 + || (*module_name >= 'A' && *module_name <= 'Z') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2821 + || (*module_name >= 'a' && *module_name <= 'z') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2822 + || *module_name == '$' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2823 + || *module_name == '.' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2824 + || *module_name == '_') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2825 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2826 + fprintf (asm_out_file, "%c", *module_name); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2827 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2828 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2829 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2830 + fprintf (asm_out_file, "_"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2831 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2832 + module_name++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2833 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2834 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2835 + fprintf (asm_out_file, "\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2836 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2837 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2838 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2839 +/** Returns true if prologue/epilogue code is required for the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2840 + * current function being compiled. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2841 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2842 + * This is just the inverse of whether the function is declared as |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2843 + * 'naked'. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2844 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2845 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2846 +prologue_epilogue_required (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2847 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2848 + return !m6809_current_function_has_type_attr_p ("naked") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2849 + && !m6809_current_function_has_type_attr_p ("noreturn"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2850 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2851 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2852 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2853 +/** Expand RTL for function entry */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2854 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2855 +emit_prologue_insns (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2856 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2857 + rtx insn; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2858 + unsigned int live_regs = m6809_get_live_regs (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2859 + unsigned int frame_size = get_frame_size (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2860 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2861 + /* Save all registers used, including the frame pointer */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2862 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2863 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2864 + insn = emit_insn ( |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2865 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2866 + RTX_FRAME_RELATED_P (insn) = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2867 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2868 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2869 + /* Allocate space for local variables */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2870 + if (frame_size != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2871 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2872 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2873 + RTX_FRAME_RELATED_P (insn) = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2874 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2875 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2876 + /* Set the frame pointer if it is needed */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2877 + if (frame_pointer_needed) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2878 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2879 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2880 + RTX_FRAME_RELATED_P (insn) = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2881 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2882 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2883 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2884 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2885 +/** Expand RTL for function exit */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2886 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2887 +emit_epilogue_insns (bool sibcall_p) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2888 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2889 + unsigned int live_regs = m6809_get_live_regs (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2890 + unsigned int frame_size = get_frame_size (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2891 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2892 + if (frame_size != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2893 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2894 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2895 + if (sibcall_p) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2896 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2897 + if (live_regs) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2898 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2899 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2900 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2901 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2902 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2903 + emit_insn ( |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2904 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT | live_regs)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2905 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2906 + if (m6809_current_function_has_type_attr_p ("interrupt")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2907 + emit_jump_insn (gen_return_rti ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2908 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2909 + emit_jump_insn (gen_return_rts ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2910 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2911 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2912 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2913 +#if 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2914 +/** Predefine some preprocessor names according to the currently |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2915 + * selected compiler options */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2916 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2917 +m6809_cpu_cpp_builtins (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2918 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2919 + if (TARGET_6309) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2920 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2921 + builtin_define_std ("__M6309__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2922 + builtin_define_std ("__m6309__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2923 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2924 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2925 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2926 + builtin_define_std ("__M6809__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2927 + builtin_define_std ("__m6809__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2928 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2929 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2930 + if (TARGET_BYTE_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2931 + builtin_define_std ("__int8__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2932 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2933 + builtin_define_std ("__int16__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2934 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2935 + switch (m6809_abi_version) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2936 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2937 + case M6809_ABI_VERSION_STACK: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2938 + builtin_define_std ("__regargs__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2939 + builtin_define_std ("__ABI_STACK__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2940 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2941 + case M6809_ABI_VERSION_REGS: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2942 + builtin_define_std ("__ABI_REGS__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2943 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2944 + case M6809_ABI_VERSION_BX: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2945 + builtin_define_std ("__ABI_BX__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2946 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2947 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2948 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2949 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2950 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2951 + if (TARGET_WPC) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2952 + builtin_define_std ("__WPC__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2953 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2954 + if (TARGET_DRET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2955 + builtin_define_std ("__DRET__"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2956 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2957 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2958 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2959 +#define MAX_ASM_ASCII_STRING 48 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2960 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2961 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2962 +m6809_output_ascii (FILE *fp, const char *str, unsigned long size) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2963 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2964 + unsigned long i; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2965 + bool use_ascii = true; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2966 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2967 + /* If the size is too large, then break this up into multiple |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2968 + outputs. The assembler can only output roughly 48 bytes at a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2969 + time. Note that if there are lots of escape sequences in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2970 + the string, this may fail. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2971 + if (size > MAX_ASM_ASCII_STRING) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2972 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2973 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2974 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2975 + size - MAX_ASM_ASCII_STRING); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2976 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2977 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2978 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2979 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2980 + for (i = 0; i < size; i++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2981 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2982 + int c = str[i] & 0377; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2983 + if (c >= 0x80) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2984 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2985 + use_ascii = false; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2986 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2987 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2988 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2989 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2990 + if (use_ascii) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2991 + fprintf (fp, "\t.ascii \""); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2992 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2993 + for (i = 0; i < size; i++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2994 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2995 + int c = str[i] & 0377; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2996 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2997 + if (use_ascii) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2998 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2999 + /* Just output the plain character if it is printable, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3000 + otherwise output the escape code for the character. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3001 + The assembler recognizes the same C-style octal escape sequences, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3002 + except that it only supports 7-bit codes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3003 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3004 + putc (c, fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3005 + else switch (c) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3006 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3007 + case '\n': |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3008 +#ifndef TARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3009 + fputs ("\\n", fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3010 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3011 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3012 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3013 + case '\r': |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3014 + fputs ("\\r", fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3015 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3016 + case '\t': |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3017 + fputs ("\\t", fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3018 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3019 + case '\f': |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3020 + fputs ("\\f", fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3021 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3022 + case 0: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3023 + fputs ("\\0", fp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3024 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3025 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3026 + fprintf (fp, "\\%03o", c); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3027 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3028 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3029 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3030 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3031 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3032 + fprintf (fp, "\t.byte\t0x%02X\n", c); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3033 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3034 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3035 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3036 + if (use_ascii) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3037 + fprintf (fp, "\"\n"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3038 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3039 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3040 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3041 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3042 +m6809_output_quoted_string (FILE *asm_file, const char *string) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3043 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3044 + char c; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3045 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3046 + if (strlen (string) > MAX_ASM_ASCII_STRING) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3047 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3048 + /* The string length is too large. We'll have to truncate it. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3049 + This is only called from debugging functions, so it's usually |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3050 + not critical. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3051 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3052 + char truncated_string[MAX_ASM_ASCII_STRING+1]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3053 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3054 + /* Copy as many characters as we can. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3055 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3056 + truncated_string[MAX_ASM_ASCII_STRING] = '\0'; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3057 + string = truncated_string; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3058 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3059 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3060 + /* Copied from toplev.c */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3061 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3062 + putc ('\"', asm_file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3063 + while ((c = *string++) != 0) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3064 + if (ISPRINT (c)) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3065 + if (c == '\"' || c == '\\') |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3066 + putc ('\\', asm_file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3067 + putc (c, asm_file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3068 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3069 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3070 + fprintf (asm_file, "\\%03o", (unsigned char) c); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3071 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3072 + putc ('\"', asm_file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3073 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3074 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3075 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3076 +/** Output the assembly code for a shift instruction where the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3077 + * shift count is not constant. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3078 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3079 +m6809_output_shift_insn (int rtx_code, rtx *operands) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3080 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3081 + struct shift_opcode *op; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3082 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3083 + if (GET_CODE (operands[2]) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3084 + abort (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3085 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3086 + if (optimize_size && GET_MODE (operands[0]) == HImode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3087 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3088 + switch (rtx_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3089 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3090 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3091 + output_asm_insn ("jsr\t_ashlhi3", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3092 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3093 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3094 + output_asm_insn ("jsr\t_ashrhi3", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3095 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3096 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3097 + output_asm_insn ("jsr\t_lshrhi3", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3098 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3099 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3100 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3101 + else if (GET_MODE (operands[0]) == HImode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3102 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3103 + switch (rtx_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3104 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3105 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3106 + m6809_gen_register_shift (operands, "aslb", "rola"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3107 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3108 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3109 + m6809_gen_register_shift (operands, "asra", "rorb"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3110 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3111 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3112 + m6809_gen_register_shift (operands, "lsra", "rorb"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3113 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3114 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3115 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3116 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3117 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3118 + switch (rtx_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3119 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3120 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3121 + m6809_gen_register_shift (operands, "aslb", NULL); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3122 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3123 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3124 + m6809_gen_register_shift (operands, "asrb", NULL); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3125 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3126 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3127 + m6809_gen_register_shift (operands, "lsrb", NULL); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3128 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3129 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3130 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3131 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3132 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3133 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3134 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3135 +m6809_emit_move_insn (rtx dst, rtx src) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3136 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3137 + emit_insn (gen_rtx_SET (VOIDmode, dst, src)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3138 + if (ACC_A_REG_P (dst)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3139 + emit_insn (gen_rtx_USE (VOIDmode, dst)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3140 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3141 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3142 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3143 +/** Split a complex shift instruction into multiple CPU |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3144 + * shift instructions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3145 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3146 +m6809_split_shift (enum rtx_code code, rtx *operands) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3147 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3148 + enum machine_mode mode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3149 + int count; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3150 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3151 + mode = GET_MODE (operands[0]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3152 + count = INTVAL (operands[2]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3153 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3154 + /* Handle a shift count outside the range of 0 .. N-1, where |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3155 + * N is the mode size in bits. We normalize the count, and |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3156 + * for negative counts we also invert the direction of the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3157 + * shift. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3158 + if ((count < 0) || (count >= 8 * GET_MODE_SIZE (mode))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3159 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3160 + if (count < 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3161 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3162 + count = -count; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3163 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3164 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3165 + count %= (8 * GET_MODE_SIZE (mode)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3166 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3167 + gen_rtx_fmt_ee (code, mode, operands[1], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3168 + gen_rtx_CONST_INT (VOIDmode, count))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3169 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3170 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3171 + /* Handle shift by zero explicitly as a no-op. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3172 + if (count == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3173 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3174 + emit_insn (gen_nop ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3175 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3176 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3177 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3178 + /* Decompose the shift by a constant N > 8 into two |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3179 + * shifts, first by 8 and then by N-8. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3180 + * This "speeds up" the process for large shifts that would be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3181 + * handled below, but allows for some optimization. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3182 + * In some cases shift by 8 can be implemented fast. If an |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3183 + * instruction to shift by 8 is defined, it will be used here; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3184 + * otherwise it will be further decomposed as below. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3185 + if (mode == HImode && count > 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3186 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3187 + rtx output = operands[0]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3188 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3189 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3190 + gen_rtx_fmt_ee (code, mode, operands[1], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3191 + gen_rtx_CONST_INT (VOIDmode, 8))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3192 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3193 + /* Unsigned shifts always produce a zero in either the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3194 + * upper or lower half of the output; then, that part |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3195 + * does not need to be shifted anymore. We modify the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3196 + * output and the subsequent instructions to operate in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3197 + * QImode only on the relevant part. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3198 + if (REG_P (output)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3199 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3200 + if (code == ASHIFT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3201 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3202 + output = gen_rtx_REG (QImode, HARD_A_REGNUM); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3203 + mode = QImode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3204 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3205 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3206 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3207 + output = gen_rtx_REG (QImode, HARD_D_REGNUM); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3208 + mode = QImode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3209 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3210 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3211 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3212 + m6809_emit_move_insn (output, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3213 + gen_rtx_fmt_ee (code, mode, copy_rtx (output), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3214 + gen_rtx_CONST_INT (VOIDmode, count-8))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3215 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3216 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3217 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3218 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3219 + * (near to the maximum of 8) as a rotate and mask. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3220 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3221 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3222 + unsigned int mask; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3223 + unsigned int was_signed = (code == ASHIFTRT); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3224 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3225 + code = (code == ASHIFT) ? ROTATERT : ROTATE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3226 + if (code == ROTATE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3227 + mask = (count == 6) ? 0x03 : 0x01; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3228 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3229 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3230 + count = 9 - count; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3231 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3232 + do { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3233 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3234 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3235 + } while (--count != 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3236 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3237 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3238 + gen_rtx_fmt_ee (AND, QImode, operands[1], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3239 + gen_rtx_CONST_INT (VOIDmode, mask))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3240 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3241 + if (was_signed) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3242 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3243 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0]))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3244 + if (ACC_A_REG_P (operands[0])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3245 + emit_insn (gen_rtx_USE (VOIDmode, operands[0])); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3246 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3247 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3248 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3249 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3250 + /* Decompose the shift by any constant N > 1 into a sequence |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3251 + * of N shifts. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3252 + * This is done recursively, by creating a shift by 1 and a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3253 + * shift by N-1, as long as N>1. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3254 + if (count > 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3255 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3256 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3257 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3258 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3259 + m6809_emit_move_insn (operands[0], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3260 + gen_rtx_fmt_ee (code, mode, operands[1], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3261 + gen_rtx_CONST_INT (VOIDmode, count-1))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3262 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3263 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3264 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3265 + /* Decompose the single shift of a 16-bit quantity into two |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3266 + * CPU instructions, one for each 8-bit half. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3267 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3268 + if (mode == HImode && count == 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3269 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3270 + rtx first, second; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3271 + enum rtx_code rotate_code; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3272 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3273 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3274 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3275 + /* Split the operand into two 8-bit entities. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3276 + * FIRST is the one that will get shifted via a regular CPU |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3277 + * instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3278 + * SECOND is the one that will have the result of the first shift |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3279 + * rotated in. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3280 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3281 + * We initialize first and second as if we are doing a left shift, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3282 + * then swap the operands if it's a right shift. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3283 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3284 + if (REG_P (operands[0])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3285 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3286 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3287 + second = gen_rtx_REG (QImode, HARD_A_REGNUM); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3288 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3289 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3290 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3291 + first = adjust_address (operands[0], QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3292 + second = adjust_address (operands[0], QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3293 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3294 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3295 + if (rotate_code == ROTATERT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3296 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3297 + rtx tmp; tmp = first; first = second; second = tmp; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3298 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3299 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3300 + /* Decompose into a shift and a rotate instruction. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3301 + m6809_emit_move_insn (first, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3302 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3303 + m6809_emit_move_insn (second, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3304 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3305 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3306 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3307 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3308 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3309 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3310 +/** Adjust register usage based on compile-time flags. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3311 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3312 +m6809_conditional_register_usage (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3313 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3314 + unsigned int soft_regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3315 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3316 +#ifdef CONFIG_SOFT_REGS_ALWAYS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3317 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3318 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3319 + if (!m6809_soft_reg_count) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3320 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3321 + m6809_soft_regs = atoi (m6809_soft_reg_count); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3322 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3323 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3324 + if (m6809_soft_regs == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3325 + return; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3326 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3327 + if (m6809_soft_regs > NUM_M_REGS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3328 + m6809_soft_regs = NUM_M_REGS; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3329 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3330 + /* Registers are marked FIXED by default. Free up if |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3331 + the user wishes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3332 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3333 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3334 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3335 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3336 + /* Mark the softregs as call-clobbered, so that they need |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3337 + * not be saved/restored on function entry/exit. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3338 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3339 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3340 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3341 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3342 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3343 +/** Return a RTX representing how to return a value from a function. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3344 + VALTYPE gives the type of the value, FUNC identifies the function |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3345 + itself. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3346 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3347 + In general, we only care about the width of the result. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3348 +rtx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3349 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3350 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3351 + unsigned int regno; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3352 + enum machine_mode mode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3353 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3354 + /* Get the mode (i.e. width) of the result. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3355 + mode = TYPE_MODE (valtype); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3356 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3357 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3358 + regno = HARD_Z_REGNUM; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3359 + else if (mode == QImode || (TARGET_DRET && mode == HImode)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3360 + regno = HARD_D_REGNUM; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3361 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3362 + regno = HARD_X_REGNUM; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3363 + return gen_rtx_REG (mode, regno); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3364 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3365 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3366 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3367 +/** Return 1 if REGNO is possibly needed to return the result |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3368 +of a function, 0 otherwise. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3369 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3370 +m6809_function_value_regno_p (unsigned int regno) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3371 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3372 + if (regno == HARD_Z_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3373 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3374 + else if ((TARGET_BYTE_INT || TARGET_DRET) && regno == HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3375 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3376 + else if (!TARGET_DRET && regno == HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3377 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3378 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3379 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3380 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3381 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3382 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3383 +#ifdef TRACE_PEEPHOLE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3384 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3385 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3386 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3387 + if (stage == PEEP_END) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3388 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3389 + printf ("%s: peephole %d pattern and predicate matched\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3390 + main_input_filename, peephole_id); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3391 + fflush (stdout); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3392 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3393 + else if (stage == PEEP_COND) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3394 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3395 + printf ("%s: peephole %d? at least pattern matched\n", |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3396 + main_input_filename, peephole_id); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3397 + fflush (stdout); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3398 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3399 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3400 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3401 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3402 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3403 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3404 + unsigned int stage ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3405 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3406 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3407 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3408 +#endif /* TRACE_PEEPHOLE */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3409 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3410 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3411 +/** Return 1 if it is OK to store a value of MODE in REGNO. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3412 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3413 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3414 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3415 + /* Soft registers, as they are just memory, can really hold |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3416 + values of any type. However we restrict them to values of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3417 + size HImode or QImode to prevent exhausting them for larger |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3418 + values. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3419 + Word values cannot be placed into the first soft register, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3420 + as it is the low byte that is being placed there, which |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3421 + corrupts the (non-soft) register before it. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3422 + if (M_REGNO_P (regno)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3423 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3424 + switch (GET_MODE_SIZE (mode)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3425 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3426 + case 1: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3427 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3428 + case 2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3429 + return regno != SOFT_M0_REGNUM; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3430 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3431 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3432 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3433 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3434 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3435 + /* VOIDmode can be stored anywhere */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3436 + else if (mode == VOIDmode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3437 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3438 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3439 + /* Zero is a reserved register, but problems occur if we don't |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3440 + say yes here??? */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3441 + else if (regno == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3442 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3443 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3444 + /* For other registers, return true only if the requested size |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3445 + exactly matches the hardware size. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3446 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3447 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3448 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3449 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3450 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3451 + return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3452 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3453 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3454 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3455 +/* exp is the call expression. DECL is the called function, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3456 + * or NULL for an indirect call */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3457 +bool |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3458 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3459 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3460 + tree type, arg; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3461 + const char *name; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3462 + bool result = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3463 + int argcount = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3464 + int step = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3465 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3466 + /* If there is no DECL, it is an indirect call. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3467 + * Never optimize this??? */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3468 + if (decl == NULL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3469 + goto done; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3470 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3471 + /* Never allow an interrupt handler to be optimized this way. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3472 + if (m6809_function_has_type_attr_p (decl, "interrupt")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3473 + goto done; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3474 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3475 + /* Skip sibcall if the type can't be found for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3476 + * some reason */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3477 + step++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3478 + name = IDENTIFIER_POINTER (DECL_NAME (decl)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3479 + type = TREE_TYPE (decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3480 + if (type == NULL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3481 + goto done; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3482 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3483 + /* Skip sibcall if the target is a far function */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3484 + step++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3485 + if (far_function_type_p (type) != NULL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3486 + goto done; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3487 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3488 + /* Skip sibcall if the called function's arguments are |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3489 + * variable */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3490 + step++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3491 + if (TYPE_ARG_TYPES (type) == NULL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3492 + goto done; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3493 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3494 + /* Allow sibcalls in other cases. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3495 + result = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3496 +done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3497 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3498 + return result; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3499 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3500 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3501 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3502 +/** Emit code for the 'casesi' pattern. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3503 + * This pattern is only used in 8-bit mode, and can be disabled |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3504 + * with -mold-case there as well. The rationale for this is to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3505 + * do a better job than the simpler but well-tested 'tablejump' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3506 + * method. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3507 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3508 + * For small jumptables, where the switch expression is an |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3509 + * 8-bit value, the lookup can be done more efficiently |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3510 + * using the "B,X" style index mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3511 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3512 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3513 + rtx table_label, rtx default_label) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3514 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3515 + enum machine_mode mode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3516 + rtx scaled; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3517 + rtx table_in_reg; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3518 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3519 + /* expr.c has to be patched so that it does not promote |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3520 + * the expression to SImode, but rather to HImode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3521 + * Fail now if that isn't the case. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3522 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3523 + error ("try_casesi promotion bug"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3524 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3525 + /* Determine whether or not we are going to work primarily in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3526 + * QImode or HImode. This depends on the size of the index |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3527 + * into the lookup table. QImode can only be used when the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3528 + * index is less than 0x40, since it will be doubled but |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3529 + * must remain unsigned. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3530 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3531 + mode = QImode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3532 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3533 + mode = HImode; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3534 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3535 + /* Convert to QImode if necessary */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3536 + if (mode == QImode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3537 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3538 + index = gen_lowpart_general (mode, index); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3539 + lower_bound = gen_lowpart_general (mode, lower_bound); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3540 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3541 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3542 + /* Translate from case value to table index by subtraction */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3543 + if (lower_bound != const0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3544 + index = expand_binop (mode, sub_optab, index, lower_bound, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3545 + NULL_RTX, 0, OPTAB_LIB_WIDEN); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3546 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3547 + /* Emit compare-and-jump to test for index out-of-range */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3548 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3549 + default_label); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3550 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3551 + /* Put the table address is in a register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3552 + table_in_reg = gen_reg_rtx (Pmode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3553 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3554 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3555 + /* Emit table lookup and jump */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3556 + if (mode == QImode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3557 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3558 + /* Scale the index */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3559 + scaled = gen_reg_rtx (QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3560 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3561 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3562 + /* Emit the jump */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3563 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3564 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3565 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3566 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3567 + /* Scale the index */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3568 + emit_insn (gen_ashlhi3 (index, index, const1_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3569 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3570 + /* Emit the jump */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3571 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3572 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3573 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3574 + /* Copied from expr.c */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3575 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3576 + emit_barrier (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3577 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3578 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3579 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3580 +/** Output the assembly code for a 32-bit add/subtract. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3581 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3582 +m6809_output_addsi3 (int rtx_code, rtx *operands) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3583 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3584 + rtx xoperands[8]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3585 + rtx dst = operands[0]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3586 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3587 + /* Prepare the operands by splitting each SImode into two HImodes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3588 + that can be operated independently. The high word of operand 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3589 + is further divided into two QImode components for use with 'adc' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3590 + style instructions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3591 + xoperands[7] = operands[3]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3592 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3593 + xoperands[0] = adjust_address (dst, HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3594 + xoperands[3] = adjust_address (dst, HImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3595 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3596 +#if 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3597 + xoperands[2] = adjust_address (operands[1], HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3598 + xoperands[6] = adjust_address (operands[1], HImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3599 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3600 + /* Operand 2 may be a MEM or a CONST_INT */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3601 + if (GET_CODE (operands[2]) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3602 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3603 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3604 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3605 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3606 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3607 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3608 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3609 + xoperands[1] = adjust_address (operands[2], HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3610 + xoperands[4] = adjust_address (operands[2], QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3611 + xoperands[5] = adjust_address (operands[2], QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3612 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3613 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3614 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3615 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3616 +#if 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3617 + xoperands[1] = adjust_address (operands[1], HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3618 + xoperands[4] = adjust_address (operands[1], QImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3619 + xoperands[5] = adjust_address (operands[1], QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3620 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3621 + /* Operand 2 may be a MEM or a CONST_INT */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3622 + if (GET_CODE (operands[2]) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3623 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3624 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3625 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3626 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3627 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3628 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3629 + xoperands[2] = adjust_address (operands[2], HImode, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3630 + xoperands[6] = adjust_address (operands[2], HImode, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3631 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3632 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3633 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3634 + /* Output the assembly code. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3635 + if (rtx_code == PLUS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3636 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3637 + output_asm_insn ("ld%7\t%2", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3638 + output_asm_insn ("add%7\t%1", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3639 + output_asm_insn ("st%7\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3640 + output_asm_insn ("ld%7\t%6", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3641 + output_asm_insn ("adcb\t%5", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3642 + output_asm_insn ("adca\t%4", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3643 + output_asm_insn ("st%7\t%3", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3644 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3645 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3646 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3647 + output_asm_insn ("ld%7\t%2", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3648 + output_asm_insn ("sub%7\t%1", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3649 + output_asm_insn ("st%7\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3650 + output_asm_insn ("ld%7\t%6", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3651 + output_asm_insn ("sbcb\t%5", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3652 + output_asm_insn ("sbca\t%4", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3653 + output_asm_insn ("st%7\t%3", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3654 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3655 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3656 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3657 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3658 +#if 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3659 +/** Output the assembly code for a 32-bit shift. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3660 +Operands 0 and 1 must be the same rtx, forced by a matching |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3661 +constraint. Operand 2 must be a CONST_INT. Operand 3 is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3662 +"d" in case a temporary reg is needed. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3663 +void |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3664 +m6809_output_shiftsi3 (int rtx_code, rtx *operands) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3665 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3666 + unsigned int count = INTVAL (operands[2]) % 32; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3667 + unsigned int size = 4; /* sizeof (SImode) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3668 + int s; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3669 + rtx xoperands[4]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3670 + int op; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3671 + int start, end, step; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3672 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3673 + /* Initialize */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3674 + if (rtx_code == ASHIFT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3675 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3676 + start = size-1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3677 + end = -1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3678 + step = -1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3679 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3680 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3681 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3682 + start = 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3683 + end = size; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3684 + step = 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3685 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3686 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3687 + xoperands[2] = operands[2]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3688 + xoperands[3] = operands[3]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3689 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3690 + if (count <= 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3691 + abort (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3692 + if (rtx_code == ROTATE || rtx_code == ROTATERT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3693 + abort (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3694 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3695 + /* Extract bit shifts over 16 bits by HImode moves. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3696 + if (count >= 16) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3697 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3698 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3699 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3700 + /* Extract bit shifts over 8 bits by QImode moves. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3701 + if (count >= 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3702 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3703 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3704 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3705 + /* Iterate over the number of bits to be shifted. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3706 + while (count > 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3707 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3708 + /* Each bit to be shifted requires 1 proper bit shift |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3709 + and 3 rotates. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3710 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3711 + /* First, do the arithmetic/logical shift. Left shifts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3712 + start from the LSB; right shifts start from the MSB. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3713 + xoperands[0] = adjust_address (operands[0], QImode, start); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3714 + switch (rtx_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3715 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3716 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3717 + output_asm_insn ("asl\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3718 + start--; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3719 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3720 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3721 + output_asm_insn ("asr\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3722 + start++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3723 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3724 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3725 + output_asm_insn ("lsr\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3726 + start++; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3727 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3728 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3729 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3730 + /* Next, rotate the other bytes */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3731 + for (s = start; s != end; s += step) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3732 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3733 + xoperands[0] = adjust_address (operands[0], QImode, s); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3734 + switch (rtx_code) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3735 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3736 + case ASHIFT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3737 + output_asm_insn ("rol\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3738 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3739 + case ASHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3740 + case LSHIFTRT: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3741 + output_asm_insn ("ror\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3742 + break; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3743 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3744 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3745 + count--; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3746 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3747 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3748 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3749 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3750 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3751 +power_of_two_p (unsigned int n) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3752 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3753 + return (n & (n-1)) == 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3754 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3755 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3756 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3757 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3758 +m6809_can_eliminate (int from, int to) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3759 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3760 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3761 + return !frame_pointer_needed; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3762 + return 1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3763 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3764 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3765 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3766 +int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3767 +m6809_initial_elimination_offset (int from, int to) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3768 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3769 + switch (from) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3770 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3771 + case ARG_POINTER_REGNUM: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3772 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3773 + case FRAME_POINTER_REGNUM: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3774 + return get_frame_size (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3775 + default: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3776 + gcc_unreachable (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3777 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3778 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3779 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3780 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3781 +bool |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3782 +m6809_frame_pointer_required (void) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3783 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3784 + return false; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3785 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3786 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3787 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3788 +/* Defines the target-specific hooks structure. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3789 +struct gcc_target targetm = TARGET_INITIALIZER; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3791 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3792 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2015-07-20 21:56:53.518727644 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3793 @@ -0,0 +1,1352 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3794 +/* Definitions of target machine for GNU compiler. MC6809 version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3795 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3796 + MC6809 Version by Tom Jones (jones@sal.wisc.edu) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3797 + Space Astronomy Laboratory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3798 + University of Wisconsin at Madison |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3799 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3800 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3801 + ( msdoerfe@informatik.uni-erlangen.de ) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3802 + also added #pragma interrupt (inspired by gcc-6811) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3803 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3804 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3805 + (ebotcazou@multimania.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3806 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3807 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3808 + (ebotcazou@multimania.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3809 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3810 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3811 + (ebotcazou@multimania.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3812 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3813 + changes for gcc-3.1.1 by ??? |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3814 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3815 + further changes for gcc-3.1.1 and beyond by Brian Dominy |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3816 + (brian@oddchange.com) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3817 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3818 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3819 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3820 +This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3821 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3822 +GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3823 +it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3824 +the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3825 +any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3826 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3827 +GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3828 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3829 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3830 +GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3831 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3832 +You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3833 +along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3834 +<http://www.gnu.org/licenses/>. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3835 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3836 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3837 +/* Helper macros for creating strings with macros */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3838 +#define C_STRING(x) C_STR(x) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3839 +#define C_STR(x) #x |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3840 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3841 +/* Certain parts of GCC include host-side includes, which is bad. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3842 + * Some things that get pulled in need to be undone. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3843 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3844 +#undef HAVE_GAS_HIDDEN |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3845 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3846 +/* Names to predefine in the preprocessor for this target machine. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3847 +/*#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3848 +#define TARGET_CPU_CPP_BUILTINS() do \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3849 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3850 + if (TARGET_6309) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3851 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3852 + builtin_define_std ("__M6309__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3853 + builtin_define_std ("__m6309__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3854 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3855 + else \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3856 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3857 + builtin_define_std ("__M6809__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3858 + builtin_define_std ("__m6809__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3859 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3860 + \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3861 + if (TARGET_BYTE_INT) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3862 + builtin_define_std ("__int8__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3863 + else \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3864 + builtin_define_std ("__int16__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3865 + \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3866 + switch (m6809_abi_version) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3867 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3868 + case M6809_ABI_VERSION_STACK: \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3869 + builtin_define_std ("__regargs__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3870 + builtin_define_std ("__ABI_STACK__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3871 + break; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3872 + case M6809_ABI_VERSION_REGS: \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3873 + builtin_define_std ("__ABI_REGS__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3874 + break; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3875 + case M6809_ABI_VERSION_BX: \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3876 + builtin_define_std ("__ABI_BX__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3877 + break; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3878 + default: \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3879 + break; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3880 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3881 + \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3882 + if (TARGET_WPC) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3883 + builtin_define_std ("__WPC__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3884 + \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3885 + if (TARGET_DRET) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3886 + builtin_define_std ("__DRET__"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3887 + } while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3888 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3889 +/* As an embedded target, we have no libc. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3890 +#ifndef inhibit_libc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3891 +#define inhibit_libc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3892 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3893 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3894 +/* Print subsidiary information on the compiler version in use. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3895 +#define TARGET_VERSION fprintf (stderr, " (MC6809)"); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3896 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3897 +/* Run-time compilation parameters selecting different hardware subsets. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3898 +/*extern int target_flags; */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3899 +extern short *reg_renumber; /* def in local_alloc.c */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3900 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3901 +/* Runtime current values of section names */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3902 +extern int section_changed; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3903 +extern char code_section_op[], data_section_op[], bss_section_op[]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3904 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3905 +#define WARNING_OPT 0, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3906 +/*extern const char *m6809_abi_version_ptr; */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3907 +extern unsigned int m6809_soft_regs; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3908 +extern unsigned int m6809_abi_version; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3909 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3910 +/* ABI versions */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3911 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3912 +#define M6809_ABI_VERSION_STACK 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3913 +#define M6809_ABI_VERSION_REGS 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3914 +#define M6809_ABI_VERSION_BX 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3915 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3916 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3917 +/* Allow $ in identifiers */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3918 +#define DOLLARS_IN_IDENTIFIERS 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3919 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3920 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3921 + Target machine storage layout |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3922 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3923 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3924 +/* Define this if most significant bit is lowest numbered |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3925 + in instructions that operate on numbered bit-fields. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3926 +#define BITS_BIG_ENDIAN 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3927 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3928 +/* Define to 1 if most significant byte of a word is the lowest numbered. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3929 +#define BYTES_BIG_ENDIAN 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3930 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3931 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3932 +#define WORDS_BIG_ENDIAN 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3933 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3934 +/* Number of bits in an addressible storage unit */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3935 +#define BITS_PER_UNIT 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3936 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3937 +/* Width in bits of a "word", or the contents of a machine register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3938 + * Although the 6809 has a few byte registers, define this to 16-bits |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3939 + * since this is the natural size of most registers. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3940 +#define BITS_PER_WORD 16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3941 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3942 +/* Width of a word, in units (bytes). */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3943 +#define UNITS_PER_WORD (BITS_PER_WORD/8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3944 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3945 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3946 +#define POINTER_SIZE 16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3947 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3948 +/* Allocation boundary (bits) for storing pointers in memory. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3949 +#define POINTER_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3950 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3951 +/* Allocation boundary (bits) for storing arguments in argument list. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3952 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3953 +#define PARM_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3954 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3955 +/* Boundary (bits) on which stack pointer should be aligned. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3956 +#define STACK_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3957 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3958 +/* Allocation boundary (bits) for the code of a function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3959 +#define FUNCTION_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3960 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3961 +/* Alignment of field after `int : 0' in a structure. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3962 +#define EMPTY_FIELD_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3963 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3964 +/* Every structure's size must be a multiple of this. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3965 +#define STRUCTURE_SIZE_BOUNDARY 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3966 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3967 +/* Largest mode size to use when putting an object, including |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3968 + * a structure, into a register. By limiting this to 16, no |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3969 + * 32-bit objects will ever be allocated to a pair of hard |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3970 + * registers. This is a good thing, since there aren't that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3971 + * many of them. 32-bit objects are only needed for floats |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3972 + * and "long long"s. Larger values have been tried and did not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3973 + * work. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3974 +#define MAX_FIXED_MODE_SIZE 16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3975 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3976 +/* No data type wants to be aligned rounder than this. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3977 +#define BIGGEST_ALIGNMENT 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3978 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3979 +/* Define this if move instructions will actually fail to work |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3980 + when given unaligned data. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3981 +#define STRICT_ALIGNMENT 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3982 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3983 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3984 + Standard register usage. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3985 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3986 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3987 +/* Register values as bitmasks. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3988 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3989 + * register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3990 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3991 +#define D_REGBIT (1 << HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3992 +#define X_REGBIT (1 << HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3993 +#define Y_REGBIT (1 << HARD_Y_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3994 +#define U_REGBIT (1 << HARD_U_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3995 +#define S_REGBIT (1 << HARD_S_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3996 +#define PC_REGBIT (1 << HARD_PC_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3997 +#define Z_REGBIT (1 << HARD_Z_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3998 +#define A_REGBIT (1 << HARD_A_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3999 +#define B_REGBIT (1 << HARD_B_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4000 +#define CC_REGBIT (1 << HARD_CC_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4001 +#define DP_REGBIT (1 << HARD_DP_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4002 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4003 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4004 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4005 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4006 +/* Macros for dealing with set of registers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4007 + * A register set is just a bitwise-OR of all the register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4008 + * bitmask values. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4009 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4010 +/* Which registers can hold 8-bits */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4011 +#define BYTE_REGSET \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4012 + (Z_REGBIT | A_REGBIT | D_REGBIT | CC_REGBIT | DP_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4013 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4014 +/* Which registers can hold 16-bits. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4015 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4016 +#define WORD_REGSET \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4017 + (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT | SOFT_FP_REGBIT | SOFT_AP_REGBIT | RSVD1_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4018 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4019 +/* Returns nonzero if a given REGNO is in the REGSET. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4020 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4021 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4022 +/* Defines related to the number of soft registers supported. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4023 + * The actual number used may be less depending on -msoft-reg-count. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4024 + * If you change one of these, you should change them all. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4025 +#define NUM_M_REGS 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4026 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4027 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4028 +#define HARD_M_REGNUMS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4029 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4030 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4031 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4032 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4033 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4034 +/* Number of actual hardware registers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4035 + The hardware registers are assigned numbers for the compiler |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4036 + from 0 to just below FIRST_PSEUDO_REGISTER. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4037 + All registers that the compiler knows about must be given numbers, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4038 + even those that are not normally considered general registers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4039 + Make sure the constant below matches the value of SOFT_M0_REGNUM; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4040 + for some reason, GCC won't compile if that name is used here directly. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4041 +#ifdef SOFT_M0_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4042 +#if (SOFT_M0_REGNUM != 14) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4043 +#error "bad register numbering" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4044 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4045 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4046 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4047 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4048 +/* 1 for registers that have pervasive standard uses |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4049 + and are not available for the register allocator. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4050 + The psuedoregisters (M_REGS) are declared fixed here, but |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4051 + will be unfixed if -msoft-reg-count is seen later. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4052 +#define FIXED_REGISTERS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4053 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4054 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4055 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4056 +/* 1 for registers not available across function calls. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4057 + These must include the FIXED_REGISTERS and also any |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4058 + registers that can be used without being saved. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4059 + The latter must include the registers where values are returned |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4060 + and the register where structure-value addresses are passed. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4061 + Aside from that, you can include as many other registers as you like. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4062 +#define CALL_USED_REGISTERS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4063 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4064 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4065 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4066 +/* Return number of consecutive hard regs needed starting at reg REGNO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4067 + to hold something of mode MODE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4068 + For the 6809, we distinguish between word-length and byte-length |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4069 + registers. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4070 +#define HARD_REGNO_NREGS(REGNO, MODE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4071 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4072 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4073 + (GET_MODE_SIZE (MODE))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4074 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4075 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4076 +/* Value is 1 if hard register REGNO can hold a value |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4077 +of machine-mode MODE. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4078 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4079 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4080 +/* Value is 1 if it is a good idea to tie two pseudo registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4081 + when one has mode MODE1 and one has mode MODE2. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4082 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4083 + for any hard reg, then this must be 0 for correct output. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4084 +#define MODES_TIEABLE_P(MODE1, MODE2) 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4085 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4086 +/* Specify the registers used for certain standard purposes. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4087 + The values of these macros are register numbers. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4088 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4089 +/* program counter if referenced as a register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4090 +#define PC_REGNUM HARD_PC_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4091 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4092 +/* Register to use for pushing function arguments. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4093 +#define STACK_POINTER_REGNUM HARD_S_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4094 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4095 +/* Base register for access to local variables of the function. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4096 + * Before reload, FRAME_POINTER_REGNUM will be used. Later, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4097 + * the elimination pass will convert these to STACK_POINTER_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4098 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4099 + * avoid tying up a hard register (U) for the frame pointer if |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4100 + * it can be eliminated entirely, making it available for use as |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4101 + * a general register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4102 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4103 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4104 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4105 +/* Define a table of possible eliminations. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4106 + * The idea is to try to avoid using hard registers for the argument |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4107 + * and frame pointers if they can be derived from the stack pointer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4108 + * instead, which already has a hard register reserved for it. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4109 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4110 + * The order of entries in this table will try to convert |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4111 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4112 + * references first, but if that fails, they will be converted to use |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4113 + * HARD_FRAME_POINTER_REGNUM. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4114 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4115 +#define ELIMINABLE_REGS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4116 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4117 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4118 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4119 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4120 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4121 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4122 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4123 +/* Define how to offset the frame or argument pointer to turn it |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4124 + * into a stack pointer reference. This is based on the way that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4125 + * the frame is constructed in the function prologue. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4126 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4127 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4128 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4129 +/* Base register for access to arguments of the function. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4130 + * This is only used prior to reload; no instructions will ever |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4131 + * be output referring to this register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4132 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4133 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4134 +/* Register in which static-chain is passed to a function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4135 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4136 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4137 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4138 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4139 +/* Order in which hard registers are allocated to pseudos. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4140 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4141 + * Since the D register is the only valid reg for 8-bit values |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4142 + * now, avoid using it for 16-bit values by putting it after all |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4143 + * other 16-bits. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4144 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4145 + * Prefer X first since the first 16-bit function argument goes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4146 + * there. We may be able to pass in to a subroutine without |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4147 + * a copy. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4148 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4149 + * Prefer U over Y since instructions using Y take one extra |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4150 + * byte, and thus one extra cycle to execute. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4151 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4152 +#define REG_ALLOC_ORDER \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4153 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4154 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4155 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4156 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4157 + 6, HARD_Z_REGNUM } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4158 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4159 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4160 + classes of registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4161 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4162 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4163 +/* Define the classes of registers for register constraints in the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4164 + machine description. Also define ranges of constants. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4165 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4166 + One of the classes must always be named ALL_REGS and include all hard regs. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4167 + If there is more than one class, another class must be named NO_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4168 + and contain no registers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4169 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4170 + The name GENERAL_REGS must be the name of a class (or an alias for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4171 + another name such as ALL_REGS). This is the class of registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4172 + that is allowed by "g" or "r" in a register constraint. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4173 + Also, registers outside this class are allocated only when |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4174 + instructions express preferences for them. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4175 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4176 + The classes must be numbered in nondecreasing order; that is, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4177 + a larger-numbered class must never be contained completely |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4178 + in a smaller-numbered class. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4179 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4180 + For any two classes, it is very desirable that there be another |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4181 + class that represents their union. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4182 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4183 +enum reg_class { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4184 + NO_REGS, /* The trivial class with no registers in it */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4185 + D_REGS, /* 16-bit (word (HI)) data (D) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4186 + ACC_A_REGS, /* The A register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4187 + ACC_B_REGS, /* The B register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4188 + X_REGS, /* The X register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4189 + Z_REGS, /* The Z (zero-bit) register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4190 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4191 + M_REGS, /* 8-bit (byte (QI)) soft registers */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4192 + CC_REGS, /* 8-bit condition code register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4193 + I_REGS, /* An index register (A,B,D) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4194 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4195 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4196 + S_REGS, /* 16-bit soft registers (FP, AP) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4197 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4198 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4199 + ALL_REGS, /* All registers */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4200 + LIM_REG_CLASSES |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4201 +}; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4202 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4203 +#define N_REG_CLASSES (int) LIM_REG_CLASSES |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4204 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4205 +/* Since GENERAL_REGS is a smaller class than ALL_REGS, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4206 + it is not an alias to ALL_REGS, but to G_REGS. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4207 +#define GENERAL_REGS G_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4208 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4209 +/* Give names of register classes as strings for dump file. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4210 +#define REG_CLASS_NAMES \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4211 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4212 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4213 + "ALL_REGS" } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4214 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4215 +/* Define which registers fit in which classes. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4216 + This is an initializer for a vector of HARD_REG_SET |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4217 + of length N_REG_CLASSES. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4218 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4219 +#define D_REGSET (D_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4220 +#define ACC_A_REGSET (A_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4221 +#define ACC_B_REGSET (D_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4222 +#define X_REGSET (X_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4223 +#define Z_REGSET (Z_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4224 +#define Q_REGSET (D_REGBIT | A_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4225 +#define M_REGSET (SOFT_M_REGBITS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4226 +#define CC_REGSET (CC_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4227 +#define I_REGSET (A_REGBIT | B_REGBIT | D_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4228 +#define T_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4229 +#define A_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4230 +#define S_REGSET (SOFT_FP_REGBIT | SOFT_AP_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4231 +#define P_REGSET (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4232 +#define G_REGSET \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4233 + (D_REGSET | Q_REGSET | I_REGSET | A_REGSET | M_REGSET | S_REGSET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4234 +#define ALL_REGSET (G_REGSET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4235 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4236 +#define REG_CLASS_CONTENTS { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4237 + {0}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4238 + {D_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4239 + {ACC_A_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4240 + {ACC_B_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4241 + {X_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4242 + {Z_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4243 + {Q_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4244 + {M_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4245 + {CC_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4246 + {I_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4247 + {T_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4248 + {A_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4249 + {S_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4250 + {P_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4251 + {G_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4252 + {ALL_REGSET}, \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4253 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4254 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4255 +/* The same information, inverted. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4256 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4257 + * these two sets of definitions are always consistent. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4258 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4259 +#define REGNO_REG_CLASS(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4260 + (D_REGNO_P (REGNO) ? D_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4261 + (Z_REGNO_P (REGNO) ? Z_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4262 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4263 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4264 + (X_REGNO_P (REGNO) ? X_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4265 + (Q_REGNO_P (REGNO) ? Q_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4266 + (M_REGNO_P (REGNO) ? M_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4267 + (CC_REGNO_P (REGNO) ? CC_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4268 + (I_REGNO_P (REGNO) ? I_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4269 + (T_REGNO_P (REGNO) ? T_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4270 + (A_REGNO_P (REGNO) ? A_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4271 + (S_REGNO_P (REGNO) ? S_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4272 + (P_REGNO_P (REGNO) ? P_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4273 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS)))))))))))))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4274 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4275 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4276 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4277 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4278 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4279 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4280 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4281 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4282 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4283 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4284 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4285 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4286 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4287 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4288 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4289 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4290 +/* Macros that test an rtx 'X' to see if it's in a particular |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4291 + * register class. 'X' need not be a REG necessarily. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4292 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4293 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4294 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4295 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4296 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4297 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4298 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4299 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4300 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4301 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4302 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4303 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4304 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4305 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4306 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4307 +/* Redefine this in terms of BYTE_REGSET */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4308 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4309 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4310 +/* The class value for index registers, and the one for base regs. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4311 +#define INDEX_REG_CLASS I_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4312 +#define BASE_REG_CLASS A_REGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4313 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4314 +/* Get reg_class from a letter in the machine description. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4315 +#define REG_CLASS_FROM_LETTER(C) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4316 + (((C) == 'a' ? A_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4317 + ((C) == 'd' ? D_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4318 + ((C) == 'x' ? I_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4319 + ((C) == 't' ? M_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4320 + ((C) == 'c' ? CC_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4321 + ((C) == 'A' ? ACC_A_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4322 + ((C) == 'B' ? ACC_B_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4323 + ((C) == 'v' ? X_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4324 + ((C) == 'u' ? S_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4325 + ((C) == 'U' ? P_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4326 + ((C) == 'T' ? T_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4327 + ((C) == 'z' ? Z_REGS : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4328 + ((C) == 'q' ? Q_REGS : NO_REGS)))))))))))))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4329 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4330 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4331 + The letters I through O in a register constraint string |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4332 + can be used to stand for particular ranges of immediate operands. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4333 + This macro defines what the ranges are. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4334 + C is the letter, and VALUE is a constant value. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4335 + Return 1 if VALUE is in the range specified by C. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4336 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4337 + For the 6809, J, K, L are used for indexed addressing. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4338 + `I' is used for the constant 1. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4339 + `J' is used for the 5-bit offsets. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4340 + `K' is used for the 8-bit offsets. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4341 + `L' is used for the range of signed numbers that fit in 16 bits. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4342 + `M' is used for the exact value '8'. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4343 + `N' is used for the constant -1. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4344 + `O' is used for the constant 0. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4345 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4346 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4347 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4348 + ((C) == 'I' ? ((VALUE) == 1) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4349 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4350 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4351 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4352 + (C) == 'M' ? ((VALUE) == 8) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4353 + (C) == 'N' ? ((VALUE) == -1) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4354 + (C) == 'O' ? ((VALUE) == 0) : 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4355 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4356 +/* Similar, but for floating constants, and defining letters G and H. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4357 + No floating-point constants are valid on MC6809. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4358 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4359 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4360 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4361 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4362 +/* Given an rtx X being reloaded into a reg required to be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4363 + in class CLASS, return the class of reg to actually use. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4364 + In general this is just CLASS; but on some machines |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4365 + in some cases it is preferable to use a more restrictive class. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4366 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4367 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4368 +#define SMALL_REGISTER_CLASSES 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4369 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4370 +/* Return the maximum number of consecutive registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4371 + needed to represent mode MODE in a register of class CLASS. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4372 +#define CLASS_MAX_NREGS(CLASS, MODE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4373 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4374 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4375 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4376 + Stack layout; function entry, exit and calling. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4377 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4378 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4379 +/* Define this if pushing a word on the stack |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4380 + makes the stack pointer a smaller address. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4381 +#define STACK_GROWS_DOWNWARD |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4382 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4383 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4384 +/* Define this if the nominal address of the stack frame |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4385 + is at the high-address end of the local variables; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4386 + that is, each additional local variable allocated |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4387 + goes at a more negative offset in the frame. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4388 +#define FRAME_GROWS_DOWNWARD 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4389 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4390 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4391 +/* Offset within stack frame to start allocating local variables at. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4392 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4393 + first local allocated. Otherwise, it is the offset to the BEGINNING |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4394 + of the first local allocated. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4395 +#define STARTING_FRAME_OFFSET 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4396 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4397 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4398 +/* Always push stack arguments for now. Accumulation is not yet working. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4399 +#define PUSH_ROUNDING(BYTES) (BYTES) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4400 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4401 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4402 +/* Offset of first parameter from the argument pointer register value. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4403 + * ARG_POINTER_REGNUM is defined to point to the return address pushed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4404 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4405 +#define FIRST_PARM_OFFSET(FNDECL) 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4406 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4407 +/* Value is 1 if returning from a function call automatically |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4408 + pops the arguments described by the number-of-args field in the call. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4409 + FUNTYPE is the data type of the function (as a tree), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4410 + or for a library call it is an identifier node for the subroutine name. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4411 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4412 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4413 +/* Define how to find the value returned by a function. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4414 + VALTYPE is the data type of the value (as a tree). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4415 + If the precise function being called is known, FUNC is its FUNCTION_DECL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4416 + otherwise, FUNC is 0. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4417 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4418 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4419 +/* Define how to find the value returned by a library function |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4420 + assuming the value has mode MODE. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4421 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4422 +/* All return values are in the X-register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4423 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4424 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4425 +/* Define this if using the nonreentrant convention for returning |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4426 + structure and union values. No; it is inefficient and buggy. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4427 +#undef PCC_STATIC_STRUCT_RETURN |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4428 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4429 +/* 1 if N is a possible register number for a function value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4430 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4431 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4432 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4433 + more than one register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4434 +#define NEEDS_UNTYPED_CALL 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4435 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4436 +/* 1 if N is a possible register number for function argument passing. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4437 +#define FUNCTION_ARG_REGNO_P(N) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4438 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4439 + (((N) == HARD_D_REGNUM) || ((N) == HARD_X_REGNUM)) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4440 + 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4441 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4442 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4443 + Argument Lists |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4444 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4445 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4446 +/* Cumulative arguments are tracked in a single integer, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4447 + * which is the number of bytes of arguments scanned so far, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4448 + * plus which registers have already been used. The register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4449 + * info is kept in some of the upper bits */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4450 +#define CUMULATIVE_ARGS unsigned int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4451 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4452 +#define CUM_STACK_ONLY 0x80000000 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4453 +#define CUM_X_MASK 0x40000000 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4454 +#define CUM_B_MASK 0x20000000 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4455 +#define CUM_STACK_INVALID 0x10000000 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4456 +#define CUM_STACK_MASK 0xFFFFFFF |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4457 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4458 +#define CUM_ADVANCE_8BIT(cum) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4459 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) |= CUM_B_MASK)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4460 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4461 +#define CUM_ADVANCE_16BIT(cum) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4462 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) |= CUM_X_MASK)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4463 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4464 +/* Initialize a variable CUM of type CUMULATIVE_ARGS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4465 + for a call to a function whose data type is FNTYPE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4466 + For a library call, FNTYPE is 0. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4467 + N_NAMED was added in gcc 3.4 and is not used currently. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4468 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4469 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4470 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4471 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4472 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4473 + : (unsigned) int_size_in_bytes (TYPE)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4474 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4475 +/* Update the data in CUM to advance over an argument |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4476 + of mode MODE and data type TYPE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4477 + (TYPE is null for libcalls where that information may not be available.) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4478 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4479 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4480 + CUM_ADVANCE_8BIT (CUM) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4481 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4482 + CUM_ADVANCE_16BIT (CUM) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4483 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4484 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4485 +/* Define where to put the arguments to a function. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4486 + Value is zero to push the argument on the stack, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4487 + or a hard register rtx in which to store the argument. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4488 + This macro is used _before_ FUNCTION_ARG_ADVANCE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4489 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4490 + For the 6809, the first 8-bit function argument can be placed into B, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4491 + and the first 16-bit arg can go into X. All other arguments |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4492 + will be pushed onto the stack. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4493 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4494 + Command-line options can adjust this behavior somewhat. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4495 + */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4496 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4497 + ((MODE == VOIDmode) ? NULL_RTX : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4498 + ((MODE == BLKmode) || (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4499 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY | CUM_B_MASK))) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4500 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4501 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY | CUM_X_MASK))) ? \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4502 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4503 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4504 +/* Output assembler code to FILE to increment profiler label # LABELNO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4505 + for profiling a function entry. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4506 +#define FUNCTION_PROFILER(FILE, LABELNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4507 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4508 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4509 +/* Stack pointer must be correct on function exit */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4510 +#define EXIT_IGNORE_STACK 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4511 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4512 +/***************************************************************************** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4513 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4514 +** Trampolines for Nested Functions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4515 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4516 +*****************************************************************************/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4517 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4518 +/* Length in units of the trampoline for entering a nested function. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4519 +#define TRAMPOLINE_SIZE 7 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4520 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4521 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4522 + Addressing modes, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4523 + and classification of registers for them. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4524 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4525 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4526 +/* 6809 has postincrement and predecrement addressing modes */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4527 +#define HAVE_POST_INCREMENT 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4528 +#define HAVE_PRE_DECREMENT 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4529 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4530 +/* Whether or not to use index registers is configurable. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4531 + * Experiments show that things work better when this is off, so |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4532 + * that's the way it is for now. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4533 +#undef USE_INDEX_REGISTERS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4534 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4535 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4536 +/* Macros to check register numbers against specific register classes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4537 +#define REG_VALID_FOR_BASE_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4538 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4539 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4540 +/* MC6809 index registers do not allow scaling, */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4541 +/* but there is "accumulator-offset" mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4542 +#ifdef USE_INDEX_REGISTERS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4543 +#define REG_VALID_FOR_INDEX_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4544 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4545 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4546 +#define REG_VALID_FOR_INDEX_P(REGNO) 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4547 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4548 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4549 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4550 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4551 + ((REGNO) >= FIRST_PSEUDO_REGISTER \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4552 + || REG_VALID_FOR_BASE_P (REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4553 + || (REGNO) == FRAME_POINTER_REGNUM \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4554 + || (REGNO) == HARD_FRAME_POINTER_REGNUM \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4555 + || (REGNO) == ARG_POINTER_REGNUM \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4556 + || (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO]))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4557 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4558 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4559 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4560 + ((REGNO) >= FIRST_PSEUDO_REGISTER \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4561 + || REG_VALID_FOR_INDEX_P (REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4562 + || (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO]))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4563 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4564 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4565 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4566 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4567 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4568 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO]))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4569 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4570 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4571 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4572 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4573 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4574 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO]))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4575 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4576 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4577 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4578 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4579 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4580 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4581 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4582 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4583 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4584 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4585 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4586 +#ifndef REG_OK_STRICT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4587 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4588 +#ifdef USE_INDEX_REGISTERS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4589 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4590 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4591 +#define REG_OK_FOR_INDEX_P(X) 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4592 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4593 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4594 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4595 +#ifdef USE_INDEX_REGISTERS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4596 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4597 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4598 +#define REG_OK_FOR_INDEX_P(X) 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4599 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4600 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4601 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4602 +/* Maximum number of registers that can appear in a valid memory address */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4603 +#ifdef USE_INDEX_REGISTERS |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4604 +#define MAX_REGS_PER_ADDRESS 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4605 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4606 +#define MAX_REGS_PER_ADDRESS 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4607 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4608 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4609 +/* 1 if X is an rtx for a constant that is a valid address. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4610 + * We allow any constant, plus the sum of any two constants (this allows |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4611 + * offsetting a symbol ref) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4612 +#define CONSTANT_ADDRESS_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4613 + ((CONSTANT_P (X)) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4614 + || ((GET_CODE (X) == PLUS) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4615 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1))))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4616 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4617 +/* Nonzero if the constant value X is a legitimate general operand. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4618 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4619 +/* Any single-word constant is ok; the only contexts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4620 + allowing general_operand of mode DI or DF are movdi and movdf. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4621 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4622 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4623 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4624 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4625 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4626 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4627 + Test for valid memory addresses |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4628 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4629 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4630 + that is a valid memory address for an instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4631 + The MODE argument is the machine mode for the MEM expression |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4632 + that wants to use this address. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4633 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4634 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4635 + Valid addresses are either direct or indirect (MEM) versions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4636 + of the following forms. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4637 + constant N |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4638 + register ,X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4639 + constant indexed N,X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4640 + accumulator indexed D,X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4641 + auto_increment ,X++ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4642 + auto_decrement ,--X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4643 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4644 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4645 +#define REGISTER_ADDRESS_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4646 + (REG_P (X) && REG_OK_FOR_BASE_P (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4647 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4648 +#define EXTENDED_ADDRESS_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4649 + CONSTANT_ADDRESS_P (X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4650 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4651 +#define LEGITIMATE_BASE_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4652 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4653 + || (GET_CODE (X) == SIGN_EXTEND \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4654 + && GET_CODE (XEXP (X, 0)) == REG \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4655 + && GET_MODE (XEXP (X, 0)) == HImode \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4656 + && REG_OK_FOR_BASE_P (XEXP (X, 0)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4657 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4658 +#define LEGITIMATE_OFFSET_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4659 + (CONSTANT_ADDRESS_P (X) || (REG_P (X) && REG_OK_FOR_INDEX_P (X))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4660 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4661 +/* 1 if X is the sum of a base register and an offset. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4662 +#define INDEXED_ADDRESS(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4663 + ((GET_CODE (X) == PLUS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4664 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4665 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4666 + || (GET_CODE (X) == PLUS \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4667 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4668 + && LEGITIMATE_OFFSET_P (XEXP (X, 0)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4669 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4670 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4671 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4672 +#define STACK_PUSH_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4673 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4674 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4675 +#define STACK_POP_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4676 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4677 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4678 +#define PUSH_POP_ADDRESS_P(X) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4679 + (((GET_CODE (X) == PRE_DEC) || (GET_CODE (X) == POST_INC)) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4680 + && (LEGITIMATE_BASE_P (XEXP (X, 0)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4681 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4682 +/* Go to ADDR if X is a valid address. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4683 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4684 +{ \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4685 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4686 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4687 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4688 + if (INDEXED_ADDRESS (X)) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4689 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4690 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4691 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4692 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4693 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4694 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4695 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4696 + Address Fix-up |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4697 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4698 +/* Go to LABEL if ADDR (a legitimate address expression) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4699 + has an effect that depends on the machine mode it is used for. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4700 + In the latest GCC, this case is already handled by the core code |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4701 + so no action is required here. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4702 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4703 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4704 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4705 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4706 + Miscellaneous Parameters |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4707 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4708 +/* Specify the machine mode that this machine uses |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4709 + for the index in the tablejump instruction. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4710 +#define CASE_VECTOR_MODE Pmode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4711 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4712 +/* Define this as 1 if `char' should by default be signed; else as 0. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4713 +#define DEFAULT_SIGNED_CHAR 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4714 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4715 +/* This flag, if defined, says the same insns that convert to a signed fixnum |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4716 + also convert validly to an unsigned one. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4717 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4718 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4719 +/* Max number of bytes we can move from memory to memory/register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4720 + in one reasonably fast instruction. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4721 +#define MOVE_MAX 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4722 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4723 +/* Int can be 8 or 16 bits (default is 16) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4724 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4725 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4726 +/* Short is always 16 bits */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4727 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4728 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4729 +/* Size (bits) of the type "long" on target machine */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4730 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4731 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4732 +/* Size (bits) of the type "long long" on target machine */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4733 +#define LONG_LONG_TYPE_SIZE 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4734 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4735 +/* Size (bits) of the type "char" on target machine */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4736 +#define CHAR_TYPE_SIZE 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4737 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4738 +/* Size (bits) of the type "float" on target machine */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4739 +#define FLOAT_TYPE_SIZE 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4740 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4741 +/* Size (bits) of the type "double" on target machine. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4742 + * Note that the C standard does not require that doubles |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4743 + * hold any more bits than float. Since the 6809 has so few |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4744 + * registers, we cannot really support more than 32-bits. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4745 +#define DOUBLE_TYPE_SIZE 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4746 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4747 +/* Size (bits) of the type "long double" on target machine */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4748 +#define LONG_DOUBLE_TYPE_SIZE 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4749 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4750 +/* Define the type used for "size_t". With a 64KB address space, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4751 + * only a 16-bit value here makes sense. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4752 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4753 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4754 +/* Likewise, the difference between two pointers is also a 16-bit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4755 + * signed value. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4756 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4757 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4758 +/* Nonzero if access to memory by bytes is slow and undesirable. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4759 +#define SLOW_BYTE_ACCESS 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4760 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4761 +/* Define if shifts truncate the shift count |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4762 + which implies one can omit a sign-extension or zero-extension |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4763 + of a shift count. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4764 +#define SHIFT_COUNT_TRUNCATED 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4765 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4766 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4767 + is done just by pretending it is already truncated. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4768 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4769 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4770 +/* It is as good to call a constant function address as to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4771 + call an address kept in a register. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4772 +#define NO_FUNCTION_CSE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4773 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4774 +/* Specify the machine mode that pointers have. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4775 + After generation of rtl, the compiler makes no further distinction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4776 + between pointers and any other objects of this machine mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4777 +#define Pmode HImode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4778 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4779 +/* A function address in a call instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4780 + is a byte address (for indexing purposes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4781 + so give the MEM rtx a byte's mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4782 +#define FUNCTION_MODE HImode |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4783 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4784 +/* Define the cost of moving a value from a register in CLASS1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4785 + * to CLASS2, of a given MODE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4786 + * |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4787 + * On the 6809, hard register transfers are all basically equivalent. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4788 + * But soft register moves are treated more like memory moves. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4789 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4790 + (((CLASS1 == M_REGS) || (CLASS2 == M_REGS)) ? 4 : 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4791 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4792 +/* Define the cost of moving a value between a register and memory. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4793 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4794 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4795 +/* Check a `double' value for validity for a particular machine mode. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4796 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4797 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4798 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4799 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4800 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4801 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4802 + machine-dependent |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4803 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4804 +/* Tell final.c how to eliminate redundant test instructions. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4805 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4806 +/* Here we define machine-dependent flags and fields in cc_status |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4807 + (see `conditions.h'). */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4808 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4809 +/* Store in cc_status the expressions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4810 + that the condition codes will describe |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4811 + after execution of an instruction whose pattern is EXP. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4812 + Do not alter them if the instruction would not alter the cc's. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4813 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4814 +/* On the 6809, most of the insns to store in an address register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4815 + fail to set the cc's. However, in some cases these instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4816 + can make it possibly invalid to use the saved cc's. In those |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4817 + cases we clear out some or all of the saved cc's so they won't be used. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4818 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4819 +#define NOTICE_UPDATE_CC(EXP, INSN) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4820 + notice_update_cc((EXP), (INSN)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4821 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4822 +/***************************************************************************** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4823 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4824 +** pragma support |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4825 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4826 +*****************************************************************************/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4827 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4828 +#if 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4829 +#define REGISTER_TARGET_PRAGMAS() \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4830 +do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4831 + extern void pragma_section PARAMS ((cpp_reader *)); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4832 + c_register_pragma (0, "section", pragma_section); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4833 +} while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4834 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4835 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4836 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4837 +/*-------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4838 + ASSEMBLER FORMAT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4839 +--------------------------------------------------------------*/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4840 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4841 +#define FMT_HOST_WIDE_INT "%ld" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4842 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4843 +/* Output to assembler file text saying following lines |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4844 + may contain character constants, extra white space, comments, etc. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4845 +#define ASM_APP_ON ";----- asm -----\n" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4846 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4847 +/* Output to assembler file text saying following lines |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4848 + no longer contain unusual constructs. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4849 +#define ASM_APP_OFF ";--- end asm ---\n" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4850 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4851 +/* Use a semicolon to begin a comment. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4852 +#define ASM_COMMENT_START "; " |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4853 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4854 +/* Output assembly directives to switch to section 'name' */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4855 +#undef TARGET_ASM_NAMED_SECTION |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4856 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4857 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4858 +#undef TARGET_HAVE_NAMED_SECTION |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4859 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4860 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4861 +/* Output before read-only data. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4862 +#define TEXT_SECTION_ASM_OP (code_section_op) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4863 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4864 +/* Output before writable data. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4865 +#define DATA_SECTION_ASM_OP (data_section_op) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4866 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4867 +/* Output before uninitialized data. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4868 +#define BSS_SECTION_ASM_OP (bss_section_op) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4869 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4870 +/* Support the ctors and dtors sections for g++. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4871 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4872 +#undef CTORS_SECTION_ASM_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4873 +#define CTORS_SECTION_ASM_OP "\t.area .ctors" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4874 +#undef DTORS_SECTION_ASM_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4875 +#define DTORS_SECTION_ASM_OP "\t.area .dtors" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4876 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4877 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4878 +#undef DO_GLOBAL_CTORS_BODY |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4879 +#undef DO_GLOBAL_DTORS_BODY |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4880 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4881 +#define HAS_INIT_SECTION |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4882 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4883 +/* This is how to output an assembler line |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4884 + that says to advance the location counter |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4885 + to a multiple of 2**LOG bytes. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4886 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4887 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4888 + if ((LOG) > 1) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4889 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4890 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4891 +/* The .set foo,bar construct doesn't work by default */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4892 +#undef SET_ASM_OP |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4893 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4894 + do \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4895 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4896 + fputc ('\t', FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4897 + assemble_name (FILE, LABEL1); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4898 + fputs (" = ", FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4899 + assemble_name (FILE, LABEL2); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4900 + fputc ('\n', FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4901 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4902 + while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4903 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4904 +/* How to refer to registers in assembler output. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4905 + This sequence is indexed by compiler's hard-register-number (see above). */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4906 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) , |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4907 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4908 +#define REGISTER_NAMES { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4909 + [HARD_D_REGNUM]= "d", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4910 + [HARD_X_REGNUM]= "x", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4911 + [HARD_Y_REGNUM]= "y", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4912 + [HARD_U_REGNUM]= "u", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4913 + [HARD_S_REGNUM]= "s", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4914 + [HARD_PC_REGNUM]= "pc", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4915 + [HARD_A_REGNUM]= "a", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4916 + [HARD_B_REGNUM]= "b", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4917 + [HARD_CC_REGNUM]= "cc",\ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4918 + [HARD_DP_REGNUM]= "dp", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4919 + [SOFT_FP_REGNUM]= "soft_fp", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4920 + [SOFT_AP_REGNUM]= "soft_ap", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4921 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4922 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4923 + [HARD_RSVD1_REGNUM] = "-", \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4924 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4925 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4926 +/***************************************************************************** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4927 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4928 +** Debug Support |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4929 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4930 +*****************************************************************************/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4931 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4932 +/* Default to DBX-style debugging */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4933 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4934 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4935 +#define DBX_DEBUGGING_INFO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4936 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4937 +#define DEFAULT_GDB_EXTENSIONS 0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4938 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4939 +#define ASM_STABS_OP ";\t.stabs\t" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4940 +#define ASM_STABD_OP ";\t.stabd\t" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4941 +#define ASM_STABN_OP ";\t.stabn\t" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4942 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4943 +#define DBX_CONTIN_LENGTH 54 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4944 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4945 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4946 +do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4947 + const char *p = FILENAME; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4948 + while ((p = strchr (p, '/')) != NULL) { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4949 + p = FILENAME = p+1; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4950 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4951 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4952 + output_quoted_string (ASMFILE, FILENAME); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4953 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4954 + assemble_name (ASMFILE, ltext_label_name); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4955 + fputc ('\n', ASMFILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4956 + switch_to_section (text_section); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4957 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4958 +} while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4959 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4960 +/* With -g, GCC sometimes outputs string literals that are longer than |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4961 + * the assembler can handle. Without actual debug support, these are |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4962 + * not really required. Redefine the function to output strings to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4963 + * output as much as possible. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4964 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4965 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4966 +/***************************************************************************** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4967 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4968 +** Output and Generation of Labels |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4969 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4970 +*****************************************************************************/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4971 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4972 +/* Prefixes for various assembly-time objects */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4973 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4974 +#define REGISTER_PREFIX "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4975 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4976 +#define LOCAL_LABEL_PREFIX "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4977 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4978 +#define USER_LABEL_PREFIX "_" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4979 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4980 +#define IMMEDIATE_PREFIX "#" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4981 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4982 +/* This is how to output the definition of a user-level label named NAME, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4983 + such as the label on a static function or variable NAME. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4984 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4985 +#define ASM_OUTPUT_LABEL(FILE,NAME) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4986 +do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4987 + if (section_changed) { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4988 + fprintf (FILE, "\n%s\n\n", code_section_op); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4989 + section_changed = 0; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4990 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4991 + assemble_name (FILE, NAME); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4992 + fputs (":\n", FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4993 +} while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4994 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4995 +/* This is how to output the label for a function definition. It |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4996 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4997 + other properties. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4998 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4999 + m6809_declare_function_name (FILE,NAME,DECL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5000 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5001 +/* This is how to output a command to make the user-level label |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5002 + named NAME defined for reference from other files. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5003 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5004 +#define GLOBAL_ASM_OP "\t.globl " |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5005 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5006 +/* This is how to output a reference to a user label named NAME. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5007 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5008 + fprintf (FILE, "_%s", NAME) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5009 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5010 +/* This is how to output a reference to a symbol ref |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5011 + * Check to see if the symbol is in the direct page */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5012 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5013 +{ \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5014 + print_direct_prefix (FILE, sym); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5015 + assemble_name (FILE, XSTR (sym, 0)); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5016 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5017 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5018 +/* External references aren't necessary, so don't emit anything */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5019 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5020 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5021 +/* This is how to store into the string LABEL |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5022 + the symbol_ref name of an internal numbered label where |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5023 + PREFIX is the class of label and NUM is the number within the class. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5024 + This is suitable for output with `assemble_name'. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5025 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5026 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5027 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5028 +/* This is how to output an assembler line defining an `int' constant. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5029 +#define ASM_OUTPUT_INT(FILE,VALUE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5030 +( fprintf (FILE, "\t.word "), \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5031 + output_addr_const (FILE, (VALUE)), \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5032 + fprintf (FILE, "\n")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5033 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5034 +/* Likewise for `char' and `short' constants. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5035 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5036 +( fprintf (FILE, "\t.word "), \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5037 + output_addr_const (FILE, (VALUE)), \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5038 + fprintf (FILE, "\n")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5039 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5040 +/* This is how to output a string. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5041 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5042 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5043 +/* This is how to output an insn to push a register on the stack. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5044 + It need not be very fast code. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5045 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5046 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5047 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5048 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5049 +/* This is how to output an insn to pop a register from the stack. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5050 + It need not be very fast code. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5051 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5052 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5053 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5054 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5055 +/* This is how to output an element of a case-vector that is absolute. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5056 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5057 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5058 + fprintf (FILE, "\t.word L%u\n", VALUE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5059 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5060 +/* This is how to output an element of a case-vector that is relative. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5061 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5062 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5063 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5064 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5065 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5066 +/***************************************************************************** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5067 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5068 +** Assembler Commands for Alignment |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5069 +** |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5070 +*****************************************************************************/ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5071 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5072 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5073 + * So use the .byte and .word directives instead of .blkb */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5074 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5075 + do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5076 + int __size = SIZE; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5077 + while (__size > 0) { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5078 + if (__size >= 2) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5079 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5080 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5081 + __size -= 2; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5082 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5083 + else \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5084 + { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5085 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5086 + __size--; \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5087 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5088 + } \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5089 + } while (0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5090 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5091 +/* This says how to output an assembler line |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5092 + to define a global common symbol. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5093 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5094 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5095 + do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5096 + switch_to_section (bss_section); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5097 + fputs ("\t.globl\t", FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5098 + assemble_name ((FILE), (NAME)); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5099 + fputs ("\n", FILE); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5100 + assemble_name ((FILE), (NAME)); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5101 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5102 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5103 +/* This says how to output an assembler line |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5104 + to define a local common symbol. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5105 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5106 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5107 +do { \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5108 + switch_to_section (bss_section); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5109 + assemble_name ((FILE), (NAME)); \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5110 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5111 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5112 +/* Store in OUTPUT a string (made with alloca) containing |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5113 + an assembler-name for a local static variable named NAME. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5114 + LABELNO is an integer which is different for each call. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5115 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5116 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5117 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5118 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5119 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5120 +/* Print an instruction operand X on file FILE. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5121 + CODE is the code from the %-spec for printing this operand. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5122 + If `%z3' was used to print operand 3, then CODE is 'z'. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5123 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5124 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5125 +/* Print a memory operand whose address is X, on file FILE. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5126 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5127 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5128 +/* Don't let stack pushes build up too much. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5129 +#define MAX_PENDING_STACK 8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5130 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5131 +/* Define values for builtin operations */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5132 +enum m6809_builtins |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5133 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5134 + M6809_SWI, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5135 + M6809_SWI2, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5136 + M6809_SWI3, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5137 + M6809_CWAI, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5138 + M6809_SYNC, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5139 + M6809_ADD_CARRY, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5140 + M6809_SUB_CARRY, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5141 + M6809_ADD_DECIMAL, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5142 + M6809_NOP, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5143 + M6809_BLOCKAGE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5144 +}; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5145 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5146 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5147 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5148 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2015-07-20 22:05:21.702720231 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5149 @@ -0,0 +1,2358 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5150 +;; GCC machine description for Motorola 6809 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5151 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5152 +;; 2009 Free Software Foundation, Inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5153 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5154 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5155 +;; by William Astle (lost@l-w.ca). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5156 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5157 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5158 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5159 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5160 +;; This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5161 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5162 +;; GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5163 +;; it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5164 +;; the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5165 +;; any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5166 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5167 +;; GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5168 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5169 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5170 +;; GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5171 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5172 +;; You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5173 +;; along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5174 +;; <http://www.gnu.org/licenses/>. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5175 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5176 +;; General information: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5177 +;; -------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5178 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5179 +;; versions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5180 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5181 +;; * The 'A' and 'B' registers are treated as a single register by the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5182 +;; register allocator; hence, the instruction templates assume that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5183 +;; both can be modified if either one is available for use. No |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5184 +;; attempt is made to split instructions to refer to a particular half |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5185 +;; of the register. It is always referred to as the 'D' register, even |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5186 +;; in QImode (when it will be displayed as 'B'). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5187 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5188 +;; * There is full support for proper branch instruction generation, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5189 +;; based on instruction lengths. However, many instruction patterns |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5190 +;; are still overloaded to emit lots of real instructions, which can |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5191 +;; make the length calculation difficult; in those cases, I've tried |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5192 +;; to be pessimistic and assume the worst-case. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5193 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5194 +;; * The instruction type attributes are only defined for branch |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5195 +;; vs. non branch instructions for now, since there is seemingly no |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5196 +;; reason to define these for other types anyway. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5197 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5198 +;; * The limited number of total registers presents the greatest |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5199 +;; challenge. There are 'soft registers' -- memory locations |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5200 +;; used to simulate real regs -- which can be helpful. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5201 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5202 +;; * Position-independent code (PIC) is supported and has been tested |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5203 +;; but not to the extent of absolute code generation. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5204 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5205 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5206 +;; as UNSPEC instructions, and can be accessed from C code using |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5207 +;; __builtin_xxxx() style functions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5208 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5209 +;; What still needs to be done: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5210 +;; ---------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5211 +;; * Replace remaining instances of (define_peephole) with |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5212 +;; (define_peephole2), or remove them completely if they are not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5213 +;; matching anyway. Add more peepholes for things actually encountered. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5214 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5215 +;; * Indexing addressing can lead to crashes in complex functions when |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5216 +;; register pressure is high. Only the 'D' register can actually be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5217 +;; used as an index register, and its demand by other instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5218 +;; can sometimes mean that it is impossible to satisfy constraints. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5219 +;; Currently, indexing is completely disabled to avoid these types |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5220 +;; of problems, although code is slightly more inefficient in some |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5221 +;; working cases. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5222 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5223 +;; * 32-bit math is terribly inefficient. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5224 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5225 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5226 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5227 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5228 +;;- Constants |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5229 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5230 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5231 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5232 +; Define constants for hard register numbers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5233 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5234 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5235 + (HARD_RSVD1_REGNUM 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5236 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5237 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5238 + (HARD_Z_REGNUM 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5239 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5240 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5241 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5242 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5243 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5244 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5245 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5246 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5247 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5248 +; The range in which a short branch insn can be used. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5249 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5250 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5251 + (MIN_SHORT_BRANCH_OFFSET -127) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5252 + (MAX_SHORT_BRANCH_OFFSET 128) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5253 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5254 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5255 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5256 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5257 +; The lengths of various types of real 6809 instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5258 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5259 +; By default, ordinary insns are 4 bytes long. This is often not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5260 +; right, and the insn patterns below will redefine this to the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5261 +; correct value. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5262 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5263 +; Branch instruction lengths (conditional and unconditionals) are |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5264 +; well known and declared here. The short insns are used when the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5265 +; offset is within the range declared above (between MIN_SHORT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5266 +; and MAX_SHORT) ; otherwise the long form is used. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5267 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5268 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5269 + (DEFAULT_INSN_LENGTH 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5270 + (SHORT_CBRANCH_LENGTH 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5271 + (LONG_CBRANCH_LENGTH 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5272 + (SHORT_BRANCH_LENGTH 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5273 + (LONG_BRANCH_LENGTH 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5274 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5275 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5276 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5277 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5278 +; Constants for insn cycle counts. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5279 +; Note that these counts all assume 1-byte opcodes. 2-byte |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5280 +; opcodes require 1 extra cycles for fetching the extra byte. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5281 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5282 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5283 + ;; The default insn length, when it cannot be calculated. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5284 + ;; Take a conservative approach and estimate high. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5285 + (DEFAULT_INSN_CYCLES 10) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5286 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5287 + ;; Cycle counts for ALU and load operations. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5288 + (ALU_INHERENT_CYCLES 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5289 + (ALU_IMMED_CYCLES 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5290 + (ALU_DIRECT_CYCLES 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5291 + (ALU_INDEXED_BASE_CYCLES 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5292 + (ALU_EXTENDED_CYCLES 5) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5293 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5294 + ;; If an ALU operation is on a 16-bit register (D), then |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5295 + ;; add this number of cycles to the total count. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5296 + (ALU_16BIT_CYCLES 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5297 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5298 + ;; A load of a 16-bit register incurs this extra amount. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5299 + (LOAD_16BIT_CYCLES 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5300 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5301 + ;; Cycle counts for memory-only operations (bit shifts, clear, test) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5302 + (MEM_DIRECT_CYCLES 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5303 + (MEM_INDEXED_BASE_CYCLES 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5304 + (MEM_EXTENDED_CYCLES 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5305 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5306 + ;; Cycle count for any reg-reg transfer (regardless of size) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5307 + (EXG_CYCLES 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5308 + (TFR_CYCLES 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5309 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5310 + ;; Cycle count for a condition code update (andcc/orcc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5311 + (CC_CYCLES 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5312 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5313 + (JMP_DIRECT_CYCLES 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5314 + (JMP_INDEXED_BASE_CYCLES 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5315 + (JMP_EXTENDED_CYCLES 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5316 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5317 + (JSR_DIRECT_CYCLES 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5318 + (JSR_INDEXED_BASE_CYCLES 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5319 + (JSR_EXTENDED_CYCLES 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5320 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5321 + (LEA_BASE_CYCLES 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5322 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5323 + ;; Cycle count for a psh/pul operations. Add to this the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5324 + ;; total number of bytes moved for the correct count. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5325 + (PSH_PUL_CYCLES 5) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5326 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5327 + ;; Miscellaneous cycle counts |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5328 + (CWAI_CYCLES 20) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5329 + (MUL_CYCLES 11) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5330 + (NOP_CYCLES 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5331 + (RTI_CYCLES 15) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5332 + (RTS_CYCLES 5) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5333 + (SWI_CYCLES 20) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5334 + (SYNC_CYCLES 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5335 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5336 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5337 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5338 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5339 +; An enumeration of values for each "unspec"; i.e. unspecified |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5340 +; instruction. These represent insns that are meaningful on the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5341 +; 6809 but which have no intrinsic meaning to GCC itself. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5342 +; These insns can be generated explicitly using the __builtin_xxx |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5343 +; syntax; they are also implicitly generated by the backend |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5344 +; as needed to implement other insns. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5345 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5346 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5347 + (UNSPEC_BLOCKAGE 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5348 + (UNSPEC_PUSH_RS 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5349 + (UNSPEC_POP_RS 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5350 + (UNSPEC_SWI 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5351 + (UNSPEC_CWAI 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5352 + (UNSPEC_ADD_CARRY 5) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5353 + (UNSPEC_SUB_CARRY 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5354 + (UNSPEC_SYNC 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5355 + (UNSPEC_ADD_DECIMAL 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5356 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5357 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5358 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5359 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5360 +;;- Predicates |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5361 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5362 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5363 +(include "predicates.md") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5364 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5365 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5366 +;;- Attributes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5367 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5368 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5369 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5370 +;; The type attribute is used to distinguish between different |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5371 +;; types of branch instructions, so that their lengths can be |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5372 +;; calculated correctly. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5373 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5374 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5375 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5376 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5377 +;; The length of a branch instruction is calculated based on how |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5378 +;; far away the branch target is. Lengths of other insns default |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5379 +;; to 4. set_attr is used in instruction templates to specify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5380 +;; the length when it is known exactly. When not sure, err on |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5381 +;; the high side to avoid compile errors. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5382 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5383 +(define_attr "length" "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5384 + (cond [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5385 + (eq_attr "type" "branch") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5386 + (if_then_else (lt (minus (match_dup 0) (pc)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5387 + (const_int MIN_SHORT_BRANCH_OFFSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5388 + (const_int LONG_BRANCH_LENGTH) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5389 + (if_then_else (gt (minus (match_dup 0) (pc)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5390 + (const_int MAX_SHORT_BRANCH_OFFSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5391 + (const_int LONG_BRANCH_LENGTH) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5392 + (const_int SHORT_BRANCH_LENGTH))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5393 + (eq_attr "type" "cbranch") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5394 + (if_then_else (lt (minus (match_dup 0) (pc)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5395 + (const_int MIN_SHORT_BRANCH_OFFSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5396 + (const_int LONG_CBRANCH_LENGTH) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5397 + (if_then_else (gt (minus (match_dup 0) (pc)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5398 + (const_int MAX_SHORT_BRANCH_OFFSET)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5399 + (const_int LONG_CBRANCH_LENGTH) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5400 + (const_int SHORT_CBRANCH_LENGTH))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5401 + ] (const_int DEFAULT_INSN_LENGTH))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5402 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5403 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5404 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5405 +;; The default attributes for 'asm' statements. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5406 +;; The default length is the longest possible single 6809 instruction, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5407 +;; which is 5 bytes. GCC will automatically multiply this by the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5408 +;; number of real insns contained in an asm statement. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5409 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5410 +(define_asm_attributes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5411 + [(set_attr "length" "5") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5412 + (set_attr "type" "unknown")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5413 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5414 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5415 +;; An attribute for the number of cycles that it takes an instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5416 +;; to execute. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5417 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5418 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5419 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5420 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5421 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5422 +;;- Instruction patterns. When multiple patterns apply, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5423 +;;- the first one in the file is chosen. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5424 +;;- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5425 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5426 +;;- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5427 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5428 +;;- for most instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5429 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5430 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5431 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5432 +;;- Test |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5433 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5434 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5435 +;; cmpx is 3 bytes, not 4 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5436 +(define_insn "*tsthi_x" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5437 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5438 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5439 + "cmpx\t#0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5440 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5441 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5442 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5443 +(define_insn "*tsthi_d" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5444 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5445 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5446 + "subd\t#0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5447 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5448 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5449 +(define_insn "*tsthi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5450 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5451 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5452 + "cmp%0\t#0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5453 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5454 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5455 +(define_insn "*bitqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5456 + [(set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5457 + (and:QI (match_operand:QI 0 "register_operand" "%q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5458 + (match_operand:QI 1 "general_operand" "mi")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5459 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5460 + "bit%0\t%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5461 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5462 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5463 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5464 +(define_insn "tstqi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5465 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5466 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5467 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5468 + tst%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5469 + tst\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5470 + [(set_attr "length" "1,3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5471 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5472 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5473 +;;- Compare instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5474 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5475 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5476 +;; - cmphi for register to memory or register compares |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5477 +(define_insn "cmphi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5478 + [(set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5479 + (compare |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5480 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5481 + (match_operand:HI 1 "general_operand" "mi, da, dU")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5482 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5483 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5484 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5485 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5486 + return "cmp%0\t,s++\t;cmphi:"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5487 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5488 + if (GET_CODE (operands[0]) == REG) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5489 + return "cmp%0\t%1\t;cmphi:"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5490 + else { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5491 + cc_status.flags |= CC_REVERSED; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5492 + return "cmp%1\t%0\t;cmphi:(R)"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5493 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5494 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5495 + [(set_attr "length" "5,5,7")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5496 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5497 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5498 +(define_insn "cmpqi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5499 + [(set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5500 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5501 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5502 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5503 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5504 + if (REG_P (operands[0]) && !M_REG_P (operands[0])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5505 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5506 + if (operands[1] == const0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5507 + return "tst%0\t;cmpqi:(ZERO)"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5508 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5509 + return "cmp%0\t%1\t;cmpqi:"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5510 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5511 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5512 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5513 + cc_status.flags |= CC_REVERSED; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5514 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5515 + if (operands[0] == const0_rtx) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5516 + return "tst%1\t;cmpqi:(RZERO)"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5517 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5518 + return "cmp%1\t%0\t;cmpqi:(R)"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5519 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5520 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5521 + [(set_attr "length" "1,3,2,1,3,2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5522 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5523 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5524 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5525 +;;- Compare/branch pattern |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5526 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5527 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5528 +(define_expand "cbranchhi4" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5529 + [(set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5530 + (compare |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5531 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5532 + (match_operand:HI 2 "general_operand" "mi, da, dU"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5533 + (set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5534 + (if_then_else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5536 + (label_ref (match_operand 3 "" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5537 + (pc)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5538 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5539 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5540 +) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5541 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5542 +(define_expand "cbranchqi4" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5543 + [(set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5544 + (compare |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5545 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5546 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5547 + (set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5548 + (if_then_else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5549 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5550 + (label_ref (match_operand 3 "" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5551 + (pc)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5552 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5553 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5554 +) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5555 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5556 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5557 +;;- Move |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5558 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5559 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5560 +; this looks good (obviously not finished) but I still see 'movsi' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5561 +; places in udivsi3 where it's broken |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5562 +; (define_insn "pushsi1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5563 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5564 +; (match_operand:SI 0 "general_operand" "o")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5565 +; (set (reg:HI HARD_S_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5566 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5567 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5568 +; "; pushsi %0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5569 +; [(set_attr "length" "12")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5570 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5571 +; (define_insn "popsi1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5572 +; [(set (match_operand:SI 0 "general_operand" "=o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5573 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5574 +; (set (reg:HI HARD_S_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5575 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5576 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5577 +; "; popsi %0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5578 +; [(set_attr "length" "12")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5579 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5580 +; (define_insn "movsi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5581 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5582 +; (match_operand:SI 1 "general_operand" " oi"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5583 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5584 +; "; movsi %0 <- %1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5585 +; [(set_attr "length" "1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5586 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5587 +; this doesn't work |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5588 +; (define_expand "movsi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5589 +; [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5590 +; (set (match_operand:SI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5591 +; (match_operand:SI 1 "general_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5592 +; (clobber (match_scratch:HI 2 ""))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5593 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5594 +; { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5595 +; rtx insn; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5596 +; if (STACK_PUSH_P (operands[0]) || STACK_POP_P (operands[1])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5597 +; { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5598 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5599 +; } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5600 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5601 +; DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5602 +; }) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5603 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5604 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5605 +(define_expand "movhi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5606 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5607 + (match_operand:HI 1 "general_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5608 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5609 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5610 + /* One of the ops has to be in a register prior to reload */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5611 + if (!register_operand (operand0, HImode) && |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5612 + !register_operand (operand1, HImode)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5613 + operands[1] = copy_to_mode_reg (HImode, operand1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5614 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5615 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5616 +;;; Try a splitter to handle failure cases where we try to move |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5617 +;;; an immediate constant (zero usually) directly to memory. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5618 +;;; This absolutely requires an intermediate register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5619 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5620 + [(set (match_operand:HI 0 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5621 + (match_operand:HI 1 "immediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5622 + (clobber (match_operand:HI 2 "register_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5623 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5624 + [(set (match_dup 2) (match_dup 1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5625 + (set (match_dup 0) (match_dup 2))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5626 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5627 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5628 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5629 +;;; This would be a nice method for loading from a word array, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5630 +;;; but it is never generated because the combiner cannot merge |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5631 +;;; more than 3 instructions (there are four here). This is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5632 +;;; perhaps better done via a peephole. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5633 +(define_insn "*movhi_array_load" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5634 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5635 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5636 + (match_operand:HI 2 "immediate_operand" "i")))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5637 + (clobber (match_scratch:HI 3 "=X"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5638 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5639 + "ldx\t%2\;abx\;abx\;ld%0\t,x" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5640 + [(set_attr "length" "7")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5641 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5642 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5643 +;;; Optimize the move of a byte to the stack using the pshs instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5644 +;;; instead of a store with pre-increment. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5645 +(define_insn "movhi_push" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5646 + [(set (match_operand:HI 0 "push_operand" "=m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5647 + (match_operand:HI 1 "register_operand" "U"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5648 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5649 + "pshs\t%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5650 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5651 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5652 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5653 +(define_insn "*movhi_pic_symbolref" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5654 + [(set (match_operand:HI 0 "register_operand" "=a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5655 + (match_operand:HI 1 "symbolic_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5656 + "flag_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5657 + "lea%0\t%c1,pcr" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5658 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5659 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5660 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5661 +(define_insn "*movhi_1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5662 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5663 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5664 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5665 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5666 + lea%0\t,%1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5667 + tfr\t%1,%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5668 + tfr\t%1,%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5669 + ld%0\t%1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5670 + st%1\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5671 + [(set_attr "length" "2,2,2,*,*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5672 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5673 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5674 +;;; Generated by the combiner to merge an address calculation with |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5675 +;;; a byte load. We can use the 'abx' instruction here. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5676 +(define_insn "*movqi_array_load" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5677 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5678 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5679 + (match_operand:HI 2 "immediate_operand" "i")))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5680 + (clobber (match_scratch:HI 3 "=X"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5681 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5682 + "ldx\t%2\;abx\;ld%0\t,x" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5683 + [(set_attr "length" "6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5684 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5685 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5686 +;;; Optimize the move of a byte to the stack using the pshs instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5687 +;;; instead of a store with pre-increment. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5688 +(define_insn "movqi_push" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5689 + [(set (match_operand:QI 0 "push_operand" "=m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5690 + (match_operand:QI 1 "register_operand" " q"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5691 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5692 + "pshs\t%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5693 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5694 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5695 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5696 +;;; Optimize the move of a byte from the stack using the puls instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5697 +;;; instead of a store with post-decrement. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5698 +(define_insn "movqi_pop" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5699 + [(set (match_operand:QI 0 "register_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5700 + (match_operand:QI 1 "pop_operand" "m"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5701 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5702 + "puls\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5703 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5704 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5705 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5706 +;;- load low byte of 16-bit data into 8-bit register/memory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5707 +(define_insn "*mov_lsb" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5710 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5711 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5712 + \t;movlsbqihi: D->B |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5713 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5714 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5715 + stb\t%0\t;movlsbqihi: R:%1 -> %0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5716 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5717 + [(set_attr "length" "0,*,2,*,6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5718 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5719 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5720 +;;- load high byte of 16-bit data into 8-bit register/memory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5721 +(define_insn "*mov_msb" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5722 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5723 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5724 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5725 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5726 + tfr\ta,b\t;movmsbqihi: D->B |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5727 + clr%0\t\t;movmsbqihi: ZERO -> R:%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5728 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5729 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5730 + sta\t%0\t;movmsbqihi: R:%1 -> %0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5731 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5732 + [(set_attr "length" "2,1,4,*,*,6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5733 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5734 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5735 +(define_insn "*movqi_boolean" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5736 + [(set (reg:QI HARD_Z_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5737 + (match_operand:QI 0 "general_operand" "q,O,i,m"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5738 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5739 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5740 + tst%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5741 + andcc\t#~4 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5742 + orcc\t#4 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5743 + tst\t%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5744 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5745 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5746 +(define_insn "movqi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5747 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5748 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5749 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5750 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5751 + tfr\t%1,%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5752 + clr%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5753 + clr\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5754 + ld%0\t%1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5755 + st%1\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5756 + tfr\tcc,%0\;and%0\t#4 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5757 + tst%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5758 + [(set_attr "length" "2,1,3,*,*,4,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5759 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5760 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5761 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5762 +;;- Swap registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5763 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5764 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5765 +; Note: 8-bit swap is never needed so it is not defined. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5766 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5767 +(define_insn "swaphi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5768 + [(set (match_operand:HI 0 "register_operand" "+r") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5769 + (match_operand:HI 1 "register_operand" "+r")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5770 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5771 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5772 + "exg\t%1,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5773 + [(set_attr "length" "2") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5774 + (set (attr "cycles") (const_int EXG_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5775 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5776 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5777 +(define_insn "bswaphi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5778 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5779 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5780 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5781 + "exg\ta,b" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5782 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5783 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5784 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5785 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5786 +;;- Extension and truncation insns. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5787 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5788 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5789 +(define_insn "extendqihi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5790 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5791 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5792 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5793 + "sex\t\t;extendqihi2: R:%1 -> R:%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5794 + [(set_attr "length" "1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5795 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5796 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5797 +(define_insn "zero_extendqihi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5798 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5799 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5800 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5801 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5802 + [(set_attr "length" "1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5803 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5804 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5805 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5806 +;;- All kinds of add instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5807 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5808 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5809 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5810 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5811 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5812 +;; so it is MUCH less efficient. Define this one ourselves. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5813 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5814 +;; TODO - can't always get 'd' for the clobber... allow other registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5815 +;; as well and use exg d,R ... exg R,d around the code sequence to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5816 +;; use others, at a price. Also consider libcall for this when |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5817 +;; optimizing for size. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5818 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5819 +(define_insn "addsi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5820 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5821 + (plus:SI (match_operand:SI 1 "general_operand" "%o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5822 + (match_operand:SI 2 "general_operand" " oi"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5823 + (clobber (match_scratch:HI 3 "=d"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5824 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5825 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5826 + m6809_output_addsi3 (PLUS, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5827 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5828 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5829 + [(set_attr "length" "21")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5830 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5831 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5832 +; Increment of a 16-bit MEM by 1 can be done without a register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5833 +(define_insn "*addhi_mem_1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5834 + [(set (match_operand:HI 0 "memory_operand" "=m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5835 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5836 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5837 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5838 + rtx xoperands[2]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5839 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5840 + xoperands[0] = operands[0]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5841 + xoperands[1] = adjust_address (operands[0], QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5842 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5843 + output_asm_insn ("inc\t%1", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5844 + output_asm_insn ("bne\t__IL%=", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5845 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5846 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5847 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5848 + [(set_attr "length" "7")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5849 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5850 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5851 +; Decrement of a 16-bit MEM by 1 can be done without a register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5852 +(define_insn "*addhi_mem_minus1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5853 + [(set (match_operand:HI 0 "memory_operand" "=m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5854 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int -1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5855 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5856 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5857 + rtx xoperands[2]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5858 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5859 + xoperands[0] = operands[0]; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5860 + xoperands[1] = adjust_address (operands[0], QImode, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5861 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5862 + output_asm_insn ("tst\t%1", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5863 + output_asm_insn ("bne\t__IL%=", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5864 + output_asm_insn ("dec\t%0", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5865 + output_asm_insn ("__IL%=:", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5866 + output_asm_insn ("dec\t%1", xoperands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5867 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5868 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5869 + [(set_attr "length" "7")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5870 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5871 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5872 +; Allow the addition of an 8-bit quantity to a 16-bit quantity |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5873 +; using the LEAX B,Y addressing mode, where X and Y are both |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5874 +; index registers. This will only get generated via the peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5875 +; which removes a sign extension. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5876 +(define_insn "*addhi_b" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5877 + [(set (match_operand:HI 0 "index_register_operand" "=a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5878 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5879 + (match_operand:QI 2 "register_operand" "q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5880 + ))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5881 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5882 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5883 + [(set_attr "length" "*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5884 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5885 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5886 +; Splitter for addhi pattern #5 below |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5887 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5888 + [(set (match_operand:HI 0 "index_register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5889 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5890 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5891 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5892 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5893 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5894 + (set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5895 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5896 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5897 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5898 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5899 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5900 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5901 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5902 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5903 +; Splitter for addhi pattern #7 below |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5904 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5905 + [(set (match_operand:HI 0 "index_register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5906 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5907 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5908 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5909 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5910 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5911 + (set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5912 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5913 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5914 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5915 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5916 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5917 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5918 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5919 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5920 +; TODO - this is ugly. During RTL generation, we don't know what registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5921 +; are available, so the multiple-insn sequences can only be solved |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5922 +; via 'define_split's during matching. See andhi3 for an example. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5923 +; Keep the constraints with ? modifiers to help reload pick the right |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5924 +; registers. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5925 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5926 +; The forms are: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5927 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5928 +; to avoid this even happening...) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5929 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5930 +; now, is this a better way?) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5931 +; 3. Best choice: 'addd' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5932 +; 4. Next best choice: 'lea' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5933 +; 5. Hybrid of 3 and 4 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5934 +; 6. Same as 4, not bad |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5935 +; 7. BAD, no D register at all |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5936 +; 8. 'lea', as good as 4. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5937 +(define_insn "addhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5938 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5939 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5940 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5941 + ))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5942 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5943 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5944 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5945 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5946 + add%0\t%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5947 + lea%0\t%1,%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5948 + # |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5949 + lea%0\t%2,%1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5950 + # |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5951 + lea%0\t%a2,%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5952 + [(set_attr "length" "2,6,*,*,7,*,7,*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5953 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5954 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5955 +(define_insn "addqi3_carry" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5956 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5957 + (unspec:QI [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5958 + (match_operand:QI 1 "whole_general_operand" "%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5959 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5960 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5961 + "adc%0\t%2\t;addqi_carry: R:%0 += %2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5962 + [(set_attr "length" "*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5963 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5964 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5965 +; TODO: specifying 'A' for the first constraint, to force into the A register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5966 +; is not working because of the way registers are currently set up. This will |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5967 +; take some work to get right. Thus the second alternative as a backup. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5968 +(define_insn "addqi3_decimal" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5969 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5970 + (unspec:QI [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5971 + (match_operand:QI 1 "general_operand" "%0,0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5972 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5973 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5974 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5975 + adda\t%2\;daa |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5976 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5977 + [(set_attr "length" "5,9")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5978 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5979 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5980 +(define_insn "addqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5981 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5982 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5983 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5984 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5985 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5986 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5987 + inc%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5988 + dec%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5989 + inc\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5990 + dec\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5991 + add%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5992 + [(set_attr "length" "1,1,1,3,3,*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5993 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5994 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5995 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5996 +;;- Subtract instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5997 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5998 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5999 +(define_insn "subsi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6000 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6001 + (minus:SI (match_operand:SI 1 "general_operand" " o") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6002 + (match_operand:SI 2 "general_operand" " oi"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6003 + (clobber (match_scratch:HI 3 "=d"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6004 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6005 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6006 + m6809_output_addsi3 (MINUS, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6007 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6008 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6009 + [(set_attr "length" "21")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6010 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6011 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6012 +(define_insn "subhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6013 + [(set (match_operand:HI 0 "register_operand" "=d, d, a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6014 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6015 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6016 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6017 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6018 + sub%0\t%2\t;subhi: R:%0 -= %2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6019 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6020 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6021 + [(set_attr "length" "*,5,3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6022 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6023 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6024 +(define_insn "subqi3_carry" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6025 + [(set (match_operand:QI 0 "register_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6026 + (unspec:QI [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6027 + (match_operand:QI 1 "whole_general_operand" "%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6028 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6029 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6030 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6031 + [(set_attr "length" "*")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6032 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6033 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6034 +(define_insn "subqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6035 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6036 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6037 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6038 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6039 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6040 + dec%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6041 + sub%0\t%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6042 + dec%0\;neg%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6043 + sub%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6044 + [(set_attr "length" "1,3,2,3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6045 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6046 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6047 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6048 +;;- Multiply instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6049 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6050 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6051 +; TODO - merge these two instructions, using 'extend_operator' to match |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6052 +; either signed or zero extension. Everything else is the same. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6053 +(define_insn "mulqihi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6054 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6055 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6056 + (match_operand:QI 2 "general_operand" "tmK")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6057 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6058 + "lda\t%2\t;mulqihi3\;mul" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6059 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6060 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6061 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6062 +(define_insn "umulqihi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6063 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6064 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6065 + (match_operand:QI 2 "general_operand" "tmK")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6066 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6067 + "lda\t%2\t;umulqihi3\;mul" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6068 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6069 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6070 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6071 +; Expand a 16x16 multiplication into either a libcall or a shift. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6072 +; If the second operand is a small constant, use the above form. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6073 +; Otherwise, do a libcall. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6074 +(define_expand "mulhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6075 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6076 + (mult:HI (match_operand:HI 1 "general_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6077 + (match_operand:HI 2 "nonmemory_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6078 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6079 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6080 + emit_libcall_insns (HImode, "mulhi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6081 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6082 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6083 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6084 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6085 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6086 +;;- Divide instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6087 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6088 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6089 +(define_expand "divhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6090 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6091 + (div:HI (match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6092 + (match_operand:HI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6093 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6094 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6095 + emit_libcall_insns (HImode, "divhi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6096 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6097 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6098 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6099 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6100 +(define_expand "divqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6101 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6102 + (div:QI (match_operand:QI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6103 + (match_operand:QI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6104 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6105 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6106 + emit_libcall_insns (QImode, "divqi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6107 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6108 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6109 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6110 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6111 +(define_expand "udivhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6112 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6113 + (udiv:HI (match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6114 + (match_operand:HI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6115 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6116 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6117 + emit_libcall_insns (HImode, "udivhi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6118 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6119 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6120 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6121 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6122 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6123 +;;- mod |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6124 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6125 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6126 +(define_expand "modhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6127 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6128 + (mod:HI (match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6129 + (match_operand:HI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6130 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6131 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6132 + emit_libcall_insns (HImode, "modhi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6133 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6134 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6135 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6136 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6137 +(define_expand "modqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6138 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6139 + (mod:QI (match_operand:QI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6140 + (match_operand:QI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6141 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6142 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6143 + emit_libcall_insns (QImode, "modqi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6144 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6145 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6146 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6147 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6148 +(define_expand "umodhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6149 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6150 + (umod:HI (match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6151 + (match_operand:HI 2 "register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6152 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6153 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6154 + emit_libcall_insns (HImode, "umodhi3", operands, 2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6155 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6156 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6157 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6158 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6159 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6160 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6161 +;;- and, or, xor common patterns |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6162 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6163 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6164 +; Split a bitwise HImode into two QImode instructions, with one of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6165 +; the sources in a pushable register. The register is pushed onto |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6166 +; the stack and memory pop operands (,s+) are used in the QI forms. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6167 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6168 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6169 + (match_operator:HI 3 "logical_bit_operator" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6170 + [(match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6171 + (match_operand:HI 2 "register_operand" "")]))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6172 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6173 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6174 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6175 + [(reg:QI HARD_A_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6177 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6178 + [(reg:QI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6179 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6180 + (use (reg:QI HARD_A_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6181 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6182 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6183 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6184 +; Split a bitwise HImode into two QImode instructions, with one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6185 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6186 +; reference. This requires dereferencing the pointer into a |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6187 +; temporary register (X), which must be saved/restored around the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6188 +; compute instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6189 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6190 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6191 + (match_operator:HI 3 "logical_bit_operator" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6192 + [(match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6193 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6194 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6195 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6196 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6197 + (set (match_dup 4) (match_dup 2)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6198 + (set (match_dup 4) (mem:HI (match_dup 4))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6199 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6200 + [(reg:QI HARD_A_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6201 + (mem:QI (post_inc:QI (match_dup 4)))])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6202 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6203 + [(reg:QI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6204 + (mem:QI (post_inc:QI (match_dup 4)))])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6205 + (use (reg:QI HARD_A_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6206 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6207 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6208 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6209 + /* Use X for a temporary index register */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6210 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6211 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6212 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6213 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6214 +; Split a bitwise HImode into two QImode instructions. This is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6215 +; the common case. This handles splitting when neither of the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6216 +; above two cases applies. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6217 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6218 + [(set (match_operand:HI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6219 + (match_operator:HI 3 "logical_bit_operator" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6220 + [(match_operand:HI 1 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6221 + (match_operand:HI 2 "general_operand" "")]))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6222 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6223 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6224 + [(reg:QI HARD_A_REGNUM) (match_dup 4)])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6225 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6226 + [(reg:QI HARD_D_REGNUM) (match_dup 5)])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6227 + (use (reg:QI HARD_A_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6228 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6229 + if (GET_CODE (operands[2]) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6230 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6231 + operands[4] = gen_rtx_const_high (operands[2]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6232 + operands[5] = gen_rtx_const_low (operands[2]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6233 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6234 + else if ((GET_CODE (operands[2]) == MEM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6235 + && (GET_CODE (XEXP (operands[2], 0)) == MEM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6236 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6237 + FAIL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6238 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6239 + else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6240 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6241 + operands[4] = gen_highpart (QImode, operands[2]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6242 + operands[5] = gen_lowpart (QImode, operands[2]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6243 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6244 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6245 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6246 +; Below are the specific cases for each of the operators. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6247 +; The QImode versions are the simplest and can be implemented |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6248 +; directly on the hardware. The HImode cases are all output |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6249 +; using one of the above splitting techniques. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6250 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6251 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6252 +;;- and |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6253 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6254 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6255 +(define_insn "andhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6256 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6257 + (and:HI (match_operand:HI 1 "register_operand" "%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6258 + (match_operand:HI 2 "general_operand" "mnU")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6259 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6260 + "#") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6261 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6262 +;; it is not clear that this is correct |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6263 +(define_insn "*andqi_2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6264 + [(set |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6265 + (match_operand:QI 0 "register_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6266 + (and:QI (match_operand:QI 1 "register_operand" "q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6267 + (match_operand 2 "const_int_operand" "i")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6268 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6269 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6270 + if (GET_CODE (operands[2]) == CONST_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6271 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6272 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6273 + return "and%0 %3"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6274 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6275 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6276 + return "and%0 %2"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6277 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6278 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6279 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6280 +(define_insn "andqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6281 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6282 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6283 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6284 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6285 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6286 + clr%0\t;andqi(ZERO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6287 + \t;andqi(-1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6288 + and%0\t%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6289 + and%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6290 + [(set_attr "length" "1,0,3,2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6291 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6292 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6293 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6294 +;;- or |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6295 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6296 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6297 +(define_insn "iorhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6298 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6299 + (ior:HI (match_operand:HI 1 "register_operand" "%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6300 + (match_operand:HI 2 "general_operand" "mnU")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6301 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6302 + "#") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6303 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6304 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6305 +(define_insn "iorqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6306 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6307 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6308 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6309 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6310 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6311 + \t;iorqi(ZERO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6312 + or%0\t%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6313 + or%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6314 + [(set_attr "length" "0,3,2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6315 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6316 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6317 +;;- xor |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6318 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6319 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6320 +(define_insn "xorhi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6321 + [(set (match_operand:HI 0 "register_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6322 + (xor:HI (match_operand:HI 1 "register_operand" "%0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6323 + (match_operand:HI 2 "general_operand" "mnU")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6324 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6325 + "#") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6326 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6327 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6328 +(define_insn "xorqi3" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6329 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6330 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6331 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6332 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6333 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6334 + \t;xorqi(ZERO) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6335 + com%0\t;xorqi(-1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6336 + eor%0\t%2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6337 + eor%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6338 + [(set_attr "length" "0,1,3,2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6339 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6340 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6341 +;;- Two's Complements |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6342 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6343 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6344 +(define_insn "neghi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6345 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6346 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6347 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6348 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6349 + nega\;negb\;sbca\t#0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6350 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6351 + [(set_attr "length" "5,9")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6352 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6353 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6354 +(define_insn "negqi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6355 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6356 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6357 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6358 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6359 + neg%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6360 + neg\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6361 + [(set_attr "length" "1,3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6362 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6363 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6364 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6365 +;;- One's Complements |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6366 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6367 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6368 +(define_insn "one_cmplhi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6369 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6370 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6371 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6372 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6373 + coma\;comb |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6374 + com\t%0\;com\t%L0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6375 + exg\td,%0\;coma\;comb\;exg\td,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6376 + [(set_attr "length" "2,6,6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6377 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6378 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6379 +(define_insn "one_cmplqi2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6380 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6381 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6382 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6383 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6384 + com%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6385 + com\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6386 + [(set_attr "length" "1,3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6387 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6388 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6389 +;;- Shifts/rotates |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6390 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6391 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6392 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6393 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6394 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6395 +(define_mode_iterator bit_mode [QI HI]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6396 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6397 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6398 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6399 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6400 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6401 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6402 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6403 + (match_operand:bit_mode 2 "nonmemory_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6404 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6405 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6406 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6407 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6408 +; Individual instructions implemented in the CPU. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6409 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6410 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6411 +(define_insn "*ashift1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6412 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6413 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6414 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6415 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6416 + asl\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6417 + asl%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6418 + [(set_attr "length" "3,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6419 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6420 +(define_insn "*lshiftrt1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6421 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6422 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6423 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6424 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6425 + lsr\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6426 + lsr%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6427 + [(set_attr "length" "3,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6428 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6429 +(define_insn "*ashiftrt1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6430 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6431 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6432 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6433 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6434 + asr\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6435 + asr%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6436 + [(set_attr "length" "3,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6437 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6438 +(define_insn "*rotate1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6439 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6440 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6441 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6442 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6443 + rol\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6444 + rol%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6445 + [(set_attr "length" "3,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6446 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6447 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6448 +(define_insn "*rotatert1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6449 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6450 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6451 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6452 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6453 + ror\t%0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6454 + ror%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6455 + [(set_attr "length" "3,1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6456 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6457 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6458 +; A shift by 8 for D reg can be optimized by just moving |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6459 +; between the A/B halves, and then zero/sign extending or |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6460 +; filling in zeroes. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6461 +; Because GCC does not understand that 'A' and 'D' refer to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6462 +; the same storage location, we must use 'USE' throughout |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6463 +; to prevent deletion of 'unnecessary' instructions. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6464 +; Similar optimization for MEM would require a scratch register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6465 +; so is not done here. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6466 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6467 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6468 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6469 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6470 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6471 + (use (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6472 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6473 + (use (reg:QI HARD_A_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6474 + (set (reg:QI HARD_D_REGNUM) (const_int 0)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6475 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6476 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6477 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6478 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6479 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6480 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6481 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6482 + (use (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6483 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6484 + (use (reg:QI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6485 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6486 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6487 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6488 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6489 +(define_split |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6490 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6491 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6492 + [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6493 + (use (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6494 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6495 + (use (reg:QI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6496 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6497 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6498 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6499 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6500 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6501 +; On the WPC hardware, there is a shift register that can be used |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6502 +; to compute (1<<n) efficiently in two instructions. Note that this |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6503 +; form only works when using -mint8 though, because C will promote |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6504 +; to 'int' when doing this operation. TODO : we need a 16-bit form too. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6505 +(define_insn "ashlqi3_wpc" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6506 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6507 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6508 + (match_operand:QI 2 "general_operand" "q")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6509 + "TARGET_WPC" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6510 + "st%2\t0x3FF7\;ld%0\t0x3FF7" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6511 + [(set_attr "length" "6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6512 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6513 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6514 +; Internal instructions for shifting by a constant. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6515 +; Two forms are provided, one for QImode, one for HImode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6516 +; These are always split into the above instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6517 +; (except for QImode forms that directly match one of the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6518 +; above instructions, in which the condition will not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6519 +; allow the splitter to match). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6520 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6521 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6522 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6523 + (bit_code:HI (match_operand:HI 1 "general_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6524 + (match_operand:HI 2 "immediate_operand" "n")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6525 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6526 + "#" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6527 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6528 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6529 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6530 + m6809_split_shift (<bit_code:CODE>, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6531 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6532 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6533 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6534 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6535 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6536 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6537 + (bit_code:QI (match_operand:QI 1 "general_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6538 + (match_operand:QI 2 "immediate_operand" "n")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6539 + "INTVAL (operands[2]) > 1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6540 + "#" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6541 + "&& reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6542 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6543 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6544 + m6809_split_shift (<bit_code:CODE>, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6545 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6546 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6547 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6548 +; Internal instructions for shifting by a nonconstant. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6549 +; These expand into complex assembly. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6550 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6551 +(define_insn "<bit_code:bit_code_name>hi3_reg" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6552 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6553 + (bit_code:HI (match_operand:HI 1 "general_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6554 + (match_operand:HI 2 "nonimmediate_operand" "v")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6555 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6556 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6557 + m6809_output_shift_insn (<bit_code:CODE>, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6558 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6559 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6560 + [(set_attr "length" "20")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6561 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6562 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6563 +(define_insn "<bit_code:bit_code_name>qi3_reg" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6564 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6565 + (bit_code:QI (match_operand:QI 1 "general_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6566 + (match_operand:QI 2 "nonimmediate_operand" "v")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6567 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6568 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6569 + m6809_output_shift_insn (<bit_code:CODE>, operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6570 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6571 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6572 + [(set_attr "length" "16")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6573 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6574 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6575 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6576 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6577 +;;- Jumps and transfers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6578 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6579 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6580 +;;; The casesi pattern is normally *not* defined; see 'tablejump' instead. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6581 +(define_expand "casesi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6582 + [(match_operand:HI 0 "register_operand" "") ; index to jump on |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6583 + (match_operand:HI 1 "immediate_operand" "") ; lower bound |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6584 + (match_operand:HI 2 "immediate_operand" "") ; total range |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6585 + (match_operand 3 "" "") ; table label |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6586 + (match_operand 4 "" "")] ; out of range label |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6587 + "TARGET_BYTE_INT && TARGET_CASESI" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6588 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6589 + m6809_do_casesi (operands[0], operands[1], operands[2], |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6590 + operands[3], operands[4]); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6591 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6592 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6593 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6594 +(define_insn "tablejump_short_offset" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6595 + [(set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6596 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6597 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6598 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6599 + "jmp\t[b,x]\t;tablejump_short_offset" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6600 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6601 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6602 +(define_insn "tablejump_long_offset" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6603 + [(set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6604 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6605 + (match_operand:HI 0 "register_operand" "d"))))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6606 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6607 + "jmp\t[d,x]\t;tablejump_long_offset" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6608 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6609 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6610 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6611 + ;; A tablejump operation gives the address in operand 0, with the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6612 + ;; CODE_LABEL for the table in operand 1. The 'define_expand' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6613 + ;; shows the arguments as GCC presents them. For a register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6614 + ;; operand, the assembly code is straightforward. For a MEM, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6615 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6616 + ;; and one for PIC mode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6617 + (define_expand "tablejump" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6618 + [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6619 + (set (pc) (match_operand:HI 0 "" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6620 + (use (label_ref (match_operand 1 "" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6621 + (clobber (match_scratch:HI 2 "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6622 + ])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6623 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6624 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6625 + }) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6626 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6627 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6628 +(define_insn "*tablejump_reg" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6629 + [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6630 + (set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6631 + (match_operand:HI 0 "register_operand" "a")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6632 + (use (label_ref (match_operand 1 "" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6633 + (clobber (match_scratch:HI 2 "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6634 + ])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6635 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6636 + "jmp\t,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6637 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6638 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6639 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6640 +(define_insn "*tablejump_symbol" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6641 + [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6642 + (set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6643 + (mem:HI |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6644 + (plus:HI (match_operand:HI 0 "register_operand" "a") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6645 + (label_ref (match_operand 1 "" ""))))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6646 + (use (label_ref (match_dup 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6647 + (clobber (match_scratch:HI 2 "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6648 + ])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6649 + "!flag_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6650 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6651 + output_asm_insn ("jmp\t[%a1,%0]", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6652 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6653 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6654 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6655 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6656 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6657 +(define_insn "*tablejump_symbol_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6658 + [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6659 + (set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6660 + (mem:HI |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6661 + (plus:HI (match_operand:HI 0 "register_operand" "d") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6662 + (label_ref (match_operand 1 "" ""))))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6663 + (use (label_ref (match_dup 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6664 + (clobber (match_scratch:HI 2 "=&a")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6665 + ])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6666 + "flag_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6667 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6668 + output_asm_insn ("lea%2\t%a1,pcr", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6669 + output_asm_insn ("ld%0\t%0,%2", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6670 + output_asm_insn ("jmp\t%0,%2", operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6671 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6672 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6673 + [(set_attr "length" "8")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6674 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6675 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6676 +(define_insn "indirect_jump" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6677 + [(set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6678 + (match_operand:HI 0 "register_operand" "a"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6679 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6680 + "jmp\t,%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6681 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6682 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6683 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6684 +(define_insn "jump" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6685 + [(set (pc) (label_ref (match_operand 0 "" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6686 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6687 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6688 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6689 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6690 + [(set (attr "type") (const_string "branch"))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6691 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6692 +; Output assembly for a condition branch instruction. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6693 +(define_insn "*cond_branch" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6694 + [(set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6695 + (if_then_else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6696 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6697 + (label_ref (match_operand 0 "" "")) (pc)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6698 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6699 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6700 + return output_branch_insn ( GET_CODE(operands[1]), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6701 + operands, get_attr_length (insn)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6702 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6703 + [(set (attr "type") (const_string "cbranch"))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6704 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6705 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6706 +; Similar to above, but for a condition branch instruction that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6707 +; had its operands reversed at some point. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6708 +(define_insn "*cond_branch_reverse" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6709 + [(set (pc) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6710 + (if_then_else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6711 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6712 + (pc) (label_ref (match_operand 0 "" ""))))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6713 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6714 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6715 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])), |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6716 + operands, get_attr_length (insn)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6717 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6718 + [(set (attr "type") (const_string "cbranch"))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6719 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6720 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6721 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6722 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6723 +;;- Calls |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6724 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6725 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6726 +;; Generate a call instruction for a function that does not |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6727 +;; return a value. The expander is used during RTL generation. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6728 +;; The instructions below are used during matching; only one |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6729 +;; of them will be used, depending on the type of function |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6730 +;; being called. The different conditions are: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6731 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6732 +;; 1) far_functionp - is this a far function? Those need |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6733 +;; to be output as indirect calls through a far-function |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6734 +;; handler. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6735 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6736 +;; 2) noreturn_functionp - if the function does not return, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6737 +;; we can use a 'jmp' instead of a 'jsr' to call it. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6738 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6739 +;; 3) is PIC mode enabled? If so, we'll always use |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6740 +;; relative calls (lbsr or lbra). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6741 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6742 +;; Note: not all combinations are fully supported, especially |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6743 +;; relating to PIC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6744 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6745 +;; The 'bsr' instruction is never generated. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6746 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6747 +(define_expand "call" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6748 + [(call (match_operand:HI 0 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6749 + (match_operand:HI 1 "general_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6750 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6751 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6752 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6753 +(define_insn "*call_nopic_far" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6754 + [(call (match_operand:HI 0 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6755 + (match_operand:HI 1 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6756 + "far_functionp (operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6757 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6758 + output_far_call_insn (operands, 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6759 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6760 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6761 + [(set_attr "length" "6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6762 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6763 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6764 +; PIC forms come first, and should only match |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6765 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6766 +(define_insn "*call_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6767 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6768 + (match_operand:HI 1 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6769 + "flag_pic && !noreturn_functionp (operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6770 + "lbsr\t%C0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6771 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6772 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6773 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6774 +(define_insn "*call_nopic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6775 + [(call (match_operand:HI 0 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6776 + (match_operand:HI 1 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6777 + "!noreturn_functionp (operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6778 + "jsr\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6779 + [(set_attr "length" "3") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6780 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6781 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6782 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6783 +(define_insn "*call_noreturn_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6784 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6785 + (match_operand:HI 1 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6786 + "flag_pic && noreturn_functionp (operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6787 + "lbra\t%C0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6788 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6789 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6790 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6791 +(define_insn "*call_noreturn_nopic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6792 + [(call (match_operand:HI 0 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6793 + (match_operand:HI 1 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6794 + "noreturn_functionp (operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6795 + "jmp\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6796 + [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6797 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6798 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6799 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6800 +;; Same as above, but for functions that do return a value. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6801 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6802 +(define_expand "call_value" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6803 + [(set (match_operand 0 "" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6804 + (call (match_operand:HI 1 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6805 + (match_operand:HI 2 "general_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6806 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6807 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6808 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6809 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6810 +(define_insn "*call_value_far" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6811 + [(set (match_operand 0 "" "=gz") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6812 + (call (match_operand:HI 1 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6813 + (match_operand:HI 2 "general_operand" "g")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6814 + "far_functionp (operands[1])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6815 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6816 + output_far_call_insn (operands, 1); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6817 + return ""; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6818 +} |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6819 + [(set_attr "length" "6")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6820 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6821 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6822 +(define_insn "*call_value_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6823 + [(set (match_operand 0 "" "=gz") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6824 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6825 + (match_operand:HI 2 "general_operand" "g")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6826 + "flag_pic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6827 + "lbsr\t%C1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6828 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6829 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6830 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6831 +(define_insn "*call_value_nopic" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6832 + [(set (match_operand 0 "" "=gz") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6833 + (call (match_operand:HI 1 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6834 + (match_operand:HI 2 "general_operand" "g")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6835 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6836 + "jsr\t%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6837 + [(set_attr "length" "3") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6838 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6839 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6840 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6841 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6842 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6843 +;; How to generate an untyped call. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6844 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6845 +(define_expand "untyped_call" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6846 + [(parallel [(call (match_operand 0 "" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6847 + (const_int 0)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6848 + (match_operand 1 "" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6849 + (match_operand 2 "" "")])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6850 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6851 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6852 + int i; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6853 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6854 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6855 + for (i=0; i < XVECLEN (operands[2], 0); i++) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6856 + { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6857 + rtx set = XVECEXP (operands[2], 0, i); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6858 + emit_move_insn (SET_DEST (set), SET_SRC (set)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6859 + } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6860 + emit_insn (gen_blockage ()); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6861 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6862 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6863 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6864 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6865 +(define_expand "sibcall" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6866 + [(parallel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6867 + [(call (match_operand:HI 0 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6868 + (match_operand:HI 1 "immediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6869 + (use (reg:HI HARD_PC_REGNUM))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6870 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6871 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6872 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6873 +(define_insn "*sibcall_1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6874 + [(parallel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6875 + [(call (match_operand:HI 0 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6876 + (match_operand:HI 1 "immediate_operand" "i")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6877 + (use (reg:HI HARD_PC_REGNUM))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6878 + "SIBLING_CALL_P(insn)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6879 + "jmp\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6880 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6881 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6882 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6883 +(define_expand "sibcall_value" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6884 + [(parallel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6885 + [(set (match_operand 0 "" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6886 + (call (match_operand:HI 1 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6887 + (match_operand:HI 2 "immediate_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6888 + (use (reg:HI HARD_PC_REGNUM))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6889 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6890 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6891 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6892 +(define_insn "*sibcall_value_1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6893 + [(parallel |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6894 + [(set (match_operand 0 "" "=gz") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6895 + (call (match_operand:HI 1 "memory_operand" "m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6896 + (match_operand:HI 2 "immediate_operand" "i"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6897 + (use (reg:HI HARD_PC_REGNUM))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6898 + "SIBLING_CALL_P(insn)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6899 + "jmp\t%1" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6900 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6901 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6902 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6903 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6904 +;;- Function Entry and Exit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6905 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6906 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6907 +;; On entry to a function, the stack frame looks as follows: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6908 +;; - return address (pushed by the caller) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6909 +;; - saved registers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6910 +;; - local variable storage |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6911 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6912 +;; If the function does not modify the stack after that, then |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6913 +;; any of these can be accessed directly as an offset from |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6914 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6915 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6916 +;; and all references to the stack frame will use that as a base instead. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6917 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6918 +(define_expand "prologue" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6919 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6920 + "prologue_epilogue_required ()" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6921 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6922 + emit_prologue_insns (); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6923 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6924 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6925 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6926 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6927 +;; The function epilogue does exactly the reverse of the prologue, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6928 +;; deallocating local variable space, restoring saved registers, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6929 +;; and returning. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6930 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6931 +;; For the 6809, the return may be 'rti' if the function was |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6932 +;; declared as an interrupt function, but is normally 'rts'. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6933 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6934 +;; Also, as an optimization, the register restore and the 'rts' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6935 +;; can be combined into a single instruction, by adding 'PC' to the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6936 +;; list of registers to be restored. This is only done if there are |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6937 +;; any saved registers, as 'rts' is more efficient by itself. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6938 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6939 +(define_expand "epilogue" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6940 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6941 + "prologue_epilogue_required ()" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6942 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6943 + emit_epilogue_insns (false); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6944 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6945 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6946 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6947 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6948 +(define_expand "sibcall_epilogue" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6949 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6950 + "prologue_epilogue_required ()" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6951 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6952 + emit_epilogue_insns (true); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6953 + DONE; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6954 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6955 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6956 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6957 +;; The RTS instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6958 +(define_insn "return_rts" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6959 + [(return) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6960 + (use (reg:HI HARD_PC_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6961 + "!m6809_current_function_has_type_attr_p (\"interrupt\") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6962 + && m6809_get_live_regs () == 0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6963 + "rts" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6964 + [(set_attr "length" "1") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6965 + (set (attr "cycles") (const_int RTS_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6966 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6967 +(define_insn "return_puls_pc" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6968 + [(return) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6969 + (use (reg:HI HARD_PC_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6970 + "!m6809_current_function_has_type_attr_p (\"interrupt\") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6971 + && m6809_get_live_regs () != 0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6972 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6973 + [(set_attr "length" "1") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6974 + (set (attr "cycles") (const_int RTS_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6975 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6976 +;; The RTI instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6977 +(define_insn "return_rti" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6978 + [(return) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6979 + (use (reg:HI HARD_PC_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6980 + "m6809_current_function_has_type_attr_p (\"interrupt\")" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6981 + "rti" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6982 + [(set_attr "length" "1") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6983 + (set (attr "cycles") (const_int RTI_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6984 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6985 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6986 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6987 +;;- Unspecified instructions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6988 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6989 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6990 +;; An instruction that has the effect of an unspec_volatile, but |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6991 +;; which doesn't require emitting any assembly code. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6992 +(define_insn "blockage" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6993 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6994 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6995 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6996 + [(set_attr "length" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6997 + (set (attr "cycles") (const_int 0))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6998 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6999 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7000 +;; Say how to push multiple registers onto the stack, using |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7001 +;; the 6809 'pshs' instruction. The operand is a regset |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7002 +;; specifying which registers to push. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7003 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7004 +;; The operand mode is not given intentionally, so as to allow |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7005 +;; any possible integer mode for the regset. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7006 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7007 +;; See below for a peephole that can combine consecutive push |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7008 +;; instructions that qualify for merging. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7009 +(define_insn "register_push" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7010 + [(use (reg:HI HARD_S_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7011 + (unspec_volatile |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7012 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7013 + (clobber (reg:HI HARD_S_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7014 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7015 + "pshs\t%R0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7016 + [(set_attr "length" "2") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7017 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7018 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7019 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7020 +;; Say how to pop multiple registers from the stack, using |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7021 +;; the 6809 'puls' instruction. The operand is the register |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7022 +;; bitset value. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7023 +(define_insn "register_pop" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7024 + [(use (reg:HI HARD_S_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7025 + (unspec_volatile |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7026 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7027 + (clobber (reg:HI HARD_S_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7028 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7029 + "puls\t%R0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7030 + [(set_attr "length" "2") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7031 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7032 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7033 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7034 +(define_insn "m6809_swi" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7035 + [(unspec_volatile |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7036 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7037 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7038 + "@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7039 + swi |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7040 + swi%c0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7041 + [(set_attr "length" "1,2") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7042 + (set (attr "cycles") (const_int SWI_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7043 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7044 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7045 +;; Generate the CWAI instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7046 +(define_insn "m6809_cwai" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7047 + [(unspec_volatile |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7048 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7049 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7050 + "cwai\t%0" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7051 + [(set_attr "length" "2") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7052 + (set (attr "cycles") (const_int CWAI_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7053 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7054 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7055 +;; Generate the SYNC instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7056 +(define_insn "m6809_sync" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7057 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7058 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7059 + "sync" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7060 + [(set_attr "length" "1") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7061 + (set (attr "cycles") (const_int SYNC_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7062 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7063 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7064 +;; Generate the NOP instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7065 +(define_insn "nop" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7066 + [(const_int 0)] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7067 + "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7068 + "nop" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7069 + [(set_attr "length" "1") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7070 + (set (attr "cycles") (const_int NOP_CYCLES))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7071 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7072 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7073 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7074 +;;- Peepholes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7075 +;;-------------------------------------------------------------------- |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7076 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7077 +;;; Each peephole has an ID that is used for debugging. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7078 +;;; Each peephole condition is bracketed by calls to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7079 +;;; m6809_match_peephole2() also for debugging. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7080 +(define_constants [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7081 + (PEEP_END 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7082 + (PEEP_COND 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7083 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7084 + (PEEP_STACK_STORE_INC 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7085 + (PEEP_STACK_CLEAR_INC 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7086 + (PEEP_LSRB_ADCB 2) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7087 + (PEEP_ABX 3) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7088 + (PEEP_ABX2 4) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7089 + (PEEP_INDEXED_INC 5) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7090 + (PEEP_MEM_DEC 6) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7091 + (PEEP_MEM_INC 7) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7092 + (PEEP_MEM_DEC_CMP 8) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7093 + (PEEP_PUSH2 9) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7094 + (PEEP_STORE_IMPLIES_CC 10) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7095 + (PEEP_DEC_IMPLIES_CC 11) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7096 + (PEEP_LEAB 12) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7097 + (PEEP_LDX_INDIRECT 13) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7098 + (PEEP_POP_JUNK 14) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7099 +]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7100 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7101 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7102 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7103 +;;; function prologue needs to allocate stack space and 'b' is placed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7104 +;;; into that local right away. Combine the stack allocation with the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7105 +;;; store using preincrement mode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7106 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7107 + [(set (reg:HI HARD_S_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7108 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7109 + (set (mem:QI (reg:HI HARD_S_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7110 + (match_operand:QI 0 "register_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7111 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7112 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7113 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7114 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7115 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7116 +;;; Same as above, but for a 'clr ,s' that follows the prologue. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7117 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7118 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7119 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7120 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7121 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7122 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7123 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7124 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7125 +;;; Merge two consecutive push instructions into a single register_push. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7126 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7127 + [(set (match_operand 0 "push_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7128 + (match_operand 1 "register_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7129 + (set (match_operand 2 "push_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7130 + (match_operand 3 "register_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7131 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7132 + && reload_completed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7133 + && GET_MODE (operands[1]) == GET_MODE (operands[3]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7134 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3])) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7135 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7136 + [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7137 + (use (reg:HI HARD_S_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7138 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7139 + (clobber (reg:HI HARD_S_REGNUM))]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7140 + (use (match_dup 1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7141 + (use (match_dup 3))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7142 +{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7143 + operands[4] = gen_rtx_CONST_INT (QImode, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7144 + (1 << REGNO (operands[1])) | (1 << REGNO (operands[3]))); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7145 +}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7146 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7147 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7148 +;;; Convert 'stX ,--s' into a push instruction. Use the regset |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7149 +;;; notation, so that it may be combined with an adjacent regset. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7150 +;;; TBD - this doesn't compile some code cleanly. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7151 +;(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7152 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7153 +; (reg:HI HARD_X_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7154 +; "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7155 +; [(parallel [ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7156 +; (use (reg:HI HARD_S_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7157 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7158 +; (clobber (reg:HI HARD_S_REGNUM))])] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7159 +;{ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7160 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7161 +;}) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7162 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7163 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7164 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7165 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7166 +;;; won't overflow when q=0xFF. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7167 +;;; TODO : this form isn't accounting for promotion when |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7168 +;;; using 16-bit ints. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7169 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7170 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7171 + [(set (reg:QI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7172 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7173 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7174 + "lsrb\;adcb\t#0; peephole" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7175 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7176 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7177 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7178 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7179 +;; Optimize the case of following a register store with a test |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7180 +;; of reg or mem just moved. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7181 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7182 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7183 + [(set (match_operand:HI 0 "memory_operand" "=m") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7184 + (match_operand:HI 1 "register_operand" "r")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7185 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7186 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7187 + && (operands[2] == operands[0] || operands[2] == operands[1]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7188 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7189 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7190 + [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7191 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7192 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7193 +;; Optimize a pair of SET instructions in which the second insn |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7194 +;; is the reverse of the first one. I.e. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7195 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7196 +;; A = B |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7197 +;; ----> A = B |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7198 +;; B = A |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7199 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7200 +;; The second insn is redundant. Define two patterns, one for QI, one for HI. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7201 +;; But don't do this if either is a VOLATILE MEM. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7202 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7203 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7204 + (match_operand:HI 1 "nonimmediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7205 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7206 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7207 + [(set (match_dup 0) (match_dup 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7208 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7209 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7210 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7211 + [(set (match_operand:QI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7212 + (match_operand:QI 1 "nonimmediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7213 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7214 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7215 + [(set (match_dup 0) (match_dup 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7216 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7217 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7218 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7219 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7220 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7221 +;; if B and X can be used. Two patterns are provided to catch both |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7222 +;; X=X+D and X=D+X. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7223 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7224 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7225 + [(set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7226 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7227 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7228 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7229 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7230 + "abx" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7231 + [(set_attr "length" "1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7232 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7233 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7234 + [(set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7235 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7236 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7237 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7238 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7239 + "abx" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7240 + [(set_attr "length" "1")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7241 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7242 +;;; Likewise, handle when B is scaled by 2 prior to the add. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7243 +;;; Instead of shifting B in 4 cycles, just do the ABX a second |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7244 +;;; time, in only 3 cycles. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7245 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7246 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7247 + [(set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7248 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7249 + (set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7250 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7251 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7252 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7253 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7254 + "abx\;abx" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7255 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7256 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7257 +(define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7258 + [(set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7259 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7260 + (set (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7261 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7262 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7263 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7264 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7265 + "abx\;abx" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7266 + [(set_attr "length" "2")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7267 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7268 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7269 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7270 +;; Work around a compiler bug that generates bad code when copying |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7271 +;; between 32-bit memory addresses after a libcall. The problem seen is |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7272 +;; that the source is MEM (REG X), but X is used as the reload register. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7273 +;; The second half of the copy therefore fails. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7274 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7275 +;; The solution is to switch the reload register to D, since that is guaranteed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7276 +;; not to be in use right after a libcall. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7277 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7278 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7279 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7280 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7281 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7282 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7283 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7284 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7285 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7286 + (set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7287 + (set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7288 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7289 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7290 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7291 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7292 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7293 +;; Turn "and then test" into a "bit test" operation. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7294 +;; Provide variants for immediate and memory sources |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7295 +;; This is the most used peephople. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7296 +; (define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7297 +; [(set (match_operand:QI 0 "register_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7298 +; (and:QI (match_operand:QI 1 "register_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7299 +; (match_operand:QI 2 "immediate_operand" "i"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7300 +; (set (cc0) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7301 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7302 +; "bit%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7303 +; [(set_attr "length" "3")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7304 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7305 +; (define_peephole |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7306 +; [(set (match_operand:QI 0 "register_operand" "=q") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7307 +; (and:QI (match_operand:QI 1 "register_operand" "0") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7308 +; (match_operand:QI 2 "memory_operand" "m"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7309 +; (set (cc0) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7310 +; "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7311 +; "bit%0\t%2" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7312 +; [(set_attr "length" "4")]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7313 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7314 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7315 +;; Turn a "decrement, then test" sequence into just a "decrement". |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7316 +;; The test can be omitted, since it is implicitly done. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7317 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7318 + [(set (match_operand:QI 0 "nonimmediate_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7319 + (plus:QI (match_operand:QI 1 "whole_general_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7320 + (match_operand:QI 2 "immediate_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7321 + (set (cc0) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7322 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7323 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7324 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7325 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7326 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7327 +;; Merge an indexed register increment with a previous usage. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7328 +;; This is usually done automatically, but not always |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7329 +;; The 'use' should be optional; in all cases where this has been |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7330 +;; seen, it is required though. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7331 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7332 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7333 + (mem:QI (match_operand:HI 1 "index_register_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7334 + (use (match_dup 0)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7335 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7336 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7337 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1)))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7338 + (use (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7339 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7340 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7341 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7342 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7343 +;;; the indirect mode. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7344 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7345 + [(set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7346 + (mem:HI (match_operand:HI 0 "general_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7347 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7348 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7349 + [(set (reg:HI HARD_X_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7350 + (mem:HI (mem:HI (match_dup 0))))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7351 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7352 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7353 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7354 +;;; Reorder a store followed by a unary operation on that memory |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7355 +;;; so that the unary is performed and then the store. Consider |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7356 +;;; a binary shift operation, which will be decomposed into |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7357 +;;; identical single shifts, also. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7358 +;;; TODO - recognize more than just 'ashift' here. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7359 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7360 + [(set (match_operand:QI 0 "memory_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7361 + (match_operand:QI 1 "register_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7362 + (set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7363 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7364 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7365 + [(set (match_dup 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7366 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7367 + (set (match_dup 0) (match_dup 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7368 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7369 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7370 +;;; Likewise, reorder a unary MEM followed by a load, so that the load |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7371 +;;; is done first, then use the REG instead of the MEM. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7372 +;;;(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7373 +;;; [(set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7374 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7375 +;;; (set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7376 +;;; (match_operand:QI 1 "memory_operand" ""))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7377 +;;; "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7378 +;;; [(set (match_dup 0) (match_dup 1)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7379 +;;; (set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7380 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7381 +;;; "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7382 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7383 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7384 +;;; Replace sex; leaX d,Y with leaX b,Y. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7385 +;;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7386 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7387 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7388 + (set (match_operand:HI 0 "index_register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7389 + (plus:HI (match_operand:HI 1 "index_register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7390 + (reg:HI HARD_D_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7391 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7392 + [(set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7393 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7394 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7395 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7396 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7397 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7398 + (set (match_operand:HI 0 "index_register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7399 + (plus:HI (reg:HI HARD_D_REGNUM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7400 + (match_operand:HI 1 "index_register_operand" "")))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7401 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7402 + [(set (match_dup 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7403 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7404 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7405 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7406 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7407 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7408 +;;; register is not needed, then the load will get deleted |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7409 +;;; automatically, but it may be needed for comparisons. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7410 +;;; Same for incb/inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7411 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7412 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7413 + (match_operand:QI 1 "nonimmediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7414 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7415 + (set (match_dup 1) (match_dup 0)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7416 + (set (cc0) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7417 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7418 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7419 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7420 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7421 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7422 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7423 +;;; register is not needed, then the load will get deleted |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7424 +;;; automatically, but it may be needed for comparisons. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7425 +;;; Same for incb/inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7426 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7427 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7428 + (match_operand:QI 1 "nonimmediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7429 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7430 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7431 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7432 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7433 + (set (match_dup 0) (match_dup 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7434 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7435 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7436 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7437 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7438 + (match_operand:QI 1 "nonimmediate_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7439 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7440 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7441 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7442 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7443 + (set (match_dup 0) (match_dup 1))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7444 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7445 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7446 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7447 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7448 +;;; that the branch can never occur because of the limited range of B. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7449 +;;; N must be a power of two for this to make sense. This helps with |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7450 +;;; the default cases of switch statements on a value (x & N). |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7451 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7452 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7453 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7454 + (set (cc0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7455 + (compare (match_dup 0) (match_dup 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7456 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7457 + ] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7458 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7459 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7460 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7461 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7462 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7463 +;;; of the mem, but only if D is dead. Same for 16-bit decrement. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7464 +;;; <mem> must be offsettable for the instruction to match. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7465 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7466 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7467 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7468 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7469 + "reload_completed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7470 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7471 + && peep2_reg_dead_p (3, operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7472 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7473 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7474 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7475 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7476 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" "")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7477 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7478 + (set (match_dup 1) (match_dup 0))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7479 + "reload_completed |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7480 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7481 + && peep2_reg_dead_p (3, operands[0])" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7482 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7483 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7484 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7485 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7486 +;;; Replace a load or store using an indexed register, followed by an increment of that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7487 +;;; register, with the combined form using autoincrement. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7488 +(define_peephole2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7489 + [(set (match_operand:QI 0 "register_operand" "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7490 + (mem:QI (match_operand:HI 1 "index_register_operand" ""))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7491 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7492 + "reload_completed" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7493 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))] |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7494 + "") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7495 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7496 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7497 +;;- mode:emacs-lisp |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7498 +;;- comment-start: ";;- " |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7499 +;;- eval: (set-syntax-table (copy-sequence (syntax-table))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7500 +;;- eval: (modify-syntax-entry ?[ "(]") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7501 +;;- eval: (modify-syntax-entry ?] ")[") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7502 +;;- eval: (modify-syntax-entry ?{ "(}") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7503 +;;- eval: (modify-syntax-entry ?} "){") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7504 +;-; vim: set ts=2: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7505 +;-; vim: set expandtab: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7506 +;-; vim: set filetype=lisp: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7507 +;;- End: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7508 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7509 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7510 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7511 @@ -0,0 +1,98 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7512 +; Options for the M6809 port of the compiler |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7513 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7514 +; Copyright (C) 2005 Free Software Foundation, Inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7515 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7516 +; This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7517 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7518 +; GCC is free software; you can redistribute it and/or modify it under |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7519 +; the terms of the GNU General Public License as published by the Free |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7520 +; Software Foundation; either version 2, or (at your option) any later |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7521 +; version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7522 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7523 +; GCC is distributed in the hope that it will be useful, but WITHOUT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7524 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7525 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7526 +; License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7527 +; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7528 +; You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7529 +; along with GCC; see the file COPYING. If not, write to the Free |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7530 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7531 +; 02110-1301, USA. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7532 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7533 +margcount |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7534 +Target Mask(ARGCOUNT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7535 +Push argument count |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7536 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7537 +mint8 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7538 +Target RejectNegative Mask(BYTE_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7539 +Use 8-bit integers |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7540 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7541 +mint16 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7542 +Target RejectNegative |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7543 +Use 16-bit integers InverseMask(BYTE_INT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7544 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7545 +mreg-args |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7546 +Target Mask(REG_ARGS) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7547 +Use registers for function arguments |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7548 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7549 +mshort_size |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7550 +Target RejectNegative Mask(SMALL_SIZE_T) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7551 +Use 8-bit size_t |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7552 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7553 +mlong_size |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7554 +Target RejectNegative InverseMask(SMALL_SIZE_T) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7555 +Use 16-bit size_t |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7556 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7557 +mdirect |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7558 +Target Mask(DIRECT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7559 +Enable direct addressing |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7560 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7561 +mwpc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7562 +Target RejectNegative Mask(WPC) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7563 +Enable WPC platform extensions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7564 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7565 +mexperiment |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7566 +Target RejectNegative Mask(EXPERIMENT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7567 +Enable current experimental feature |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7568 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7569 +m6309 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7570 +Target RejectNegative Mask(6309) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7571 +Enable Hitachi 6309 extensions |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7572 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7573 +mcasesi |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7574 +Target RejectNegative Mask(CASESI) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7575 +Enable the casesi pattern |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7576 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7577 +mfar-code-page= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7578 +Target RejectNegative Joined Var(far_code_page_option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7579 +Sets the far code page value for this compilation unit |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7580 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7581 +mcode-section= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7582 +Target RejectNegative Joined Var(code_section_ptr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7583 +Sets the name of the section for code |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7584 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7585 +mdata-section= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7586 +Target RejectNegative Joined Var(data_section_ptr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7587 +Sets the name of the section for initialized data |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7588 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7589 +mbss-section= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7590 +Target RejectNegative Joined Var(bss_section_ptr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7591 +Sets the name of the section for uninitialized data |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7592 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7593 +mabi_version= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7594 +Target RejectNegative Joined Var(m6809_abi_version_ptr) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7595 +Sets the calling convention |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7596 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7597 +msoft-reg-count= |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7598 +Target RejectNegative Joined Var(m6809_soft_reg_count) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7599 +Sets the number of soft registers that can be used |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7600 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7601 +mdret |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7602 +Target RejectNegative Mask(DRET) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7603 +Put function call results in D, not X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7604 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7605 +mfar-stack-param |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7606 +Target Mask(FAR_STACK_PARAM) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7607 +Enable stack parameters to a farcall |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7608 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7609 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7610 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7611 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7612 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7613 @@ -0,0 +1,94 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7614 +/* GCC for 6809 : machine-specific function prototypes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7615 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7616 +This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7617 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7618 +GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7619 +it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7620 +the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7621 +any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7622 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7623 +GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7624 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7625 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7626 +GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7627 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7628 +You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7629 +along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7630 +<http://www.gnu.org/licenses/>. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7631 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7632 +#ifndef __M6809_PROTOS_H__ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7633 +#define __M6809_PROTOS_H__ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7634 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7635 +void print_options (FILE *file); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7636 +void m6809_cpu_cpp_builtins (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7637 +void m6809_override_options (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7638 +void m6809_init_builtins (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7639 +unsigned int m6809_get_live_regs (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7640 +const char * m6809_get_regs_printable (unsigned int regs); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7641 +unsigned int m6809_get_regs_size (unsigned int regs); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7642 +int m6809_function_has_type_attr_p (tree decl, const char *); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7643 +int m6809_current_function_has_type_attr_p (const char *); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7644 +int prologue_epilogue_required (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7645 +int noreturn_functionp (rtx x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7646 +void output_function_prologue (FILE *file, int size); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7647 +void output_function_epilogue (FILE *file, int size); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7648 +int check_float_value (enum machine_mode mode, double *d, int overflow); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7649 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7650 +void m6809_asm_file_start (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7651 +void m6809_output_ascii (FILE *fp, const char *str, unsigned long size); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7652 +void m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7653 +void m6809_reorg (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7654 +int m6809_current_function_is_void (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7655 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7656 +int m6809_function_value_regno_p (unsigned int regno); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7657 +void emit_prologue_insns (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7658 +void emit_epilogue_insns (bool); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7659 +void m6809_conditional_register_usage (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7660 +void m6809_output_quoted_string (FILE *asm_file, const char *string); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7661 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7662 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7663 +int power_of_two_p (unsigned int n); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7664 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7665 +void m6809_output_addsi3 (int rtx_code, rtx *operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7666 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7667 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7668 +int m6809_single_operand_operator (rtx exp); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7669 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7670 +#ifdef TREE_CODE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7671 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7672 +#endif /* TREE_CODE */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7673 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7674 +#ifdef RTX_CODE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7675 +void print_direct_prefix (FILE *file, rtx addr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7676 +void print_operand (FILE *file, rtx x, int code); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7677 +void print_operand_address (FILE *file, rtx addr); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7678 +void notice_update_cc (rtx exp, rtx insn); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7679 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7680 +rtx gen_rtx_const_high (rtx r); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7681 +rtx gen_rtx_const_low (rtx r); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7682 +rtx gen_rtx_register_pushpop (int pop_flag, int regs); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7683 +void emit_libcall_insns (enum machine_mode mode, const char *name, rtx *operands, int count); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7684 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7685 +void output_far_call_insn (rtx *operands, int has_return); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7686 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7687 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7688 +const char * far_functionp (rtx x); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7689 +rtx m6809_function_value (const tree valtype, const tree func); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7690 +void m6809_output_shift_insn (int rtx_code, rtx *operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7691 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7692 +const char * m6809_get_decl_bank (tree decl); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7693 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7694 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7695 +const char * far_function_type_p (tree type); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7696 +void m6809_asm_trampoline_template(FILE *f); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7697 +bool m6809_frame_pointer_required (void); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7698 +int m6809_can_eliminate (int from, int to); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7699 +int m6809_initial_elimination_offset (int from, int to); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7700 +void m6809_emit_move_insn (rtx dst, rtx src); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7701 +void m6809_split_shift (enum rtx_code code, rtx *operands); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7702 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7703 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7704 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7705 +#endif /* RTX_CODE */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7706 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7707 +#endif /* __M6809_PROTOS_H__ */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7708 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7709 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7710 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7711 @@ -0,0 +1,78 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7712 +;; Predicate definitions for Motorola 6809 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7713 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7714 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7715 +;; This file is part of GCC. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7716 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7717 +;; GCC is free software; you can redistribute it and/or modify |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7718 +;; it under the terms of the GNU General Public License as published by |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7719 +;; the Free Software Foundation; either version 3, or (at your option) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7720 +;; any later version. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7721 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7722 +;; GCC is distributed in the hope that it will be useful, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7723 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7724 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7725 +;; GNU General Public License for more details. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7726 +;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7727 +;; You should have received a copy of the GNU General Public License |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7728 +;; along with GCC; see the file COPYING3. If not see |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7729 +;; <http://www.gnu.org/licenses/>. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7730 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7731 +;; whole_register_operand is like register_operand, but it |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7732 +;; does not allow SUBREGs. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7733 +(define_predicate "whole_register_operand" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7734 + (and (match_code "reg") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7735 + (match_operand 0 "register_operand"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7736 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7737 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7738 +;; A predicate that matches any index register. This can be used in nameless |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7739 +;; patterns and peepholes which need a 16-bit reg, but not D. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7740 +(define_predicate "index_register_operand" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7741 + (and (match_code "reg") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7742 + (match_test "REGNO (op) == HARD_X_REGNUM || REGNO (op) == HARD_Y_REGNUM || REGNO (op) == HARD_U_REGNUM"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7743 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7744 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7745 +;; match only X |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7746 +(define_predicate "register_operand_x" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7747 + (and (match_code "reg") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7748 + (match_test "REGNO (op) == HARD_X_REGNUM"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7749 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7750 +;; match only D |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7751 +(define_predicate "register_operand_d" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7752 + (and (match_code "reg") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7753 + (match_test "REGNO (op) == HARD_D_REGNUM"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7754 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7755 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7756 +;; Likwise, a replacement for general_operand which excludes |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7757 +;; SUBREGs. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7758 +(define_predicate "whole_general_operand" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7759 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7760 + (match_operand 0 "general_operand"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7761 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7762 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7763 +(define_predicate "add_general_operand" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7764 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7765 + (match_operand 0 "general_operand") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7766 + (match_test "REGNO (op) != SOFT_AP_REGNUM"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7767 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7768 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7769 +(define_predicate "shift_count_operand" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7770 + (and (match_code "const_int") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7771 + (and (match_operand 0 "const_int_operand") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7772 + (match_test "INTVAL (op) == 1 || INTVAL (op) == 8")))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7773 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7774 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7775 +;; A predicate that matches any bitwise logical operator. This |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7776 +;; allows for a single RTL pattern to be used for multiple operations. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7777 +(define_predicate "logical_bit_operator" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7778 + (ior (match_code "and") (match_code "ior") (match_code "xor"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7779 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7780 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7781 +;; A predicate that matches any shift or rotate operator. This |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7782 +;; allows for a single RTL pattern to be used for multiple operations. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7783 +(define_predicate "shift_rotate_operator" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7784 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7785 + (match_code "rotate") (match_code "rotatert"))) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7786 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7787 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7788 +(define_predicate "symbolic_operand" (match_code "symbol_ref")) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7789 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7791 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7792 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7793 @@ -0,0 +1,6 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7794 +# For a few minor differences in code generation on the CoCo... |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7795 +T_CFLAGS = -DTARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7796 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7797 +# For doing the startup differently on the CoCo... |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7798 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7799 +# vim: set filetype=make: |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7800 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7801 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7802 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7803 @@ -0,0 +1,64 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7804 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7805 +# ranlib doesn't exist, so define it to 'true' to make it a no-op |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7806 +RANLIB_FOR_TARGET = true |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7807 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7808 +# Stubs for libgcc defined by m6809 are here |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7809 +LIB1ASMSRC = m6809/libgcc1.s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7810 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7811 +# Here are the functions that are implemented within libgcc1.s |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7812 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7813 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7814 + _ashlhi3 _ashrhi3 _lshrhi3 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7815 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7816 +# Flags to use when building libgcc. IN_GCC does not seem necessary, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7817 +# although the compile breaks without it. -DDF=SF is required to set |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7818 +# the size of "double" to the same as the size of a "float". |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7819 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7820 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7821 +LIB2ADDEH = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7822 +LIB2ADDEHSTATIC = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7823 +LIB2ADDEHSHARED = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7824 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7825 +LIBGCC2_DEBUG_CFLAGS = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7826 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7827 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7828 +# Multilib information |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7829 +# This creates multiple versions of libgcc.a for each set of incompatible |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7830 +# -mxxx options. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7831 +MULTILIB_OPTIONS = fpic mdret |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7832 +MULTILIB_DIRNAMES = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7833 +MULTILIB_MATCHES = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7834 +MULTILIB_EXCEPTIONS = |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7835 +EXTRA_MULTILIB_PARTS = crt0.o |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7836 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7837 +LIBGCC = stmp-multilib |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7838 +INSTALL_LIBGCC = install-multilib |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7839 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7840 +# We want fine grained libraries, so use the new code to build the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7841 +# floating point emulation libraries. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7842 +FPBIT = fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7843 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7844 +fp-bit.c: $(srcdir)/config/fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7845 + echo '#define FLOAT' > fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7846 + echo '#define FLOAT_ONLY' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7847 + echo '#define CMPtype HItype' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7848 + echo '#define SMALL_MACHINE' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7849 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7850 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7851 + echo '#endif' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7852 + echo '#define DI SI' >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7853 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7854 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7855 +# crt0.o is built from the following source file |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7856 +CRT0_S = $(srcdir)/config/m6809/crt0.S |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7857 +MCRT0_S = $(srcdir)/config/m6809/crt0.S |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7858 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7859 +# Flags to use when building crt0.o |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7860 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7861 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7862 +# Assemble startup files. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7863 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7864 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7865 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7866 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7867 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7868 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7869 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7870 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7871 @@ -0,0 +1 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7872 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7873 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7874 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7875 +++ gcc-4.6.4/gcc/config.gcc 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7876 @@ -375,6 +375,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7877 cpu_type=m32r |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7878 extra_options="${extra_options} g.opt" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7879 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7880 +m6809-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7881 + cpu_type=m6809 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7882 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7883 m68k-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7884 extra_headers=math-68881.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7885 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7886 @@ -1706,6 +1709,12 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7887 thread_file='posix' |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7888 fi |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7889 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7890 +m6809-coco-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7891 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7892 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7893 +m6809-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7894 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7895 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7896 # m68hc11 and m68hc12 share the same machine description. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7897 m68hc11-*-*|m6811-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7898 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7899 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7900 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7901 +++ gcc-4.6.4/gcc/gcse.c 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7902 @@ -833,7 +833,6 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7903 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7904 if (max_distance == 0) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7905 return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7906 - |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7907 gcc_assert (max_distance > 0); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7908 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7909 else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7910 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7911 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7912 +++ gcc-4.6.4/gcc/libgcc2.c 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7913 @@ -485,6 +485,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7914 #endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7915 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7916 #ifdef L_bswapsi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7917 +#if MIN_UNITS_PER_WORD > 1 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7918 SItype |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7919 __bswapsi2 (SItype u) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7920 { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7921 @@ -494,7 +495,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7922 | (((u) & 0x000000ff) << 24)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7923 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7924 #endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7925 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7926 #ifdef L_bswapdi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7927 +#if LONG_LONG_TYPE_SIZE > 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7928 DItype |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7929 __bswapdi2 (DItype u) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7930 { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7931 @@ -508,6 +511,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7932 | (((u) & 0x00000000000000ffull) << 56)); |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7933 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7934 #endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7935 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7936 #ifdef L_ffssi2 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7937 #undef int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7938 int |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7939 @@ -1280,7 +1284,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7940 UDWtype |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7941 __fixunssfDI (SFtype a) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7942 { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7943 -#if LIBGCC2_HAS_DF_MODE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7944 +#if LIBGCC2_HAS_DF_MODE || (FLT_MANT_DIG >= W_TYPE_SIZE) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7945 /* Convert the SFtype to a DFtype, because that is surely not going |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7946 to lose any bits. Some day someone else can write a faster version |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7947 that avoids converting to DFtype, and verify it really works right. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7948 @@ -1298,7 +1302,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7949 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7950 /* Assemble result from the two parts. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7951 return ((UDWtype) hi << W_TYPE_SIZE) | lo; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7952 -#elif FLT_MANT_DIG < W_TYPE_SIZE |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7953 +#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7954 if (a < 1) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7955 return 0; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7956 if (a < Wtype_MAXp1_F) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7957 @@ -1334,8 +1338,6 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7958 return (DWtype)counter << shift; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7959 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7960 return -1; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7961 -#else |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7962 -# error |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7963 #endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7964 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7965 #endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7966 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7967 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7968 +++ gcc-4.6.4/gcc/longlong.h 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7969 @@ -528,6 +528,11 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7970 : "cbit") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7971 #endif /* __M32R__ */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7972 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7973 +#if defined (__m6309__) || defined (__m6809__) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7974 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7975 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7976 +#endif |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7977 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7978 #if defined (__mc68000__) && W_TYPE_SIZE == 32 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7979 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7980 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7981 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7982 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7983 +++ gcc-4.6.4/gcc/Makefile.in 2015-07-20 19:44:52.770843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7984 @@ -2003,14 +2003,14 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7985 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7986 # Compile the start modules crt0.o and mcrt0.o that are linked with |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7987 # every program |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7988 -$(T)crt0.o: s-crt0 ; @true |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7989 -$(T)mcrt0.o: s-crt0; @true |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7990 +crt0.o: s-crt0 ; @true |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7991 +mcrt0.o: s-crt0; @true |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7992 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7993 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7994 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7995 - -o $(T)crt0.o -c $(CRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7996 + -o crt0.o -c $(CRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7997 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7998 - -o $(T)mcrt0.o -c $(MCRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7999 + -o mcrt0.o -c $(MCRT0_S) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8000 $(STAMP) s-crt0 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8001 # |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8002 # Compiling object files from source files. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8003 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8004 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8005 +++ gcc-4.6.4/gcc/opth-gen.awk 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8006 @@ -121,7 +121,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8007 END { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8008 print "/* This file is auto-generated by opth-gen.awk. */" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8009 print "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8010 -print "#ifndef OPTIONS_H" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8011 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8012 print "#define OPTIONS_H" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8013 print "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8014 print "#include \"flag-types.h\"" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8015 @@ -432,18 +432,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8016 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8017 for (i = 0; i < n_opts; i++) { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8018 opt = opt_args("InverseMask", flags[i]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8019 - if (opt ~ ",") { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8020 - vname = var_name(flags[i]) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8021 - macro = "OPTION_" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8022 - mask = "OPTION_MASK_" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8023 - if (vname == "") { |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8024 - vname = "target_flags" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8025 - macro = "TARGET_" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8026 - mask = "MASK_" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8027 - } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8028 - print "#define " macro nth_arg(1, opt) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8029 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8030 - } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8031 + if (opt ~ ",") |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8032 + print "#define TARGET_" nth_arg(1, opt) \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8033 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8034 } |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8035 print "" |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8036 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8037 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8038 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8039 +++ gcc-4.6.4/gcc/tree.h 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8040 @@ -3563,6 +3563,8 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8041 TI_UINTDI_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8042 TI_UINTTI_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8043 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8044 + TI_UINT8_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8045 + TI_UINT16_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8046 TI_UINT32_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8047 TI_UINT64_TYPE, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8048 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8049 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8050 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8051 +++ gcc-4.6.4/gcc/version.c 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8052 @@ -21,16 +21,16 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8053 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8054 /* This is the location of the online document giving instructions for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8055 reporting bugs. If you distribute a modified version of GCC, |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8056 - please configure with --with-bugurl pointing to a document giving |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8057 - instructions for reporting bugs to you, not us. (You are of course |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8058 - welcome to forward us bugs reported to you, if you determine that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8059 - they are not bugs in your modifications.) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8060 + please change this to refer to a document giving instructions for |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8061 + reporting bugs to you, not us. (You are of course welcome to |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8062 + forward us bugs reported to you, if you determine that they are |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8063 + not bugs in your modifications.) */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8064 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8065 -const char bug_report_url[] = BUGURL; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8066 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8067 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8068 /* The complete version string, assembled from several pieces. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8069 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8070 Makefile. */ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8071 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8072 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8073 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw)"; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8074 const char pkgversion_string[] = PKGVERSION; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8075 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8076 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8077 +++ gcc-4.6.4/libgcc/config.host 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8078 @@ -371,6 +371,8 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8079 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8080 m32rle-*-linux*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8081 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8082 +m6809*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8083 + ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8084 m68hc11-*-*|m6811-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8085 ;; |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8086 m68hc12-*-*|m6812-*-*) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8087 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8088 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8089 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8090 @@ -23,7 +23,7 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8091 #$(info $o$(objext): -DL$($o-label) $($o-opt)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8092 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8093 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8094 - $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8095 + $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8096 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8097 ifeq ($(enable_shared),yes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8098 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8099 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8100 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8101 +++ gcc-4.6.4/libgcc/Makefile.in 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8102 @@ -374,8 +374,8 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8103 # Build lib2funcs. For the static library also include LIB2FUNCS_ST. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8104 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8105 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8106 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8107 - $(vis_hide) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8108 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8109 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8110 libgcc-objects += $(lib2funcs-o) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8111 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8112 ifeq ($(enable_shared),yes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8113 @@ -410,8 +410,9 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8114 # Build LIB2_DIVMOD_FUNCS. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8115 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8116 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8117 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8118 - -fexceptions -fnon-call-exceptions $(vis_hide) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8119 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8120 + $(gcc_compile) -DL$* -c $*.c \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8121 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8122 libgcc-objects += $(lib2-divmod-o) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8123 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8124 ifeq ($(enable_shared),yes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8125 @@ -443,7 +444,8 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8126 ifneq ($(FPBIT),) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8127 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8128 $(fpbit-o): %$(objext): $(FPBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8129 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8130 + ln -sf $(FPBIT) $*.c && \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8131 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8132 libgcc-objects += $(fpbit-o) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8133 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8134 ifeq ($(enable_shared),yes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8135 @@ -458,7 +460,8 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8136 ifneq ($(DPBIT),) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8137 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS)) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8138 $(dpbit-o): %$(objext): $(DPBIT) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8140 + ln -sf $(DPBIT) $*.c && \ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8142 libgcc-objects += $(dpbit-o) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8143 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8144 ifeq ($(enable_shared),yes) |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8145 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8146 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8147 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600 |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8148 @@ -0,0 +1,14 @@ |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8149 +This is a port of gcc6809 which is designed to work with the lwtools |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8150 +cross-assembler and linker package. You will need several scripts from that |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8151 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8152 +this. Instructions for building are present in the lwtools package. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8153 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8154 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8155 +Dominy (brian@oddchange.com) with some significant renovations to make it |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8156 +work with gcc 4.6.1. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8157 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8158 +There is no guarantee that it will work for any particular purpose you |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8159 +choose to put it to. |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8160 + |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8161 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT |
b4d0eafc5bfe
Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8162 +contact the main GCC developers! |