Mercurial > hg > index.cgi
annotate extra/gcc6809lw-4.6.4-3.patch @ 409:c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
An updated version of the gcc6809 patch is provided. This update removes
some incompatible syntax left over from the original gcc6809 patch that used
as6809. It was doing something that doesn't work with lwtools anyway.
Namely, trying to use the assembler to set the layout used by the linker.
Now thats all back to front when you think about it.
With this update, it is now possible to use the "as" wrapper with
--pragma=newsource enabled and be able to pass assembly code through the C
preprocessor without worrying about extraneous spaces causing problems.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Thu, 03 Mar 2016 22:33:40 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
|
409
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4 @@ -313,7 +313,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5 c6x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6 basic_machine=tic6x-unknown |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
10 # Motorola 68HC11/12. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
11 basic_machine=$basic_machine-unknown |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
12 os=-none |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
13 @@ -354,7 +354,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
14 | i*86-* | i860-* | i960-* | ia64-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
15 | ip2k-* | iq2000-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
16 | lm32-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
17 - | m32c-* | m32r-* | m32rle-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
18 + | m32c-* | m32r-* | m32rle-* | m6809-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
19 | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
20 | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
21 | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
22 @@ -509,6 +509,10 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
23 basic_machine=arm-unknown |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
24 os=-cegcc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
25 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
26 + coco) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
27 + basic_machine=coco |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
28 + os=-none |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
29 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
30 convex-c1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
31 basic_machine=c1-convex |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
32 os=-bsd |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
36 @@ -3439,6 +3439,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
37 m32r-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
38 noconfigdirs="$noconfigdirs ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
39 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
40 + m6809*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
42 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
43 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
45 libgloss_dir=m68hc11 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
49 @@ -885,6 +885,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
50 m32r-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
51 noconfigdirs="$noconfigdirs ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
52 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
53 + m6809*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
55 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
56 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
58 libgloss_dir=m68hc11 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
62 @@ -2561,7 +2561,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
63 call sequence. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
64 Also do the adjustments before a throwing call, otherwise |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
65 exception handling can fail; PR 19225. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
66 - if (pending_stack_adjust >= 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
67 + if (pending_stack_adjust >= 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
68 || (pending_stack_adjust > 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
69 && (flags & ECF_MAY_BE_ALLOCA)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
70 || (pending_stack_adjust > 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
74 @@ -0,0 +1,173 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
75 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
77 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
78 +;;; This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
79 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
80 +;;; GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
81 +;;; it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
82 +;;; the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
83 +;;; any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
84 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
85 +;;; GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
88 +;;; GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
89 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
90 +;;; You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
91 +;;; along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
92 +;;; <http://www.gnu.org/licenses/>. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
93 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
94 + /* Declare external for main() */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
95 + .globl _main |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
96 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
97 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
98 +/* The startup is heavily dependent on the type of machine and |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
99 +OS environment that is available at the start point. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
100 +For the most part, the general idea is the same across machines, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
101 +but the implementation is vastly different. This is managed via |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
102 +conditional compiles throughout the startup code for each of the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
103 +supported machines. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
104 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
105 +#ifdef TARGET_COCO /* CoCo memory map */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
106 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
107 +#define COCO_RAMROM_MODE 0xFFDE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
108 +#define COCO_ALLRAM_MODE 0xFFDF |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
109 +#define COCO_PAGE1 0xFFD5 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
110 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
111 +/* SAM M1 and M0 adjusts the memory size */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
112 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
113 +#define BASIC_WARMSTART_FLAG 0x0071 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
114 +#define BASIC_START 0xA027 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
115 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
116 +#define __STACK_TOP 0x6800 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
117 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
118 +#else /* Simulator (default) memory map */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
119 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
120 +#define SIM_EXIT_REG 0xFF01 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
121 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
122 +#define __STACK_TOP 0xFE00 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
123 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
124 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
125 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
126 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
127 + .area .data |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
128 + .area .ctors |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
129 + .area .dtors |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
130 + .area .bss |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
131 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
133 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
134 + ;;; __exit : Exit point from the program |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
135 + ;;; For simulation, this writes to a special I/O register that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
136 + ;;; the simulator interprets as end-of-program. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
137 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
139 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
140 + .globl __exit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
141 +__exit: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
142 +#ifdef TARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
143 + ;; Go back to ROM/RAM mode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
144 + sta COCO_RAMROM_MODE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
145 + clr BASIC_WARMSTART_FLAG |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
146 + jmp BASIC_START |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
147 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
148 + tfr x,d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
149 + stb SIM_EXIT_REG |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
150 + bra __exit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
151 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
152 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
153 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
155 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
156 + ;;; __start : Entry point to the program |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
157 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
159 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
160 + .globl __start |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
161 +__start: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
162 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
163 +#ifdef HAVE_DIRECT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
164 + ;; Initialize the direct page pointer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
165 + lda #<s_.direct |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
166 + tfr a,dp |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
167 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
168 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
169 +#ifdef TARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
170 + ;; Turn off interrupts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
171 + orcc #(0x10|0x40) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
172 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
173 + ;; Setup All RAM Mode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
174 + sta COCO_ALLRAM_MODE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
175 +#endif /* TARGET_COCO */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
176 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
177 + ;; Initialize the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
178 + lds #__STACK_TOP - 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
179 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
180 + ;; Call any "initializer" functions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
181 + ldu #s_.ctors |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
182 +__ctors_loop: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
183 + ldy ,u++ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
184 + cmpy #0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
185 + beq __ctors_done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
186 + jsr ,y |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
187 + bra __ctors_loop |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
188 +__ctors_done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
189 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
190 + ;; Enable interrupts on the simulator |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
191 +#ifndef TARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
192 + andcc #~(0x10|0x40) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
193 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
194 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
195 + ;; Set up the environment |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
196 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
197 + ;; Set up argc/argv arrays |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
198 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
199 + ;; Call the main function. The exit code will |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
200 + ;; be returned in the X register, unless compiled |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
201 + ;; with -mdret, in which case it comes back in D. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
202 + jsr _main |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
203 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
204 + ;; Call any finalizer functions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
205 + ldu #s_.dtors |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
206 +__dtors_loop: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
207 + ldy ,u++ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
208 + cmpy #0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
209 + beq __dtors_done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
210 + jsr ,y |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
211 + bra __dtors_loop |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
212 +__dtors_done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
213 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
214 + ;; If main returns, then invoke _exit() to stop the program |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
215 + ;; The C library doesn't support -mdret yet, so move the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
216 + ;; argument first. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
217 +#ifdef __DRET__ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
218 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
219 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
220 + jmp _exit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
221 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
222 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
223 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
224 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
225 + ;;; __crt0_vector : Default handler for interrupts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
226 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
227 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
228 +___crt0_vector: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
229 + ;; The default behavior is to simply ignore all |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
230 + ;; non-reset interrupts. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
231 + rti |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
232 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
233 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
234 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
235 + ;;; vector : The interrupt vector table |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
237 + ;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
238 + .area vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
239 +vectors: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
240 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
241 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
242 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
243 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
244 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
245 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
246 + .word ___crt0_vector |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
247 + .word __start |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
251 @@ -0,0 +1,511 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
252 +/* libgcc routines for m6809 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
253 + Copyright (C) 2006 Free Software Foundation, Inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
254 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
255 +This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
256 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
257 +GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
258 +it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
259 +the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
260 +any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
261 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
262 +GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
263 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
265 +GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
266 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
267 +You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
268 +along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
269 +<http://www.gnu.org/licenses/>. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
270 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
271 +/* As a special exception, if you link this library with other files, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
272 + some of which are compiled with GCC, to produce an executable, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
273 + this library does not by itself cause the resulting executable |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
274 + to be covered by the GNU General Public License. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
275 + This exception does not however invalidate any other reasons why |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
276 + the executable file might be covered by the GNU General Public License. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
277 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
278 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
279 +#define SIGFPE jmp _abort |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
280 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
281 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
282 + ; Shift functions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
283 + ; On input, D is value to be shifted, and X has shift count. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
284 + ; Result is also in D. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
285 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
286 +#ifdef L_ashlhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
287 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
288 + .globl _ashlhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
289 +_ashlhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
290 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
291 +1$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
292 + leax -1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
293 + cmpx #-1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
294 + beq 2$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
295 + aslb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
296 + rola |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
297 + bra 1$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
298 +2$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
299 + puls x,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
300 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
301 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
302 +#ifdef L_ashrhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
303 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
304 + .globl _ashrhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
305 +_ashrhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
306 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
307 +1$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
308 + leax -1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
309 + cmpx #-1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
310 + beq 2$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
311 + asra |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
312 + rorb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
313 + bra 1$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
314 +2$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
315 + puls x,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
316 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
317 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
318 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
319 +#ifdef L_lshrhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
320 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
321 + .globl _lshrhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
322 +_lshrhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
323 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
324 +1$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
325 + leax -1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
326 + cmpx #-1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
327 + beq 2$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
328 + lsra |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
329 + rorb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
330 + bra 1$ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
331 +2$: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
332 + puls x,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
333 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
334 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
335 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
336 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
337 +#ifdef L_softregs |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
338 + .area direct |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
339 + .globl m0, m1, m2, m3, m4, m5, m6, m7 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
340 + .globl m8, m9, m10, m11, m12, m13, m14, m15 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
341 +m0: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
342 +m1: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
343 +m2: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
344 +m3: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
345 +m4: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
346 +m5: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
347 +m6: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
348 +m7: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
349 +m8: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
350 +m9: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
351 +m10: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
352 +m11: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
353 +m12: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
354 +m13: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
355 +m14: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
356 +m15: .blkb 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
357 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
358 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
359 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
360 +#ifdef L_ashlsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
361 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
362 + .globl _ashlsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
363 +_ashlsi3_one: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
364 + asl 3,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
365 + rol 2,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
366 + rol 1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
367 + rol ,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
368 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
369 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
370 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
371 +#ifdef L_ashlsi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
372 + /* X points to the SImode (source/dest) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
373 + B is the count */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
374 +_ashlsi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
375 + pshs u |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
376 + cmpb #16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
377 + blt try8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
378 + subb #16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
379 + ; Shift by 16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
380 + ldu 2,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
381 + stu ,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
382 +try8: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
383 + cmpb #8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
384 + blt try_rest |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
385 + subb #8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
386 + ; Shift by 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
387 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
388 +try_rest: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
389 + tstb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
390 + beq done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
391 +do_rest: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
392 + ; Shift by 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
393 + asl 3,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
394 + rol 2,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
395 + rol 1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
396 + rol ,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
397 + decb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
398 + bne do_rest |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
399 +done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
400 + puls u,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
401 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
402 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
403 +#ifdef L_ashrsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
404 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
405 + .globl _ashlsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
406 +_ashrsi3_one: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
407 + asr ,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
408 + ror 1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
409 + ror 2,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
410 + ror 3,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
411 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
412 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
413 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
414 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
415 +#ifdef L_lshrsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
416 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
417 + .globl _lshrsi3_one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
418 +_lshrsi3_one: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
419 + lsr ,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
420 + ror 1,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
421 + ror 2,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
422 + ror 3,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
423 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
424 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
425 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
426 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
427 +#ifdef L_clzsi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
428 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
429 + .globl ___clzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
430 + ; Input: X = 16-bit unsigned integer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
431 + ; Output: X = number of leading zeros |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
432 + ; This function destroys the value in D. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
433 +___clzhi2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
434 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
435 + ; Find the offset of the leftmost '1' bit in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
436 + ; the left half of the word. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
437 + ; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
438 + ; Bits are numbered in the table with 1 meaning the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
439 + ; LSB and 8 meaning the MSB. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
440 + ; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
441 + ; If nonzero, then clz is 8-a. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
442 + tfr x,d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
443 + ldx #___clz_tab |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
444 + tfr a,b |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
445 + clra |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
446 + ldb d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
447 + bne upper_bit_set |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
448 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
449 +lower_bit_set: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
450 + ; If the upper byte is zero, then check the lower |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
451 + ; half of the word. Return 16-a. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
452 + puls d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
453 + clra |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
454 + ldb d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
455 + negb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
456 + addb #16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
457 + bra done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
458 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
459 +upper_bit_set: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
460 + negb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
461 + addb #8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
462 + puls x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
463 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
464 +done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
465 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
466 + puls pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
467 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
468 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
469 +#ifdef L_clzdi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
470 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
471 + .globl ___clzsi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
472 + ; Input: 32-bit unsigned integer is on the stack, just |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
473 + ; above the return address |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
474 + ; Output: X = number of leading zeros |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
475 +___clzsi2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
476 + ; Check the upper 16-bit word |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
477 + ; If it is not zero, then return clzhi2(X). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
478 + ; A branch can be used instead of a call since no |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
479 + ; postprocessing is needed. Use long branch form |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
480 + ; though since functions may not be near each other. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
481 + ldx 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
482 + lbne ___clzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
483 + ldx 4,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
484 + jsr ___clzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
485 + leax 16,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
486 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
487 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
488 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
489 +#ifdef L_ctzsi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
490 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
491 + .globl ___ctzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
492 + ; Input: X = 16-bit unsigned integer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
493 + ; Output: X = number of trailing zeros |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
494 + ; F(x) = 15 - clzhi2(X & -x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
495 + ; This function destroys the value in D. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
496 +___ctzhi2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
497 + tfr x,d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
498 + coma |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
499 + comb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
500 + addd #1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
501 + pshs a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
502 + pshs b |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
503 + tfr x,d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
504 + andb ,s+ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
505 + anda ,s+ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
506 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
507 + jsr ___clzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
508 + tfr x,d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
509 + subd #16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
510 + coma |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
511 + comb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
512 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
513 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
514 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
515 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
516 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
517 +#ifdef L_ctzdi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
518 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
519 + .globl ___ctzsi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
520 + ; Input: 32-bit unsigned integer is on the stack, just |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
521 + ; above the return address |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
522 + ; Output: X = number of leading zeros |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
523 +___ctzsi2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
524 + ; Check the lower 16-bit word |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
525 + ; If it is not zero, then return ctzhi2(X). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
526 + ; A branch can be used instead of a call since no |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
527 + ; postprocessing is needed. Use long branch form |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
528 + ; though since functions may not be near each other. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
529 + ldx 4,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
530 + lbne ___ctzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
531 + ldx 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
532 + jsr ___ctzhi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
533 + leax 16,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
534 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
535 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
536 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
537 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
538 +#ifdef L_mulhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
540 +;;; ___mulhi3 - signed/unsigned multiply |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
541 +;;; Called by GCC to implement 16x16 multiplication |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
542 +;;; Arguments: Two 16-bit values, one in stack, one in X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
543 +;;; Result: 16-bit result in X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
545 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
546 + .globl _mulhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
547 +_mulhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
548 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
549 + lda 5,s ; left msb * right lsb * 256 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
550 + ldb ,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
551 + mul |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
552 + tfr b,a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
553 + clrb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
554 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
555 + ldb 1,s ; left lsb * right msb * 256 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
556 + lda 4,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
557 + mul |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
558 + tfr b,a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
559 + clrb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
560 + leax d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
561 + ldb 1,s ; left lsb * right lsb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
562 + lda 5,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
563 + mul |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
564 + leax d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
565 + puls d,pc ; kill D to remove initial push |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
566 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
567 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
568 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
569 +#ifdef L_divhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
571 +;;; ___divhi3 - signed division |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
572 +;;; Arguments: Dividend in X, divisor on the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
573 +;;; Returns result in X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
575 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
576 + .globl _divhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
577 +_divhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
578 + ldd 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
579 + bne do_div ; check dividend |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
580 + SIGFPE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
581 +do_div: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
582 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
583 + jsr _seuclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
584 + puls x,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
585 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
586 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
587 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
588 +#ifdef L_modhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
590 +;;; ___modhi3 - signed modulo |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
591 +;;; Arguments: Dividend in X, divisor on the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
592 +;;; Returns result in X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
594 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
595 + .globl _modhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
596 +_modhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
597 + ldd 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
598 + bne do_mod ; check dividend |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
599 + SIGFPE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
600 +do_mod: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
601 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
602 + jsr _seuclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
603 + leas 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
604 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
605 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
606 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
607 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
608 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
609 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
610 +#ifdef L_udivhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
612 +;;; ___udivhi3 - unsigned division |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
613 +;;; Arguments: Dividend in X, divisor on the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
614 +;;; Returns result in X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
616 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
617 + .globl _udivhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
618 +_udivhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
619 + ldd 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
620 + bne do_udiv ; check dividend |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
621 + SIGFPE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
622 +do_udiv: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
623 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
624 + jsr _euclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
625 + puls x,pc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
626 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
627 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
628 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
629 +#ifdef L_umodhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
631 +;;; ___umodhi3 - unsigned modulo |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
632 +;;; Arguments: Dividend in X, divisor on the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
633 +;;; Returns result in X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
635 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
636 + .globl _umodhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
637 +_umodhi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
638 + ldd 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
639 + bne do_umod ; check dividend |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
640 + SIGFPE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
641 +do_umod: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
642 + pshs x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
643 + jsr _euclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
644 + leas 2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
645 + tfr d,x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
646 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
647 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
648 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
649 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
650 +#ifdef L_euclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
651 +; unsigned euclidean division |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
652 +; calling: (left / right) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
653 +; push left |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
654 +; ldd right |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
655 +; jsr _euclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
656 +; quotient on the stack (left) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
657 +; modulus in d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
658 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
659 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
660 + .globl _euclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
661 + left=5 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
662 + right=1 ; word |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
663 + count=0 ; byte |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
664 + CARRY=1 ; alias |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
665 +_euclid: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
666 + leas -3,s ; 2 local variables |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
667 + clr count,s ; prescale divisor |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
668 + inc count,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
669 + tsta |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
670 +presc: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
671 + bmi presc_done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
672 + inc count,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
673 + aslb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
674 + rola |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
675 + bra presc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
676 +presc_done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
677 + std right,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
678 + ldd left,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
679 + clr left,s ; quotient = 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
680 + clr left+1,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
681 +mod1: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
682 + subd right,s ; check subtract |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
683 + bcc mod2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
684 + addd right,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
685 + andcc #~CARRY |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
686 + bra mod3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
687 +mod2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
688 + orcc #CARRY |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
689 +mod3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
690 + rol left+1,s ; roll in carry |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
691 + rol left,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
692 + lsr right,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
693 + ror right+1,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
694 + dec count,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
695 + bne mod1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
696 + leas 3,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
697 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
698 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
699 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
700 +#ifdef L_seuclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
701 +; signed euclidean division |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
702 +; calling: (left / right) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
703 +; push left |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
704 +; ldd right |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
705 +; jsr _seuclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
706 +; quotient on the stack (left) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
707 +; modulus in d |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
708 + .area .text |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
709 + .globl _seuclid |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
710 + left=6 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
711 + right=2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
712 + quot_sign=1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
713 + mod_sign=0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
714 +_seuclid: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
715 + leas -4,s ; 3 local variables |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
716 + std right,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
717 + clr mod_sign,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
718 + clr quot_sign,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
719 + ldd left,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
720 + bge mod_abs |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
721 + inc mod_sign,s ; sign(mod) = sign(left) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
722 + inc quot_sign,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
723 + bsr negd ; abs(left) -> D |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
724 +mod_abs: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
725 + pshs b,a ; push abs(left) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
726 + ldd right+2,s ; all references shifted by 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
727 + bge quot_abs |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
729 + bsr negd ; abs(right) -> D |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
730 +quot_abs: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
731 + jsr _euclid ; call (unsigned) euclidean division |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
732 + std right+2,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
733 + puls a,b ; quot -> D |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
734 + tst quot_sign,s ; all references no longer shifted |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
735 + beq quot_done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
736 + bsr negd |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
737 +quot_done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
738 + std left,s ; quot -> left |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
739 + ldd right,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
740 + tst mod_sign,s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
741 + beq mod_done |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
742 + bsr negd |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
743 +mod_done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
744 + leas 4,s ; destroy stack frame |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
745 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
746 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
747 +negd: ; self-explanatory ! |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
748 + nega |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
749 + negb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
750 + sbca #0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
751 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
752 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
753 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
754 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
755 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
756 +#ifdef L_pending_addsi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
757 +_addsi3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
758 + rts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
759 +#endif /* L_pending_addsi3 */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
760 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
761 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
762 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
766 @@ -0,0 +1,3023 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
767 +/*------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
768 + FILE: m6809.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
769 +-------------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
770 +/* Subroutines for insn-output.c for MC6809. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
771 + Copyright (C) 1989-2007 Free Software Foundation, Inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
772 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
774 + Space Astronomy Laboratory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
775 + University of Wisconsin at Madison |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
776 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
778 + ( msdoerfe@informatik.uni-erlangen.de ) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
779 + also added #pragma interrupt (inspired by gcc-6811) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
780 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
782 + (ebotcazou@multimania.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
783 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
785 + (ebotcazou@multimania.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
786 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
788 + (brian@oddchange.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
789 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
791 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
792 +This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
793 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
794 +GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
795 +it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
796 +the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
797 +any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
798 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
799 +GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
800 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
802 +GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
803 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
804 +You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
805 +along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
806 +<http://www.gnu.org/licenses/>. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
807 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
808 +#include <string.h> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
809 +#include <time.h> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
810 +#include <sys/types.h> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
811 +#include <sys/timeb.h> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
812 +#include <stdio.h> |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
813 +#include "config.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
814 +#include "system.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
815 +#include "coretypes.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
816 +#include "tm.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
817 +#include "tree.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
818 +#include "rtl.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
819 +#include "tm_p.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
820 +#include "regs.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
821 +#include "flags.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
822 +#include "hard-reg-set.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
823 +#include "real.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
824 +#include "tree.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
825 +#include "insn-config.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
826 +#include "conditions.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
827 +#include "insn-flags.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
828 +#include "output.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
829 +#include "insn-attr.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
830 +#include "function.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
831 +#include "target.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
832 +#include "target-def.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
833 +#include "expr.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
834 +#include "recog.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
835 +#include "cpplib.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
836 +#include "c-family/c-pragma.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
837 +#include "c-family/c-common.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
838 +#include "toplev.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
839 +#include "optabs.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
840 +#include "version.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
841 +#include "df.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
842 +#include "rtlhooks-def.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
843 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
844 +/* macro to return TRUE if length of operand mode is one byte */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
846 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
847 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
849 +register and not a fake one that is emulated in software. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
851 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
852 +/*------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
853 + Target hooks, moved from target.h |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
854 +-------------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
856 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
857 +#undef TARGET_ENCODE_SECTION_INFO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
859 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
860 +#undef TARGET_ASM_FILE_START |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
861 +#define TARGET_ASM_FILE_START m6809_asm_file_start |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
862 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
863 +#undef TARGET_ASM_ALIGNED_HI_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
865 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
866 +#undef TARGET_ASM_ALIGNED_SI_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
867 +#define TARGET_ASM_ALIGNED_SI_OP NULL |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
868 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
869 +#undef TARGET_ASM_UNALIGNED_HI_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
871 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
872 +#undef TARGET_ASM_UNALIGNED_SI_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
874 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
875 +#undef TARGET_RTX_COSTS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
876 +#define TARGET_RTX_COSTS m6809_rtx_costs |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
877 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
878 +#undef TARGET_ATTRIBUTE_TABLE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
880 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
881 +#undef TARGET_INIT_BUILTINS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
882 +#define TARGET_INIT_BUILTINS m6809_init_builtins |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
883 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
884 +#undef TARGET_EXPAND_BUILTIN |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
886 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
887 +#undef TARGET_DEFAULT_TARGET_FLAGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS | MASK_DIRECT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
889 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
892 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
895 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
896 +#undef TARGET_TRAMPOLINE_INIT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
898 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
899 +#undef TARGET_FRAME_POINTER_REQUIRED |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
901 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
902 +#undef TARGET_OPTION_OVERRIDE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
903 +#define TARGET_OPTION_OVERRIDE m6809_override_options |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
904 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
905 +/* External variables used */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
906 +extern int reload_completed; /* set in toplev.c */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
907 +extern FILE *asm_out_file; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
908 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
909 +static int last_mem_size; /* operand size (bytes) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
910 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
911 +/* True if the section was recently changed and another .area |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
912 + * directive needs to be output before emitting the next label. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
913 +int section_changed = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
914 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
915 +/* Section names. The defaults here are used until an |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
916 + * __attribute__((section)) is seen that changes it. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
917 +char code_section_op[128] = "\t.area .text"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
918 +char data_section_op[128] = "\t.area .data"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
919 +char bss_section_op[128] = "\t.area .bss"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
920 +const char *code_bank_option = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
921 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
922 +/* TRUE if the direct mode prefix might be valid in this context. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
923 + * This is set by 'print_address' prior to calling output_addr_const, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
924 + * which performs into 'print_direct_prefix' to do the final checks. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
925 +static int check_direct_prefix_flag; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
926 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
927 +/* Nonzero if an address is being printed in a context which does not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
928 + * permit any PIC modifications to the address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
929 +static int pic_ok_for_addr_p = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
930 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
931 +/* Current code page. This supports machines which can do bank |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
932 + * switching to allow for more than 64KB of code/data. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
933 +char far_code_page[64]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
934 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
935 +/* Current bank name */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
936 +static char current_bank_name[8] = "-1"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
937 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
938 +/* Default bank name */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
939 +static char default_code_bank_name[8] = "-1"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
940 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
941 +/* Direct memory reserved as soft registers */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
942 +unsigned int m6809_soft_regs = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
943 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
944 +/* ABI version */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
946 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
947 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
948 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
949 + * Called after options have been parsed. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
950 + * If overrides have been specified on the command-line, then |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
951 + * these values are copied into the main storage variables. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
952 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
953 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
954 +m6809_override_options (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
955 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
956 + /* Handle -mfar-code-page */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
957 + if (far_code_page_option == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
958 + far_code_page_option = "__default_code_page"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
959 + strcpy (far_code_page, far_code_page_option); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
960 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
962 + if (code_section_ptr != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
963 + sprintf (code_section_op, "\t.area %s", code_section_ptr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
964 + if (data_section_ptr != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
965 + sprintf (data_section_op, "\t.area %s", data_section_ptr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
966 + if (bss_section_ptr != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
968 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
969 + /* Handle -mcode-bank */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
970 + if (code_bank_option != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
971 + sprintf (default_code_bank_name, "%s", code_bank_option); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
972 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
973 + /* Handle -mabi-version or -mno-reg-args */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
974 + if (m6809_abi_version_ptr != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
975 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
976 + if (!strcmp (m6809_abi_version_ptr, "stack")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
977 + m6809_abi_version = M6809_ABI_VERSION_STACK; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
978 + else if (!strcmp (m6809_abi_version_ptr, "regs")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
979 + m6809_abi_version = M6809_ABI_VERSION_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
980 + else if (!strcmp (m6809_abi_version_ptr, "bx")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
981 + m6809_abi_version = M6809_ABI_VERSION_BX; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
982 + else if (!strcmp (m6809_abi_version_ptr, "latest")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
983 + m6809_abi_version = M6809_ABI_VERSION_LATEST; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
984 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
985 + m6809_abi_version = atoi (m6809_abi_version_ptr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
986 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
987 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
988 + /* The older -mno-reg-args option is deprecated, and treated |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
989 + as -mabi=stack. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
990 + if (!TARGET_REG_ARGS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
991 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead."); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
993 + m6809_abi_version = M6809_ABI_VERSION_STACK; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
994 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
995 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
996 + /* -fexceptions is unsupported */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
997 + flag_exceptions = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
998 + flag_non_call_exceptions = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
999 + flag_unwind_tables = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1000 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1001 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1002 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1003 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1004 + * Output prefix that directs the assembler to use a direct-mode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1005 + * instruction if globally enabled, address is a symbol, and symbol |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1006 + * has been marked as in direct page. Also, never do this if |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1007 + * using the indirect mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1008 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1009 +print_direct_prefix (FILE * file, rtx addr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1010 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1011 + if (TARGET_DIRECT && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1012 + (GET_CODE (addr) == SYMBOL_REF) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1013 + SYMBOL_REF_FLAG (addr) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1014 + check_direct_prefix_flag) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1015 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1016 + putc ('*', file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1017 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1018 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1019 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1020 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1021 +/** Prints an operand (that is not an address) in assembly from RTL. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1022 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1023 +print_operand (FILE * file, rtx x, int code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1024 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1025 + if (REG_P (x)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1026 + /* gcc currently allocates the entire 16-bit 'd' register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1027 + * even when it only needs an 8-bit value. So here it |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1028 + * is tricked into printing only the lower 8-bit 'b' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1029 + * register into the assembly output. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1030 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1031 + * Eventually gcc should be modified to allocate a/b |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1032 + * independently and this hack can be removed. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1033 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1034 + * Occasionally, we may want to do an operation using |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1035 + * the 'a' register instead of 'b'; use the 'A' code |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1036 + * to specify that. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1037 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1038 + if (code == 'A') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1039 + fputs ("a", file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1041 + fputs ("b", file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1042 + else if (M_REG_P (x) && code == 'L') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1043 + /* Soft registers can be treated like memory and accessed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1044 + * at a particular offset. TODO : handle 'W' */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1045 + fputs (reg_names[REGNO (x)+1], file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1046 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1047 + fputs (reg_names[REGNO (x)], file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1048 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1049 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1050 + else if (MEM_P (x)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1052 + if (code == 'L') { /* LSH of word address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1053 + if (GET_CODE (XEXP (x, 0)) == MEM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1054 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1055 + /* Offseting an indirect addressing mode is not supported */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1056 + error ("expression too complex for 6809 (offset indirect mode)"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1057 + debug_rtx (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1058 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1059 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1060 + x = adjust_address (x, QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1061 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1062 + else if (code == 'M') { /* MSH of word address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1063 + if (GET_CODE (XEXP (x, 0)) == MEM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1064 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1065 + /* Offseting an indirect addressing mode is not supported */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1066 + error ("expression too complex for 6809 (offset indirect mode)"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1067 + debug_rtx (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1068 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1069 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1070 + x = adjust_address (x, QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1071 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1072 + else if (code == 'W') { /* least significant half of 32-bit */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1073 + x = adjust_address (x, HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1074 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1075 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1076 + pic_ok_for_addr_p = (code != 'C'); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1077 + output_address (XEXP (x, 0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1078 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1079 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1081 + union { double d; int i[2]; } u; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1082 + u.i[0] = CONST_DOUBLE_LOW (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1083 + u.i[1] = CONST_DOUBLE_HIGH (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1084 + fprintf (file, "#%#9.9g", u.d); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1085 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1086 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1087 + else if (code == 'R') { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1088 + fprintf (file, "%s", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1089 + m6809_get_regs_printable (INTVAL (x))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1090 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1091 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1092 + else { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1093 + if (code == 'L') { /* LSH of word address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1095 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1096 + else if (code == 'M') { /* MSH of word address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1098 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1099 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1100 + putc ('#', file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1101 + output_addr_const (file, x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1102 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1103 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1104 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1105 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1106 +/** Prints an address operand to assembler from its RTL representation. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1107 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1108 +print_operand_address (FILE *file, rtx addr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1109 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1110 + register rtx base = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1111 + register rtx offset = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1112 + int regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1113 + int indirect_flag = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1114 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1115 + check_direct_prefix_flag = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1116 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1117 + /*** check for indirect addressing ***/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1118 + if (MEM_P (addr)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1120 + addr = XEXP (addr, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1121 + if (pic_ok_for_addr_p) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1122 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1123 + indirect_flag = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1124 + fprintf (file, "["); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1125 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1126 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1127 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1128 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1129 + switch (GET_CODE (addr)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1130 + case REG: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1131 + regno = REGNO (addr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1132 + fprintf (file, ",%s", reg_names[regno]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1133 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1134 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1135 + case PRE_DEC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1136 + regno = REGNO (XEXP (addr, 0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1138 + fprintf (file, "%s", reg_names[regno]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1139 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1140 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1141 + case POST_INC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1142 + regno = REGNO (XEXP (addr, 0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1143 + fprintf (file, ",%s", reg_names[regno]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1145 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1146 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1147 + case PLUS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1148 + base = XEXP (addr, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1149 + if (MEM_P (base)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1150 + base = XEXP (base, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1151 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1152 + offset = XEXP (addr, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1153 + if (MEM_P (offset)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1154 + offset = XEXP (offset, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1155 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1157 + if (!indirect_flag) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1158 + check_direct_prefix_flag = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1159 + output_addr_const (file, base); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1160 + check_direct_prefix_flag = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1161 + fputs ("+", file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1162 + output_addr_const (file, offset); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1163 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1164 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1166 + output_addr_const (file, base); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1168 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1169 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1171 + output_addr_const (file, offset); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1172 + fprintf (file, ",%s", reg_names[REGNO (base)]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1173 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1174 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1175 + /*** accumulator offset ***/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1176 + else if (((D_REG_P (offset)) || (Q_REG_P (offset))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1177 + && (A_REG_P (base))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1178 + fprintf (file, "%s,%s", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1180 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1181 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1182 + else if (((D_REG_P (base)) || (Q_REG_P (base))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1183 + && (A_REG_P (offset))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1184 + fprintf (file, "%s,%s", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1186 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1187 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1188 + else if (GET_CODE (base) == PRE_DEC) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1189 + regno = REGNO (XEXP (base, 0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1191 + fprintf (file, "%s", reg_names[regno]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1192 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1193 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1194 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1195 + abort (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1196 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1197 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1198 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1199 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1200 + /* Set this global before calling output_addr_const() */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1201 + if (!indirect_flag) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1202 + check_direct_prefix_flag = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1203 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1205 + * '#' and follow it by ',pcr' to enable relative addressing. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1207 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1208 + ASM_OUTPUT_SYMBOL_REF (file, addr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1209 + fputs (",pcr", file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1210 + pic_ok_for_addr_p = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1211 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1212 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1213 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1214 + output_addr_const (file, addr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1215 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1216 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1217 + check_direct_prefix_flag = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1218 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1219 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1220 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1221 + if (indirect_flag) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1222 + fprintf (file, "]"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1223 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1224 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1225 +/*------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1226 + Update the CC Status |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1227 +--------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1228 + Set the cc_status for the results of an insn whose pattern is EXP. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1229 + We assume that jumps don't affect the condition codes. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1230 + All else, clobbers the condition codes, by assumption. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1231 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1232 + We assume that ALL add, minus, etc. instructions effect the condition |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1233 + codes. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1234 +-------------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1235 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1237 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1238 + int src_code; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1239 + int dst_code; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1240 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1241 + /*** recognize SET insn's ***/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1242 + if (GET_CODE (exp) == SET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1243 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1244 + src_code = GET_CODE (SET_SRC (exp)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1245 + dst_code = GET_CODE (SET_DEST (exp)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1246 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1247 + /* Jumps do not alter the cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1248 + if (SET_DEST (exp) == pc_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1249 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1250 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1251 + /* Moving one register into another register (tfr): |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1252 + Doesn't alter the cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1254 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1255 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1256 + /* Moving memory into a register (load): Sets cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1258 + cc_status.value1 = SET_SRC (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1259 + cc_status.value2 = SET_DEST (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1260 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1261 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1262 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1263 + /* Moving register into memory (store): Sets cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1264 + if (dst_code == MEM && REG_P (SET_SRC (exp))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1265 + cc_status.value1 = SET_SRC (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1266 + cc_status.value2 = SET_DEST (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1267 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1268 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1269 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1270 + /* Function calls clobber the cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1271 + else if (GET_CODE (SET_SRC (exp)) == CALL) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1272 + CC_STATUS_INIT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1273 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1274 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1275 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1276 + /* Tests and compares set the cc's in predictable ways. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1277 + else if (SET_DEST (exp) == cc0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1278 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1279 + cc_status.flags = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1280 + cc_status.value1 = SET_SRC (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1281 + cc_status.value2 = SET_DEST (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1282 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1283 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1284 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1285 + else if (A_REG_P (SET_DEST (exp))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1286 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1287 + CC_STATUS_INIT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1288 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1289 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1290 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1291 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1292 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1293 + /* Certain instructions affect the condition codes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1294 + switch (src_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1295 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1296 + case PLUS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1297 + case MINUS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1298 + case NEG: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1299 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1300 + /* These instructions set the condition codes, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1301 + * and may modify the V bit. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1302 + cc_status.flags |= CC_NO_OVERFLOW; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1303 + /* FALLTHRU */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1304 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1305 + case AND: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1306 + case IOR: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1307 + case XOR: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1308 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1309 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1310 + /* These instructions set the condition codes, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1311 + * but cannot overflow (V=0). */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1312 + cc_status.value1 = SET_SRC (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1313 + cc_status.value2 = SET_DEST (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1314 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1315 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1316 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1317 + /* Everything else is clobbered */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1318 + CC_STATUS_INIT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1319 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1320 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1321 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1322 + } /* SET */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1323 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1324 + else if (GET_CODE (exp) == PARALLEL |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1325 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1326 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1327 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1328 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1330 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1331 + CC_STATUS_INIT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1332 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1333 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1334 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1335 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1336 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1337 + /*** default action if we haven't recognized something |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1338 + and returned earlier ***/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1339 + CC_STATUS_INIT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1340 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1341 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1342 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1343 +/** Returns nonzero if the expression EXP can be implemented using one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1344 + * of the 6809's single operand instructions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1345 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1346 +m6809_single_operand_operator (rtx exp) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1347 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1348 + rtx op1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1349 + HOST_WIDE_INT val; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1350 + enum rtx_code code; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1351 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1352 + debug_rtx(exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1353 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1354 + code = GET_CODE (exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1355 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1356 + /* Unary operators always qualify */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1357 + switch (code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1358 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1359 + case NEG: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1360 + case NOT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1361 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1362 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1363 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1364 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1365 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1366 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1367 + /* Binary operators can only qualify if the second |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1368 + * argument is a CONST_INT of certain value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1369 + op1 = XEXP (exp, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1370 + if (GET_CODE (op1) != CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1371 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1372 + val = INTVAL (op1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1373 + switch (code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1374 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1375 + case PLUS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1376 + case MINUS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1377 + if (val == -1 || val == 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1378 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1379 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1380 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1381 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1382 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1383 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1384 + case ROTATE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1385 + case ROTATERT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1386 + if (val == 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1387 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1388 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1389 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1390 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1391 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1392 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1393 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1394 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1395 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1396 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1397 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1398 +/** Return a bitarray of the hard registers which are used by a function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1399 +unsigned int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1400 +m6809_get_live_regs (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1401 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1402 + unsigned int regs = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1403 + int regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1404 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1405 + if (frame_pointer_needed) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1406 + regs |= (1 << HARD_FRAME_POINTER_REGNUM); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1407 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1408 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1409 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1410 + regs |= (1 << regno); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1411 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1412 + return regs; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1413 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1414 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1415 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1416 +/** Return a printable version of a list of hard registers, suitable |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1417 + * for use in a PSHx or PULx insn. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1418 +const char * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1419 +m6809_get_regs_printable (unsigned int regs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1420 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1421 + static char list[64]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1422 + char *listp = list; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1423 + unsigned int regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1424 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1425 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1426 + if ((regs & (1 << regno)) && !S_REGNO_P (regno)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1427 + listp += sprintf (listp, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1428 + (listp == list) ? "%s" : ",%s", reg_names[regno]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1429 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1430 + return list; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1431 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1432 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1433 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1434 +/** Return the total number of bytes covered by a set of hard registers. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1435 +unsigned int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1436 +m6809_get_regs_size (unsigned int regs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1437 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1438 + unsigned int regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1439 + unsigned int size = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1440 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1441 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1442 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1443 + /* Only count register in the given register set */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1444 + if (REGSET_CONTAINS_P (regno, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1445 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1446 + /* Add 1 or 2 byte, depending on the size of the register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1447 + * Since 'D' may be in both sets, check for WORD_REGSET first. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1448 + if (REGSET_CONTAINS_P(regno, WORD_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1449 + size += 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1450 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1451 + size++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1452 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1453 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1454 + return size; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1455 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1456 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1457 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1458 +/* Given the target of call instruction in X, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1459 + * return the tree node that contains the function declaration for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1460 + * that target. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1461 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1462 + * If the rtx or the tree do not appear valid for any reason, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1463 + * then return NULL_TREE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1464 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1465 +static tree call_target_decl (rtx x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1466 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1467 + tree decl; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1468 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1469 + /* Make sure the target is really a MEM. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1470 + if (!x || !MEM_P (x)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1471 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1472 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1473 + /* Make sure the address is a SYMBOL_REF. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1474 + x = XEXP (x, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1475 + if (!x || (GET_CODE (x) != SYMBOL_REF)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1476 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1477 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1478 + /* Get the declaration of this symbol */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1479 + decl = SYMBOL_REF_DECL (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1480 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1481 + /* Make sure the declaration is really a function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1482 + if (!decl || (TREE_CODE(decl) != FUNCTION_DECL)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1483 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1484 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1485 + return decl; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1486 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1487 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1488 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1489 +/** Returns nonzero if a function, whose declaration is in DECL, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1490 + * was declared to have the attribute given by ATTR_NAME. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1491 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1492 +m6809_function_has_type_attr_p (tree decl, const char *attr_name) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1493 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1494 + tree type; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1495 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1496 + type = TREE_TYPE (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1497 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1498 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1499 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1500 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1501 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1502 +/** Returns nonzero if the current function was declared to have the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1503 + * attribute given by ATTR_NAME. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1504 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1505 +m6809_current_function_has_type_attr_p (const char *attr_name) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1506 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1507 + return m6809_function_has_type_attr_p (current_function_decl, attr_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1508 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1509 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1510 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1511 +/** Return nonzero if the current function has no return value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1512 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1513 +m6809_current_function_is_void (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1514 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1515 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl)))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1516 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1517 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1518 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1519 +/** Get the value of a declaration's 'bank', as set by the 'bank' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1520 + * attribute. If no bank was declared, it returns NULL by default. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1521 +const char * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1522 +m6809_get_decl_bank (tree decl) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1523 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1524 + tree attr; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1525 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1526 + /* Lookup the 'bank' attribute. If it does not exist, then |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1527 + * return NULL */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1528 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1529 + if (attr == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1530 + return NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1531 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1532 + /* Make sure it has a value assigned to it */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1533 + attr = TREE_VALUE (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1534 + if (attr == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1535 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1536 + warning (WARNING_OPT "banked function did not declare a bank number"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1537 + return NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1538 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1539 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1540 + /* Return the bank name */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1541 + attr = TREE_VALUE (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1542 + return TREE_STRING_POINTER (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1543 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1544 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1545 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1546 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1547 +m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1548 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1549 + /* Check the function declaration for special properties. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1550 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1551 + * If the function was declare with __attribute__((bank)), output |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1552 + * assembler definitions to force the function to go into the named |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1553 + * bank. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1554 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1555 + const char *bank_name = m6809_get_decl_bank (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1556 + if (bank_name != NULL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1557 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1558 + /* Declare __self_bank as a local assembler value that denotes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1559 + * which bank the current function is in. This is required only |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1560 + * when the bank actually changes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1561 + if (strcmp (bank_name, current_bank_name)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1562 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1563 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1564 + strcpy (current_bank_name, bank_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1565 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1566 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1567 + /* Declare a global assembler value that denotes which bank the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1568 + * named function is in. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1569 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1570 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1571 + /* Force the current function into a new area */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1572 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1573 + bank_name, bank_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1574 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1575 + bank_name, bank_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1576 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1577 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1578 + /* Emit the label for the function's name */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1579 + ASM_OUTPUT_LABEL (asm_out_file, name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1580 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1581 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1582 +#if 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1583 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1584 + * Handle pragmas. Note that only the last branch pragma seen in the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1585 + * source has any affect on code generation. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1586 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1587 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1588 +#define BAD_PRAGMA(msgid, arg) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1589 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1590 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1591 +static int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1592 +pragma_parse (const char *name, tree *sect) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1593 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1594 + tree s, x; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1595 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1596 + if (pragma_lex (&x) != CPP_OPEN_PAREN) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1597 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1598 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1599 + if (pragma_lex (&s) != CPP_STRING) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1600 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1601 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1602 + if (pragma_lex (&x) != CPP_CLOSE_PAREN) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1603 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1604 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1605 + if (pragma_lex (&x) != CPP_EOF) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1606 + warning (WARNING_OPT "junk at end of '#pragma %s'", name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1607 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1608 + *sect = s; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1609 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1610 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1611 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1612 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1613 +/* |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1614 + * Handle #pragma section. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1615 + * This is deprecated; code should use __attribute__(section("name")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1616 + * instead. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1617 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1618 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1619 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1620 + tree sect; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1621 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1622 + if (pragma_parse ("section", §)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1623 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1624 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1625 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1626 + ".area\t%s", TREE_STRING_POINTER (sect)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1627 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1628 + ".area\t%s", TREE_STRING_POINTER (sect)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1629 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1630 + /* Mark a flag that sections have changed. Upon emitting another |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1631 + * declaration, the new .area directive will be written. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1632 + section_changed++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1633 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1634 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1635 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1636 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1637 + * Check a `double' value for validity for a particular machine mode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1638 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1639 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1640 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1641 +check_float_value (enum machine_mode mode, double *d, int overflow) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1642 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1643 + if (mode == SFmode) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1644 + if (*d > 1.7014117331926443e+38) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1645 + error("magnitude of constant too large for `float'"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1646 + *d = 1.7014117331926443e+38; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1647 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1648 + else if (*d < -1.7014117331926443e+38) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1649 + error("magnitude of constant too large for `float'"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1650 + *d = -1.7014117331926443e+38; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1651 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1652 + else if ((*d > 0) && (*d < 2.9387358770557188e-39)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1653 + warning(WARNING_OPT "`float' constant truncated to zero"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1654 + *d = 0.0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1655 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1656 + else if ((*d < 0) && (*d > -2.9387358770557188e-39)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1657 + warning(WARNING_OPT "`float' constant truncated to zero"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1658 + *d = 0.0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1659 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1660 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1661 + return overflow; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1662 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1663 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1664 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1665 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1666 +/** Declare that the target supports named output sections. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1667 +bool m6809_have_named_section = (bool)1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1668 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1669 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1670 +/** Write to the assembler file a directive to place |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1671 + * subsequent objects to a different section in the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1672 + * object file. ASxxxx uses the "area" directive for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1673 + * this purpose. It does not however support generalized |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1674 + * alignment, and can only place items on an odd/even |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1675 + * boundary. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1676 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1677 +m6809_asm_named_section ( |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1678 + const char *name, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1679 + unsigned int flags ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1680 + tree decl) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1681 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1682 + fprintf (asm_out_file, "\t.area\t%s\n", name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1683 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1684 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1685 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1686 +enum reg_class |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1687 +m6809_preferred_reload_class (rtx x, enum reg_class regclass) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1688 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1689 + /* Check cases based on type code of rtx */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1690 + switch (GET_CODE(x)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1691 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1692 + /* |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1693 + * Observation, 2015-07-19, William Astle |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1694 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1695 + * The original comparison for range for 16 bits was wrong, adding 0x80 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1696 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1697 + * a more straight forward range comparison - excessive cleverness isn't |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1698 + * really required here. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1699 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1700 + case CONST_INT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1701 + /* Constants that can fit into 1 byte should be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1702 + * loaded into a Q_REGS reg */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1703 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1704 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1705 + (regclass > A_REGS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1706 + return Q_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1707 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1708 + /* 16-bit constants should be loaded into A_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1709 + * when possible. gcc may already require A_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1710 + * or D_REGS for certain types of instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1711 + * This case applies mostly to simple copy operations |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1712 + * to/from memory when any register will do, but |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1713 + * it's best to avoid using D register since it is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1714 + * needed for other things. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1715 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1716 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1717 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1718 + (regclass > A_REGS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1719 + return A_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1720 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1721 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1722 + case SYMBOL_REF: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1723 + case LABEL_REF: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1724 + /* Addresses should always be loaded into A_REGS */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1725 + if (regclass >= A_REGS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1726 + return (A_REGS); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1727 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1728 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1729 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1730 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1731 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1732 + /* Check cases based on mode of rtx */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1733 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1734 + return Q_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1735 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1736 + /* Default: return whatever class reload suggested */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1737 + return regclass; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1738 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1739 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1740 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1741 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1742 + * Check a new declaration for the "section" attribute. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1743 + * If it exists, and the target section is "direct", then mark |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1744 + * the declaration (in RTL) to indicate special treatment. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1745 + * When the variable is referenced later, we test for this flag |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1746 + * and can emit special asm text to force the assembler to use |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1747 + * short instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1748 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1749 +static void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1750 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1751 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1752 + tree attr, id; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1753 + const char *name; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1754 + const char *decl_name; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1755 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1756 + /* We only care about variable declarations, not functions */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1757 + if (TREE_CODE (decl) != VAR_DECL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1758 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1759 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1760 + /* For debugging purposes only; grab the decl's name */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1761 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1762 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1763 + /* Give up if the decl doesn't have any RTL */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1764 + if (!DECL_RTL (decl)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1765 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1766 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1767 + /* See if it has a section attribute */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1768 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1769 + if (!attr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1770 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1771 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1772 + /* See if the section attribute has a value */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1773 + id = TREE_VALUE (TREE_VALUE (attr)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1774 + if (!id) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1775 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1776 + name = TREE_STRING_POINTER (id); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1777 + if (!name) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1778 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1779 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1780 + /* See if the value is 'direct'. If so, mark it. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1781 + if (!strcmp (name, "direct")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1782 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1783 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1784 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1785 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1786 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1787 + * Output code to perform a complex shift, for which there is no |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1788 + * direct support in the instruction set. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1789 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1790 + * shift1 is an instruction pattern for performing a 1-bit modification. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1791 + * This code wraps that pattern in a loop to perform the shift N times, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1792 + * where N is given by the address register in operands[2]. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1793 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1794 + * To support 16-bit shifts, shift2 can also be provided: it is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1795 + * a second instruction to be included in the loop. 8-bit shift |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1796 + * insns will pass NULL here. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1797 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1798 + * The insn length of shift1/shift2 is assumed to be 1 byte, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1799 + * which works in all of the cases it is needed so far. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1800 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1801 +static void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1802 +m6809_gen_register_shift ( |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1803 + rtx *operands, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1804 + const char *shift1, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1805 + const char *shift2 ) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1806 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1807 + char beq_pattern[32]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1808 + char bra_pattern[32]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1809 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1810 + int shiftlen = (shift1 && shift2) ? 2 : 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1811 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1812 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1813 + int beq_offset = 2 + shiftlen + 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1814 + int bra_offset = shiftlen + 2 + cmplen + 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1815 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1816 + sprintf (beq_pattern, "beq\t.+%d", beq_offset); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1817 + sprintf (bra_pattern, "bra\t.-%d", bra_offset); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1818 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1819 + output_asm_insn ("pshs\t%2", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1820 + output_asm_insn ("lea%2\t-1,%2", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1821 + output_asm_insn ("cmp%2\t#-1", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1822 + output_asm_insn (beq_pattern, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1823 + if (shift1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1824 + output_asm_insn (shift1, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1825 + if (shift2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1826 + output_asm_insn (shift2, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1827 + output_asm_insn (bra_pattern, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1828 + output_asm_insn ("puls\t%2", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1829 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1830 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1831 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1832 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1833 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1834 +gen_rtx_const_high (rtx r) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1835 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1836 + unsigned char v = (INTVAL (r) >> 8) & 0xFF; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1837 + signed char s = (signed char)v; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1838 + return gen_int_mode (s, QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1839 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1840 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1841 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1842 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1843 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1844 +gen_rtx_const_low (rtx r) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1845 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1846 + unsigned char v = INTVAL (r) & 0xFF; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1847 + signed char s = (signed char)v; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1848 + return gen_int_mode (s, QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1849 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1850 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1851 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1852 +/** Generate RTL to allocate/free bytes on the stack. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1853 + * CODE is given as MINUS when allocating and PLUS when freeing, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1854 + * to match the semantics of a downward-growing stack. SIZE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1855 + * is always given as a positive integer. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1856 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1857 +static rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1858 +gen_rtx_stack_adjust (enum rtx_code code, int size) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1859 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1860 + if (size <= 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1861 + return NULL_RTX; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1862 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1863 + if (code == MINUS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1864 + size = -size; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1865 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1866 + return gen_rtx_SET (Pmode, stack_pointer_rtx, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1867 + gen_rtx_PLUS (Pmode, stack_pointer_rtx, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1868 + gen_int_mode (size, HImode))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1869 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1870 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1871 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1872 +/** Generate RTL to push/pop a set of registers. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1873 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1874 +gen_rtx_register_pushpop (int op, int regs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1875 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1876 + rtx nregs = gen_int_mode (regs, QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1877 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1878 + if (op == UNSPEC_PUSH_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1879 + return gen_register_push (nregs); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1880 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1881 + return gen_register_pop (nregs); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1882 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1883 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1884 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1885 +/* Given a register set REGS, where the bit positions correspond to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1886 + * hard register numbers, return another bitmask that represents the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1887 + * order in which those registers would be pushed/popped. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1888 + * Registers that are pushed first have higher bit positions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1889 + * The pop order is just the reverse bitmask. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1890 + * These values are the same as the bitmasks actually used in the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1891 + * machine instructions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1892 +static unsigned int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1893 +register_push_order (int regs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1894 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1895 + unsigned int order = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1896 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1897 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1898 + order |= 0x80; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1899 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1900 + order |= 0x40; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1901 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1902 + order |= 0x20; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1903 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1904 + order |= 0x10; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1905 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1906 + order |= 0x8; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1907 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1908 + order |= 0x4; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1909 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1910 + order |= 0x2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1911 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1912 + order |= 0x1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1913 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1914 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1915 + order |= (0x4 | 0x2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1916 + return order; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1917 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1918 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1919 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1920 +/* Returns nonzero if two consecutive push or pop instructions, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1921 + * as determined by the OP, can be merged into a single instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1922 + * The first instruction in the sequence pushes/pops REGS1; the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1923 + * second applies to REGS2. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1924 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1925 + * If true, the resulting instruction can use (regs1 | regs2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1926 + * safely. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1927 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1928 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1929 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1930 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1931 + /* Register sets must not overlap */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1932 + if (regs1 & regs2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1933 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1934 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1935 + if (op == UNSPEC_PUSH_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1936 + return (register_push_order (regs1) > register_push_order (regs2)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1937 + else if (op == UNSPEC_POP_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1938 + return (register_push_order (regs1) < register_push_order (regs2)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1939 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1940 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1941 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1942 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1943 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1944 +/** Emit instructions for making a library call. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1945 + * MODE is the mode of the operation. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1946 + * NAME is the library function name. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1947 + * OPERANDS is the rtx array provided by the recognizer. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1948 + * COUNT is the number of input operands to the call, and |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1949 + * should be 1 for a unary op or 2 for a binary op. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1950 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1951 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1952 +emit_libcall_insns (enum machine_mode mode, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1953 + const char *name, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1954 + rtx *operands, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1955 + int count) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1956 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1957 + /* Generate an rtx for the call target. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1958 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1959 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1960 + /* Emit the library call. Slightly different based |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1961 + on the number of operands */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1962 + if (count == 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1963 + emit_library_call (symbol, LCT_NORMAL, mode, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1964 + 2, operands[1], mode, operands[2], mode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1965 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1966 + emit_library_call (symbol, LCT_NORMAL, mode, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1967 + 1, operands[1], mode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1968 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1969 + /* The library call is expected to put its result |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1970 + in LIBCALL_VALUE, so need to copy it into the destination. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1971 + emit_move_insn (operands[0], LIBCALL_VALUE(mode)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1972 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1973 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1974 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1975 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1976 + * A small helper function that writes out a single branch instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1977 + * OPCODE is the short name, e.g. "ble". |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1978 + * OPERANDS has the rtx for the target label. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1979 + * LONG_P is nonzero if we are emitting a long branch, and need to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1980 + * prepend an 'l' to the opcode name. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1981 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1982 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1983 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1984 + char pattern[64]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1985 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1986 + output_asm_insn (pattern, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1987 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1988 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1989 +/** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1990 + * Output a branch/conditional branch insn of the proper |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1991 + * length. code identifies the particular branch insn. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1992 + * operands holds the branch target in operands[0]. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1993 + * length says what the size of this insn should be. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1994 + * Based on the length, we know whether it should be a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1995 + * short (8-bit) or long (16-bit) branch. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1996 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1997 +const char * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1998 +output_branch_insn (enum rtx_code code, rtx *operands, int length) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
1999 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2000 + int shortform; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2001 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2002 + /* Decide whether or not to use the long or short form. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2003 + * Calculate automatically based on insn lengths. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2004 + shortform = ((length > 2) ? 0 : 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2005 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2006 + /* Determine the proper opcode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2007 + * Use the short (2-byte) opcode if the target is within |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2008 + * reach. Otherwise, use jmp (3-byte opcode), unless |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2009 + * compiling with -fpic, in which case we'll need to use |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2010 + * lbra (4-byte opcode). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2011 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2012 + switch (code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2013 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2014 + case LABEL_REF: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2015 + if (shortform) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2016 + output_branch_insn1 ("bra", operands, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2017 + else if (flag_pic) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2018 + output_branch_insn1 ("bra", operands, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2019 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2020 + output_branch_insn1 ("jmp", operands, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2021 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2022 + case EQ: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2023 + output_branch_insn1 ("beq", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2024 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2025 + case NE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2026 + output_branch_insn1 ("bne", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2027 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2028 + case GT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2029 + output_branch_insn1 ("bgt", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2030 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2031 + case GTU: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2032 + output_branch_insn1 ("bhi", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2033 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2034 + case LT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2035 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2036 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2037 + output_branch_insn1 ("bmi", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2038 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2039 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2040 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2041 + output_branch_insn1 ("blt", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2042 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2043 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2044 + case LTU: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2045 + output_branch_insn1 ("blo", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2046 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2047 + case GE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2049 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2050 + output_branch_insn1 ("bpl", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2051 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2052 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2053 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2054 + output_branch_insn1 ("bge", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2055 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2056 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2057 + case GEU: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2058 + output_branch_insn1 ("bhs", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2059 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2060 + case LE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2062 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2063 + output_branch_insn1 ("bmi", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2064 + output_branch_insn1 ("beq", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2065 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2066 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2067 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2068 + output_branch_insn1 ("ble", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2069 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2070 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2071 + case LEU: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2072 + output_branch_insn1 ("bls", operands, !shortform); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2073 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2074 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2075 + abort(); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2076 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2077 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2078 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2079 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2080 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2081 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2082 +/** Returns the "cost" of an RTL expression. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2083 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2084 + * the cost of a fast 8-bit arithmetic instruction that operates on |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2085 + * a reg/mem or a reg/immed. Other costs are relative to this. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2086 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2087 + * Notes: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2088 + * - The cost of a REG is always zero; this cannot be changed. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2089 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2090 + * - On the 6809, instructions on two registers will nearly always take |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2091 + * longer than those that operate on a register and a constant/memory, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2092 + * because of the way the instruction set is structured. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2093 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2094 + * TODO: multiply HImode by 2 should be done via shifts, instead of add. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2095 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2096 +static bool |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2097 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2098 + int *total, bool speed) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2099 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2100 + int has_const_arg = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2101 + HOST_WIDE_INT const_arg; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2102 + enum machine_mode mode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2103 + int nargs = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2104 + rtx op0, op1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2105 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2106 + /* Data RTXs return a value between 0-3, depending on complexity. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2107 + All of these are less than COSTS_N_INSNS(1). */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2108 + switch (code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2109 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2110 + case CC0: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2111 + case PC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2112 + *total = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2113 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2114 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2115 + case CONST_INT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2116 + if (X == const0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2117 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2118 + *total = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2119 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2120 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2121 + else if ((unsigned) INTVAL (X) < 077) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2122 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2123 + *total = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2124 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2125 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2126 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2127 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2128 + *total = 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2129 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2130 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2131 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2132 + case LABEL_REF: case CONST: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2133 + *total = 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2134 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2135 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2136 + case SYMBOL_REF: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2137 + /* References to memory are made cheaper if they have |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2138 + * the 'direct' mode attribute set */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2139 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2140 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2141 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2142 + case MEM: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2143 + /* See what form of address was given */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2144 + X = XEXP (X, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2145 + switch (GET_CODE (X)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2146 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2147 + case SYMBOL_REF: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2148 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2149 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2150 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2151 + case CONST_INT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2152 + *total = 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2153 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2154 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2155 + case MEM: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2156 + *total = COSTS_N_INSNS (1) + 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2157 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2158 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2159 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2160 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2161 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2162 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2163 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2164 + case CONST_DOUBLE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2165 + /* TODO : not sure about this value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2166 + *total = 3; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2167 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2168 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2169 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2170 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2171 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2172 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2173 + /* Decode the rtx */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2174 + mode = GET_MODE (X); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2175 + op0 = XEXP (X, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2176 + op1 = XEXP (X, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2177 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2178 + /* We don't implement anything in SImode or greater. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2179 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2180 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2181 + *total = COSTS_N_INSNS (100); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2182 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2183 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2184 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2185 + /* Figure out if there is a constant argument, and its value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2186 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2187 + || GET_RTX_CLASS (code) == RTX_COMM_ARITH) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2188 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2189 + nargs = 2; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2190 + if (GET_CODE (op1) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2191 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2192 + has_const_arg = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2193 + const_arg = INTVAL (op1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2194 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2195 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2196 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2197 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2198 + * Ignore soft registers, since these are really in memory. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2199 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2200 + * TODO: penalize HImode reg/reg for most operations, except maybe |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2201 + * additions since index registers allow for that. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2202 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2203 + * TODO: shifts by constant N do not always require N instructions; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2204 + * some of this can be done cheaper. The number of actual insns can be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2205 + * predicted well. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2206 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2207 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2208 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2209 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2210 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2211 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2212 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2213 + *total = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2214 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2215 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2216 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2217 + the estimated number of actual machine instructions needed to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2218 + perform the computation. Some small adjustments are made since |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2219 + some "instructions" are more complex than others. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2220 + switch (code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2221 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2222 + case PLUS: case MINUS: case COMPARE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2223 + /* 6809 handles these natively in QImode, and in HImode as long |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2224 + * as operand 1 is constant. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2225 + if (mode == QImode || (mode == HImode && has_const_arg)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2226 + *total += COSTS_N_INSNS (1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2227 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2228 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2229 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2230 + /* -1, 0, and 1 can be done using inherent instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2231 + * for PLUS and MINUS in QImode, so don't add extra cost. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2232 + if (has_const_arg |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2233 + && (mode == QImode || mode == HImode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2234 + && (const_arg == -1 || const_arg == 0 || const_arg == 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2235 + && (code == PLUS || code == MINUS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2236 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2237 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2238 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2239 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2240 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2241 + case AND: case IOR: case XOR: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2242 + case NEG: case NOT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2243 + /* 6809 handles these natively in QImode, but requires |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2244 + * splitting in HImode. Treat these as 2 insns. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2245 + *total += COSTS_N_INSNS (1) * GET_MODE_SIZE (mode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2246 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2247 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2248 + case ASHIFT: case ASHIFTRT: case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2249 + case ROTATE: case ROTATERT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2250 + /* 6809 can do shift/rotates of a QImode by a constant in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2251 + * 1 insn times the shift count, or in HImode by a constant |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2252 + * by splitting to 2 insns. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2253 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2254 + * Shift by a nonconstant will take significantly longer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2255 + * than any of these. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2256 + if (has_const_arg) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2257 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2258 + const_arg %= (GET_MODE_SIZE (mode) * 8); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2259 + if (const_arg == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2260 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2261 + *total += COSTS_N_INSNS(1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2262 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2263 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2264 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2265 + /* HImode shifts greater than 8 get optimized due |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2266 + * to register transfer from b to a; this cuts down the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2267 + * cost. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2268 + if (const_arg >= 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2269 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2270 + *total += COSTS_N_INSNS (1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2271 + const_arg -= 8; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2272 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2273 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2274 + /* The computed cost is 'const_arg' 1-bit shifts, doubled |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2275 + if in HImode, minus the cost of the constant itself which |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2276 + will be added in later but really shouldn't be. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2277 + *total += COSTS_N_INSNS (const_arg) * GET_MODE_SIZE (mode) - 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2278 + return true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2279 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2280 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2281 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2282 + /* It may take up to 7 iterations of about 6-7 real |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2283 + * instructions, so make this expensive. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2284 + *total += COSTS_N_INSNS (50); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2285 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2286 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2287 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2288 + case MULT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2289 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2290 + /* Multiply is cheap when both arguments are 8-bits. They |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2291 + could be QImode, or QImode widened to HImode, or a constant |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2292 + that fits into 8-bits. As long as both operands qualify, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2293 + we can use a single mul instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2294 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2295 + Assume that fast multiply can be used, and change this if we find |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2296 + differently... */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2297 + int ok_for_qihi3 = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2298 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2299 + /* Check the first operand */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2300 + switch (GET_MODE (op0)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2301 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2302 + case QImode: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2303 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2304 + case HImode: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2305 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2306 + ok_for_qihi3 = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2307 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2308 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2309 + ok_for_qihi3 = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2310 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2311 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2312 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2313 + /* Likewise, check the second operand. This is where constants may appear. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2314 + switch (GET_MODE (op1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2315 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2316 + case QImode: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2317 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2318 + case HImode: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2319 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2320 + ok_for_qihi3 = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2321 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2322 + case VOIDmode: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2323 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K')) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2324 + ok_for_qihi3 = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2325 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2326 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2327 + ok_for_qihi3 = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2328 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2329 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2330 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2331 + /* Fast multiply takes about 4 times as many cycles as a normal |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2332 + arithmetic operation. Otherwise, it will take an expensive libcall. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2333 + if (ok_for_qihi3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2334 + *total += COSTS_N_INSNS (4); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2335 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2336 + *total = COSTS_N_INSNS (50); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2337 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2338 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2339 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2340 + case DIV: case UDIV: case MOD: case UMOD: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2341 + /* These all require more expensive libcalls. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2342 + *total += COSTS_N_INSNS (100); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2343 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2344 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2345 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2346 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2347 + /* These can normally be done with autoincrement, etc., so |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2348 + * don't charge for them. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2349 + case PRE_DEC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2350 + case PRE_INC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2351 + case POST_DEC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2352 + case POST_INC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2353 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2354 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2355 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2356 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2357 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2358 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2359 + /* Always return false, and let the caller gather the costs |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2360 + * of the operands */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2361 + return false; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2362 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2363 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2364 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2365 +static tree |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2366 +m6809_handle_fntype_attribute (tree *node, tree name, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2367 + tree args ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2368 + int flags ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2369 + bool *no_add_attrs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2370 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2371 + if (TREE_CODE (*node) != FUNCTION_TYPE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2372 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2373 + warning (WARNING_OPT "'%s' only valid for functions", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2374 + IDENTIFIER_POINTER (name)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2375 + *no_add_attrs = TRUE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2376 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2377 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2378 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2379 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2380 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2381 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2382 +static tree |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2383 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2384 + tree name ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2385 + tree args ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2386 + int flags ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2387 + bool *no_add_attrs ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2388 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2389 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2390 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2391 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2392 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2393 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2394 +static tree |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2395 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2396 + tree name ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2397 + tree args ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2398 + int flags ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2399 + bool *no_add_attrs ATTRIBUTE_UNUSED ) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2400 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2401 + return NULL_TREE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2402 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2403 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2404 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2405 +/* Table of valid machine attributes */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2406 +const struct attribute_spec m6809_attribute_table[] = { /* |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2407 +{ name, min, max, decl, type, fntype, handler } */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2408 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2409 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2410 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2411 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2412 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2413 +{ NULL, 0, 0, false, true, false, NULL }, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2414 +}; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2415 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2416 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2417 +/** Initialize builtin routines for the 6809. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2418 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2419 +m6809_init_builtins (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2420 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2421 + /* Create type trees for each function signature required. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2422 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2423 + * void_ftype_void = void f(void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2424 + * void_ftype_uchar = void f(unsigned char) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2425 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2426 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2427 + tree void_ftype_void = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2428 + build_function_type (void_type_node, void_list_node); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2429 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2430 + tree void_ftype_uchar = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2431 + build_function_type (void_type_node, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2432 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2433 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2434 + tree uchar_ftype_uchar2 = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2435 + build_function_type (unsigned_char_type_node, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2436 + tree_cons (NULL_TREE, unsigned_char_type_node, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2437 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2438 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2439 + /* Register each builtin function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2440 + add_builtin_function ("__builtin_swi", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2441 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2442 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2443 + add_builtin_function ("__builtin_swi2", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2444 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2445 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2446 + add_builtin_function ("__builtin_swi3", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2447 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2448 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2449 + add_builtin_function ("__builtin_cwai", void_ftype_uchar, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2450 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2451 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2452 + add_builtin_function ("__builtin_sync", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2453 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2454 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2455 + add_builtin_function ("__builtin_nop", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2456 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2457 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2458 + add_builtin_function ("__builtin_blockage", void_ftype_void, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2459 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2460 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2461 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2462 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2463 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2464 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2465 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2466 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2467 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2468 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2469 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2470 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2471 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2472 +/** Used by m6809_expand_builtin, given a tree ARGLIST which |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2473 + * refers to the operands of a builtin call, return an rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2474 + * that represents the nth operand, as denoted by OPNUM, which |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2475 + * is a zero-based integer. MODE gives the expected mode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2476 + * of the operand. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2477 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2478 + * This rtx is suitable for use in the emitted RTL for the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2479 + * builtin instruction. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2480 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2481 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2482 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2483 + tree arg; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2484 + rtx r; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2485 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2486 + arg = CALL_EXPR_ARG (arglist, opnum); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2487 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2488 + /* Convert the tree to RTL */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2489 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2490 + if (r == NULL_RTX) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2491 + return NULL_RTX; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2492 + return r; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2493 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2494 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2495 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2496 +/** Expand a builtin that was registered in init_builtins into |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2497 + * RTL. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2498 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2499 +m6809_expand_builtin (tree exp, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2500 + rtx target, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2501 + rtx subtarget ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2502 + enum machine_mode mode ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2503 + int ignore ATTRIBUTE_UNUSED ) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2504 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2505 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2506 + tree arglist = exp; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2507 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2508 + rtx r0, r1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2509 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2510 + switch (fcode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2511 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2512 + case M6809_SWI: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2513 + r0 = gen_rtx_CONST_INT (VOIDmode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2514 + emit_insn (target = gen_m6809_swi (r0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2515 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2516 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2517 + case M6809_SWI2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2518 + r0 = gen_rtx_CONST_INT (VOIDmode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2519 + emit_insn (target = gen_m6809_swi (r0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2520 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2521 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2522 + case M6809_SWI3: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2523 + r0 = gen_rtx_CONST_INT (VOIDmode, 3); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2524 + emit_insn (target = gen_m6809_swi (r0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2525 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2526 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2527 + case M6809_CWAI: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2528 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2529 + emit_insn (target = gen_m6809_cwai (r0)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2530 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2531 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2532 + case M6809_SYNC: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2533 + emit_insn (target = gen_m6809_sync ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2534 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2535 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2536 + case M6809_ADD_CARRY: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2537 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2538 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2539 + if (!target) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2540 + target = gen_reg_rtx (QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2541 + emit_insn (gen_addqi3_carry (target, r0, r1)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2542 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2543 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2544 + case M6809_SUB_CARRY: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2545 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2546 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2547 + if (!target) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2548 + target = gen_reg_rtx (QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2549 + emit_insn (gen_subqi3_carry (target, r0, r1)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2550 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2551 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2552 + case M6809_NOP: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2553 + emit_insn (target = gen_nop ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2554 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2555 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2556 + case M6809_BLOCKAGE: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2557 + emit_insn (target = gen_blockage ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2558 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2559 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2560 + case M6809_ADD_DECIMAL: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2561 + r0 = m6809_builtin_operand (arglist, QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2562 + r1 = m6809_builtin_operand (arglist, QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2563 + if (!target) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2564 + target = gen_reg_rtx (QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2565 + emit_insn (gen_addqi3_decimal (target, r0, r1)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2566 + return target; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2567 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2568 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2569 + warning (WARNING_OPT "unknown builtin expansion ignored"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2570 + return NULL_RTX; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2571 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2572 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2573 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2574 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2575 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2576 +/* Returns nonzero if 'x' represents a function that was declared |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2577 + * as __noreturn__. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2578 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2579 +noreturn_functionp (rtx x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2580 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2581 + tree decl = call_target_decl (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2582 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2583 + if (decl == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2584 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2585 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2586 + return TREE_THIS_VOLATILE (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2587 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2588 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2589 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2590 +const char * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2591 +far_function_type_p (tree type) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2592 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2593 + tree attr; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2594 + const char *page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2595 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2596 + /* Return whether or not this decl has the far attribute */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2597 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2598 + if (attr == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2599 + return NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2600 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2601 + /* If it is far, check for a value */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2602 + attr = TREE_VALUE (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2603 + if (attr == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2604 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2605 + warning (WARNING_OPT "far code page not specified, using local value"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2606 + return far_code_page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2607 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2608 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2609 + /* We have a TREE_LIST of attribute values, get the first one. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2610 + * It should be an INTEGER_CST. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2611 + attr = TREE_VALUE (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2612 + page = TREE_STRING_POINTER (attr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2613 + return page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2614 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2615 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2616 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2617 +/* For a far function, returns the identifier that states which page |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2618 + * it resides in. Otherwise, returns NULL for ordinary functions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2619 +const char * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2620 +far_functionp (rtx x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2621 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2622 + tree decl, decl_type; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2623 + const char *page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2624 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2625 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2626 + decl = call_target_decl (x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2627 + if (decl == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2628 + return NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2629 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2630 + /* See if the function has the new 'banked' attribute. These |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2631 + * are numeric instead of text */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2632 + page = m6809_get_decl_bank (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2633 + if (page) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2634 + return page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2635 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2636 + /* No, lookup the type of the function and see if the type |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2637 + * specifies far or not. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2638 + decl_type = TREE_TYPE (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2639 + if (decl_type == NULL_TREE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2640 + return NULL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2641 + return far_function_type_p (decl_type); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2642 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2643 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2644 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2645 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2646 +/** Outputs the assembly language for a far call. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2647 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2648 +output_far_call_insn (rtx *operands, int has_return) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2649 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2650 + static char page_data[64]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2651 + const char *called_page; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2652 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2653 + /* The logic is the same for functions whether or not there |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2654 + * is a return value. Skip over the return value in this |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2655 + * case, so that the call location is always operands[0]. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2656 + if (has_return) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2657 + operands++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2658 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2659 + /* Get the name of the page being called */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2660 + called_page = far_functionp (operands[0]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2661 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2662 +#if 0 /* TODO : broken logic */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2663 + /* See if the called page name is a 'bank' */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2664 + if (isdigit (*called_page)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2665 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2666 + /* New style banking */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2667 + if (!strcmp (called_page, current_bank_name)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2668 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2669 + /* Same page */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2670 + output_asm_insn ("jsr\t%0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2671 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2672 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2673 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2674 + /* Different page */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2675 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2676 + output_asm_insn ("\t.dw\t%0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2677 + sprintf (page_data, "\t.db\t%s", called_page); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2678 + output_asm_insn (page_data, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2679 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2680 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2681 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2682 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2683 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2684 + /* Are we calling a different page than we are running in? */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2685 + if (!strcmp (called_page, far_code_page)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2686 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2687 + /* Same page : no need to execute a far call */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2688 + if (flag_pic) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2689 + output_asm_insn ("lbsr\t%C0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2690 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2691 + output_asm_insn ("jsr\t%0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2692 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2693 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2694 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2695 + /* Different page : need to emit far call thunk */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2696 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2697 + /* First output a call to the thunk for making far calls. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2698 + if (flag_pic) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2699 + output_asm_insn ("lbsr\t__far_call_handler", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2700 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2701 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2702 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2703 + /* Now output the name of the call site */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2704 + output_asm_insn ("\t.dw\t%C0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2705 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2706 + /* Finally output the page number */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2707 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0])); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2708 + output_asm_insn (page_data, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2709 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2710 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2711 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2712 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2713 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2714 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2715 + tree fntype, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2716 + rtx libname ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2717 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2718 + cum = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2719 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2720 + /* For far functions, the current implementation does not allow for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2721 + * stack parameters. So note whenever the called function is far |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2722 + * and in a different page than the current one; such a function |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2723 + * should give an error if a stack parameter is generated. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2724 + if (fntype) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2725 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2726 + const char *called_page = far_function_type_p (fntype); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2727 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2728 + cum |= CUM_STACK_INVALID; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2729 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2730 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2731 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2732 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2733 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2734 + /* has variable arguments, cannot use registers */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2735 + cum |= (CUM_X_MASK | CUM_B_MASK | CUM_STACK_ONLY); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2736 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2737 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2738 + if (m6809_abi_version == M6809_ABI_VERSION_STACK) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2739 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2740 + /* cannot use registers ; only use the stack */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2741 + cum |= (CUM_STACK_ONLY | CUM_X_MASK | CUM_B_MASK); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2742 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2743 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2744 + return cum; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2745 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2746 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2747 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2748 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2749 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2750 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2751 + if (*cump & CUM_STACK_INVALID) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2752 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2753 + *cump &= ~CUM_STACK_INVALID; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2754 + error ("far function needs stack, will not work"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2755 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2756 + return NULL_RTX; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2757 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2758 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2759 +void m6809_asm_trampoline_template(FILE *f) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2760 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2761 + fprintf(f, "ldy #0000\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2762 + fprintf(f, "jmp 0x0000\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2763 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2764 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2765 +/* |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2766 + * Trampoline output: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2767 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2768 + * ldu #&cxt 4 bytes --LDY- ?? ?? |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2769 + * jmp fnaddr 3 bytes JMP ?? ?? |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2770 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2771 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2772 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2773 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2774 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2775 + /* TODO - optimize by generating the entire trampoline code here, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2776 + * and removing the template altogether, since there are only two |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2777 + * bytes there that matter. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2778 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2779 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2780 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2781 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2782 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2783 +/** Echo the version of the compiler and the name of the source file |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2784 + * at the beginning of each assembler output file. asm_out_file |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2785 + * is a global FILE * pointing to the output stream. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2786 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2787 +m6809_asm_file_start (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2788 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2789 + const char *module_name; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2790 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2791 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2792 + __DATE__, __TIME__); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2793 + fprintf (asm_out_file, ";;; %s\n", version_string); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2794 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2795 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2796 + fprintf (asm_out_file, ";;; %s\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2797 + (TARGET_BYTE_INT ? "-mint8" : "-mint16")); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2798 + if (TARGET_EXPERIMENT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2799 + fprintf (asm_out_file, ";;; -mexperiment\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2800 + if (TARGET_WPC) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2801 + fprintf (asm_out_file, ";;; -mwpc\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2802 + if (TARGET_6309) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2803 + fprintf (asm_out_file, ";;; -m6309\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2804 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2805 + /* Print the name of the module, which is taken as the base name |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2806 + * of the input file. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2807 + * See the 'User-Defined Symbols' section of the assembler |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2808 + * documentation for the rules on valid symbols. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2809 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2810 + module_name = lbasename (main_input_filename); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2811 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2812 + fprintf (asm_out_file, "\t.module\t"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2813 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2814 + if (*module_name >= '0' && *module_name <= '9') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2815 + fprintf (asm_out_file, "_"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2816 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2817 + while (*module_name) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2818 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2819 + if ((*module_name >= '0' && *module_name <= '9') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2820 + || (*module_name >= 'A' && *module_name <= 'Z') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2821 + || (*module_name >= 'a' && *module_name <= 'z') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2822 + || *module_name == '$' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2823 + || *module_name == '.' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2824 + || *module_name == '_') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2825 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2826 + fprintf (asm_out_file, "%c", *module_name); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2827 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2828 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2829 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2830 + fprintf (asm_out_file, "_"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2831 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2832 + module_name++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2833 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2834 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2835 + fprintf (asm_out_file, "\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2836 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2837 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2838 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2839 +/** Returns true if prologue/epilogue code is required for the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2840 + * current function being compiled. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2841 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2842 + * This is just the inverse of whether the function is declared as |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2843 + * 'naked'. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2844 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2845 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2846 +prologue_epilogue_required (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2847 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2848 + return !m6809_current_function_has_type_attr_p ("naked") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2849 + && !m6809_current_function_has_type_attr_p ("noreturn"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2850 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2851 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2852 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2853 +/** Expand RTL for function entry */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2854 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2855 +emit_prologue_insns (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2856 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2857 + rtx insn; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2858 + unsigned int live_regs = m6809_get_live_regs (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2859 + unsigned int frame_size = get_frame_size (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2860 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2861 + /* Save all registers used, including the frame pointer */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2862 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2863 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2864 + insn = emit_insn ( |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2865 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2866 + RTX_FRAME_RELATED_P (insn) = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2867 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2868 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2869 + /* Allocate space for local variables */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2870 + if (frame_size != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2871 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2872 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2873 + RTX_FRAME_RELATED_P (insn) = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2874 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2875 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2876 + /* Set the frame pointer if it is needed */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2877 + if (frame_pointer_needed) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2878 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2879 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2880 + RTX_FRAME_RELATED_P (insn) = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2881 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2882 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2883 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2884 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2885 +/** Expand RTL for function exit */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2886 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2887 +emit_epilogue_insns (bool sibcall_p) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2888 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2889 + unsigned int live_regs = m6809_get_live_regs (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2890 + unsigned int frame_size = get_frame_size (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2891 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2892 + if (frame_size != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2893 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2894 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2895 + if (sibcall_p) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2896 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2897 + if (live_regs) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2898 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2899 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2900 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2901 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2902 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2903 + emit_insn ( |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2904 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT | live_regs)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2905 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2906 + if (m6809_current_function_has_type_attr_p ("interrupt")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2907 + emit_jump_insn (gen_return_rti ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2908 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2909 + emit_jump_insn (gen_return_rts ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2910 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2911 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2912 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2913 +#if 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2914 +/** Predefine some preprocessor names according to the currently |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2915 + * selected compiler options */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2916 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2917 +m6809_cpu_cpp_builtins (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2918 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2919 + if (TARGET_6309) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2920 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2921 + builtin_define_std ("__M6309__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2922 + builtin_define_std ("__m6309__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2923 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2924 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2925 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2926 + builtin_define_std ("__M6809__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2927 + builtin_define_std ("__m6809__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2928 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2929 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2930 + if (TARGET_BYTE_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2931 + builtin_define_std ("__int8__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2932 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2933 + builtin_define_std ("__int16__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2934 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2935 + switch (m6809_abi_version) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2936 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2937 + case M6809_ABI_VERSION_STACK: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2938 + builtin_define_std ("__regargs__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2939 + builtin_define_std ("__ABI_STACK__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2940 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2941 + case M6809_ABI_VERSION_REGS: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2942 + builtin_define_std ("__ABI_REGS__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2943 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2944 + case M6809_ABI_VERSION_BX: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2945 + builtin_define_std ("__ABI_BX__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2946 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2947 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2948 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2949 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2950 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2951 + if (TARGET_WPC) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2952 + builtin_define_std ("__WPC__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2953 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2954 + if (TARGET_DRET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2955 + builtin_define_std ("__DRET__"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2956 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2957 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2958 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2959 +#define MAX_ASM_ASCII_STRING 48 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2960 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2961 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2962 +m6809_output_ascii (FILE *fp, const char *str, unsigned long size) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2963 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2964 + unsigned long i; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2965 + bool use_ascii = true; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2966 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2967 + /* If the size is too large, then break this up into multiple |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2968 + outputs. The assembler can only output roughly 48 bytes at a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2969 + time. Note that if there are lots of escape sequences in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2970 + the string, this may fail. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2971 + if (size > MAX_ASM_ASCII_STRING) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2972 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2973 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2974 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2975 + size - MAX_ASM_ASCII_STRING); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2976 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2977 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2978 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2979 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2980 + for (i = 0; i < size; i++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2981 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2982 + int c = str[i] & 0377; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2983 + if (c >= 0x80) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2984 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2985 + use_ascii = false; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2986 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2987 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2988 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2989 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2990 + if (use_ascii) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2991 + fprintf (fp, "\t.ascii \""); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2992 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2993 + for (i = 0; i < size; i++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2994 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2995 + int c = str[i] & 0377; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2996 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2997 + if (use_ascii) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2998 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
2999 + /* Just output the plain character if it is printable, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3000 + otherwise output the escape code for the character. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3001 + The assembler recognizes the same C-style octal escape sequences, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3002 + except that it only supports 7-bit codes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3003 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3004 + putc (c, fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3005 + else switch (c) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3006 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3007 + case '\n': |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3008 +#ifndef TARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3009 + fputs ("\\n", fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3010 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3011 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3012 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3013 + case '\r': |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3014 + fputs ("\\r", fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3015 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3016 + case '\t': |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3017 + fputs ("\\t", fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3018 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3019 + case '\f': |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3020 + fputs ("\\f", fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3021 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3022 + case 0: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3023 + fputs ("\\0", fp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3024 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3025 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3026 + fprintf (fp, "\\%03o", c); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3027 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3028 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3029 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3030 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3031 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3032 + fprintf (fp, "\t.byte\t0x%02X\n", c); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3033 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3034 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3035 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3036 + if (use_ascii) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3037 + fprintf (fp, "\"\n"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3038 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3039 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3040 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3041 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3042 +m6809_output_quoted_string (FILE *asm_file, const char *string) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3043 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3044 + char c; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3045 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3046 + if (strlen (string) > MAX_ASM_ASCII_STRING) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3047 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3048 + /* The string length is too large. We'll have to truncate it. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3049 + This is only called from debugging functions, so it's usually |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3050 + not critical. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3051 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3052 + char truncated_string[MAX_ASM_ASCII_STRING+1]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3053 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3054 + /* Copy as many characters as we can. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3055 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3056 + truncated_string[MAX_ASM_ASCII_STRING] = '\0'; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3057 + string = truncated_string; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3058 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3059 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3060 + /* Copied from toplev.c */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3061 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3062 + putc ('\"', asm_file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3063 + while ((c = *string++) != 0) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3064 + if (ISPRINT (c)) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3065 + if (c == '\"' || c == '\\') |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3066 + putc ('\\', asm_file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3067 + putc (c, asm_file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3068 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3069 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3070 + fprintf (asm_file, "\\%03o", (unsigned char) c); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3071 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3072 + putc ('\"', asm_file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3073 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3074 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3075 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3076 +/** Output the assembly code for a shift instruction where the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3077 + * shift count is not constant. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3078 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3079 +m6809_output_shift_insn (int rtx_code, rtx *operands) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3080 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3081 + struct shift_opcode *op; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3082 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3083 + if (GET_CODE (operands[2]) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3084 + abort (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3085 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3086 + if (optimize_size && GET_MODE (operands[0]) == HImode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3087 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3088 + switch (rtx_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3089 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3090 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3091 + output_asm_insn ("jsr\t_ashlhi3", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3092 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3093 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3094 + output_asm_insn ("jsr\t_ashrhi3", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3095 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3096 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3097 + output_asm_insn ("jsr\t_lshrhi3", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3098 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3099 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3100 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3101 + else if (GET_MODE (operands[0]) == HImode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3102 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3103 + switch (rtx_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3104 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3105 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3106 + m6809_gen_register_shift (operands, "aslb", "rola"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3107 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3108 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3109 + m6809_gen_register_shift (operands, "asra", "rorb"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3110 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3111 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3112 + m6809_gen_register_shift (operands, "lsra", "rorb"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3113 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3114 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3115 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3116 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3117 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3118 + switch (rtx_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3119 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3120 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3121 + m6809_gen_register_shift (operands, "aslb", NULL); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3122 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3123 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3124 + m6809_gen_register_shift (operands, "asrb", NULL); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3125 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3126 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3127 + m6809_gen_register_shift (operands, "lsrb", NULL); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3128 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3129 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3130 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3131 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3132 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3133 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3134 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3135 +m6809_emit_move_insn (rtx dst, rtx src) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3136 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3137 + emit_insn (gen_rtx_SET (VOIDmode, dst, src)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3138 + if (ACC_A_REG_P (dst)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3139 + emit_insn (gen_rtx_USE (VOIDmode, dst)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3140 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3141 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3142 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3143 +/** Split a complex shift instruction into multiple CPU |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3144 + * shift instructions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3145 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3146 +m6809_split_shift (enum rtx_code code, rtx *operands) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3147 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3148 + enum machine_mode mode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3149 + int count; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3150 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3151 + mode = GET_MODE (operands[0]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3152 + count = INTVAL (operands[2]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3153 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3154 + /* Handle a shift count outside the range of 0 .. N-1, where |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3155 + * N is the mode size in bits. We normalize the count, and |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3156 + * for negative counts we also invert the direction of the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3157 + * shift. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3158 + if ((count < 0) || (count >= 8 * GET_MODE_SIZE (mode))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3159 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3160 + if (count < 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3161 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3162 + count = -count; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3163 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3164 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3165 + count %= (8 * GET_MODE_SIZE (mode)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3166 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3167 + gen_rtx_fmt_ee (code, mode, operands[1], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3168 + gen_rtx_CONST_INT (VOIDmode, count))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3169 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3170 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3171 + /* Handle shift by zero explicitly as a no-op. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3172 + if (count == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3173 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3174 + emit_insn (gen_nop ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3175 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3176 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3177 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3178 + /* Decompose the shift by a constant N > 8 into two |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3179 + * shifts, first by 8 and then by N-8. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3180 + * This "speeds up" the process for large shifts that would be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3181 + * handled below, but allows for some optimization. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3182 + * In some cases shift by 8 can be implemented fast. If an |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3183 + * instruction to shift by 8 is defined, it will be used here; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3184 + * otherwise it will be further decomposed as below. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3185 + if (mode == HImode && count > 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3186 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3187 + rtx output = operands[0]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3188 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3189 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3190 + gen_rtx_fmt_ee (code, mode, operands[1], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3191 + gen_rtx_CONST_INT (VOIDmode, 8))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3192 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3193 + /* Unsigned shifts always produce a zero in either the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3194 + * upper or lower half of the output; then, that part |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3195 + * does not need to be shifted anymore. We modify the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3196 + * output and the subsequent instructions to operate in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3197 + * QImode only on the relevant part. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3198 + if (REG_P (output)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3199 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3200 + if (code == ASHIFT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3201 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3202 + output = gen_rtx_REG (QImode, HARD_A_REGNUM); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3203 + mode = QImode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3204 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3205 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3206 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3207 + output = gen_rtx_REG (QImode, HARD_D_REGNUM); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3208 + mode = QImode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3209 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3210 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3211 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3212 + m6809_emit_move_insn (output, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3213 + gen_rtx_fmt_ee (code, mode, copy_rtx (output), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3214 + gen_rtx_CONST_INT (VOIDmode, count-8))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3215 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3216 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3217 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3218 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3219 + * (near to the maximum of 8) as a rotate and mask. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3220 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3221 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3222 + unsigned int mask; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3223 + unsigned int was_signed = (code == ASHIFTRT); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3224 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3225 + code = (code == ASHIFT) ? ROTATERT : ROTATE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3226 + if (code == ROTATE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3227 + mask = (count == 6) ? 0x03 : 0x01; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3228 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3229 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3230 + count = 9 - count; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3231 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3232 + do { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3233 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3234 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3235 + } while (--count != 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3236 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3237 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3238 + gen_rtx_fmt_ee (AND, QImode, operands[1], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3239 + gen_rtx_CONST_INT (VOIDmode, mask))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3240 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3241 + if (was_signed) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3242 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3243 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0]))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3244 + if (ACC_A_REG_P (operands[0])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3245 + emit_insn (gen_rtx_USE (VOIDmode, operands[0])); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3246 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3247 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3248 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3249 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3250 + /* Decompose the shift by any constant N > 1 into a sequence |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3251 + * of N shifts. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3252 + * This is done recursively, by creating a shift by 1 and a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3253 + * shift by N-1, as long as N>1. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3254 + if (count > 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3255 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3256 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3257 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3258 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3259 + m6809_emit_move_insn (operands[0], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3260 + gen_rtx_fmt_ee (code, mode, operands[1], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3261 + gen_rtx_CONST_INT (VOIDmode, count-1))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3262 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3263 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3264 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3265 + /* Decompose the single shift of a 16-bit quantity into two |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3266 + * CPU instructions, one for each 8-bit half. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3267 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3268 + if (mode == HImode && count == 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3269 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3270 + rtx first, second; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3271 + enum rtx_code rotate_code; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3272 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3273 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3274 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3275 + /* Split the operand into two 8-bit entities. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3276 + * FIRST is the one that will get shifted via a regular CPU |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3277 + * instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3278 + * SECOND is the one that will have the result of the first shift |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3279 + * rotated in. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3280 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3281 + * We initialize first and second as if we are doing a left shift, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3282 + * then swap the operands if it's a right shift. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3283 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3284 + if (REG_P (operands[0])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3285 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3286 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3287 + second = gen_rtx_REG (QImode, HARD_A_REGNUM); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3288 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3289 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3290 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3291 + first = adjust_address (operands[0], QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3292 + second = adjust_address (operands[0], QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3293 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3294 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3295 + if (rotate_code == ROTATERT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3296 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3297 + rtx tmp; tmp = first; first = second; second = tmp; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3298 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3299 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3300 + /* Decompose into a shift and a rotate instruction. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3301 + m6809_emit_move_insn (first, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3302 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3303 + m6809_emit_move_insn (second, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3304 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3305 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3306 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3307 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3308 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3309 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3310 +/** Adjust register usage based on compile-time flags. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3311 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3312 +m6809_conditional_register_usage (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3313 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3314 + unsigned int soft_regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3315 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3316 +#ifdef CONFIG_SOFT_REGS_ALWAYS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3317 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3318 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3319 + if (!m6809_soft_reg_count) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3320 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3321 + m6809_soft_regs = atoi (m6809_soft_reg_count); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3322 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3323 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3324 + if (m6809_soft_regs == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3325 + return; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3326 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3327 + if (m6809_soft_regs > NUM_M_REGS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3328 + m6809_soft_regs = NUM_M_REGS; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3329 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3330 + /* Registers are marked FIXED by default. Free up if |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3331 + the user wishes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3332 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3333 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3334 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3335 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3336 + /* Mark the softregs as call-clobbered, so that they need |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3337 + * not be saved/restored on function entry/exit. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3338 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3339 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3340 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3341 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3342 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3343 +/** Return a RTX representing how to return a value from a function. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3344 + VALTYPE gives the type of the value, FUNC identifies the function |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3345 + itself. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3346 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3347 + In general, we only care about the width of the result. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3348 +rtx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3349 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3350 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3351 + unsigned int regno; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3352 + enum machine_mode mode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3353 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3354 + /* Get the mode (i.e. width) of the result. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3355 + mode = TYPE_MODE (valtype); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3356 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3357 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3358 + regno = HARD_Z_REGNUM; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3359 + else if (mode == QImode || (TARGET_DRET && mode == HImode)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3360 + regno = HARD_D_REGNUM; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3361 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3362 + regno = HARD_X_REGNUM; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3363 + return gen_rtx_REG (mode, regno); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3364 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3365 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3366 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3367 +/** Return 1 if REGNO is possibly needed to return the result |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3368 +of a function, 0 otherwise. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3369 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3370 +m6809_function_value_regno_p (unsigned int regno) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3371 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3372 + if (regno == HARD_Z_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3373 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3374 + else if ((TARGET_BYTE_INT || TARGET_DRET) && regno == HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3375 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3376 + else if (!TARGET_DRET && regno == HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3377 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3378 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3379 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3380 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3381 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3382 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3383 +#ifdef TRACE_PEEPHOLE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3384 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3385 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3386 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3387 + if (stage == PEEP_END) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3388 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3389 + printf ("%s: peephole %d pattern and predicate matched\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3390 + main_input_filename, peephole_id); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3391 + fflush (stdout); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3392 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3393 + else if (stage == PEEP_COND) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3394 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3395 + printf ("%s: peephole %d? at least pattern matched\n", |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3396 + main_input_filename, peephole_id); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3397 + fflush (stdout); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3398 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3399 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3400 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3401 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3402 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3403 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3404 + unsigned int stage ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3405 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3406 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3407 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3408 +#endif /* TRACE_PEEPHOLE */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3409 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3410 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3411 +/** Return 1 if it is OK to store a value of MODE in REGNO. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3412 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3413 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3414 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3415 + /* Soft registers, as they are just memory, can really hold |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3416 + values of any type. However we restrict them to values of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3417 + size HImode or QImode to prevent exhausting them for larger |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3418 + values. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3419 + Word values cannot be placed into the first soft register, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3420 + as it is the low byte that is being placed there, which |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3421 + corrupts the (non-soft) register before it. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3422 + if (M_REGNO_P (regno)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3423 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3424 + switch (GET_MODE_SIZE (mode)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3425 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3426 + case 1: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3427 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3428 + case 2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3429 + return regno != SOFT_M0_REGNUM; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3430 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3431 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3432 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3433 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3434 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3435 + /* VOIDmode can be stored anywhere */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3436 + else if (mode == VOIDmode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3437 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3438 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3439 + /* Zero is a reserved register, but problems occur if we don't |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3440 + say yes here??? */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3441 + else if (regno == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3442 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3443 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3444 + /* For other registers, return true only if the requested size |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3445 + exactly matches the hardware size. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3446 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3447 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3448 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3449 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3450 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3451 + return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3452 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3453 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3454 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3455 +/* exp is the call expression. DECL is the called function, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3456 + * or NULL for an indirect call */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3457 +bool |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3458 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3459 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3460 + tree type, arg; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3461 + const char *name; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3462 + bool result = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3463 + int argcount = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3464 + int step = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3465 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3466 + /* If there is no DECL, it is an indirect call. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3467 + * Never optimize this??? */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3468 + if (decl == NULL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3469 + goto done; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3470 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3471 + /* Never allow an interrupt handler to be optimized this way. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3472 + if (m6809_function_has_type_attr_p (decl, "interrupt")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3473 + goto done; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3474 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3475 + /* Skip sibcall if the type can't be found for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3476 + * some reason */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3477 + step++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3478 + name = IDENTIFIER_POINTER (DECL_NAME (decl)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3479 + type = TREE_TYPE (decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3480 + if (type == NULL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3481 + goto done; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3482 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3483 + /* Skip sibcall if the target is a far function */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3484 + step++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3485 + if (far_function_type_p (type) != NULL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3486 + goto done; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3487 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3488 + /* Skip sibcall if the called function's arguments are |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3489 + * variable */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3490 + step++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3491 + if (TYPE_ARG_TYPES (type) == NULL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3492 + goto done; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3493 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3494 + /* Allow sibcalls in other cases. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3495 + result = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3496 +done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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); */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3498 + return result; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3499 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3500 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3501 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3502 +/** Emit code for the 'casesi' pattern. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3503 + * This pattern is only used in 8-bit mode, and can be disabled |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3504 + * with -mold-case there as well. The rationale for this is to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3505 + * do a better job than the simpler but well-tested 'tablejump' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3506 + * method. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3507 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3508 + * For small jumptables, where the switch expression is an |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3509 + * 8-bit value, the lookup can be done more efficiently |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3510 + * using the "B,X" style index mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3511 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3512 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3513 + rtx table_label, rtx default_label) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3514 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3515 + enum machine_mode mode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3516 + rtx scaled; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3517 + rtx table_in_reg; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3518 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3519 + /* expr.c has to be patched so that it does not promote |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3520 + * the expression to SImode, but rather to HImode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3521 + * Fail now if that isn't the case. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3522 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3523 + error ("try_casesi promotion bug"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3524 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3525 + /* Determine whether or not we are going to work primarily in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3526 + * QImode or HImode. This depends on the size of the index |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3527 + * into the lookup table. QImode can only be used when the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3528 + * index is less than 0x40, since it will be doubled but |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3529 + * must remain unsigned. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3530 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3531 + mode = QImode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3532 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3533 + mode = HImode; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3534 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3535 + /* Convert to QImode if necessary */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3536 + if (mode == QImode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3537 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3538 + index = gen_lowpart_general (mode, index); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3539 + lower_bound = gen_lowpart_general (mode, lower_bound); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3540 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3541 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3542 + /* Translate from case value to table index by subtraction */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3543 + if (lower_bound != const0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3544 + index = expand_binop (mode, sub_optab, index, lower_bound, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3545 + NULL_RTX, 0, OPTAB_LIB_WIDEN); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3546 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3547 + /* Emit compare-and-jump to test for index out-of-range */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3548 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3549 + default_label); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3550 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3551 + /* Put the table address is in a register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3552 + table_in_reg = gen_reg_rtx (Pmode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3553 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3554 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3555 + /* Emit table lookup and jump */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3556 + if (mode == QImode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3557 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3558 + /* Scale the index */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3559 + scaled = gen_reg_rtx (QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3560 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3561 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3562 + /* Emit the jump */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3563 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3564 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3565 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3566 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3567 + /* Scale the index */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3568 + emit_insn (gen_ashlhi3 (index, index, const1_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3569 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3570 + /* Emit the jump */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3571 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3572 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3573 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3574 + /* Copied from expr.c */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3575 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3576 + emit_barrier (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3577 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3578 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3579 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3580 +/** Output the assembly code for a 32-bit add/subtract. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3581 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3582 +m6809_output_addsi3 (int rtx_code, rtx *operands) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3583 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3584 + rtx xoperands[8]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3585 + rtx dst = operands[0]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3586 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3587 + /* Prepare the operands by splitting each SImode into two HImodes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3588 + that can be operated independently. The high word of operand 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3589 + is further divided into two QImode components for use with 'adc' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3590 + style instructions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3591 + xoperands[7] = operands[3]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3592 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3593 + xoperands[0] = adjust_address (dst, HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3594 + xoperands[3] = adjust_address (dst, HImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3595 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3596 +#if 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3597 + xoperands[2] = adjust_address (operands[1], HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3598 + xoperands[6] = adjust_address (operands[1], HImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3599 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3600 + /* Operand 2 may be a MEM or a CONST_INT */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3601 + if (GET_CODE (operands[2]) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3602 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3603 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3604 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3605 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3606 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3607 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3608 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3609 + xoperands[1] = adjust_address (operands[2], HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3610 + xoperands[4] = adjust_address (operands[2], QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3611 + xoperands[5] = adjust_address (operands[2], QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3612 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3613 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3614 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3615 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3616 +#if 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3617 + xoperands[1] = adjust_address (operands[1], HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3618 + xoperands[4] = adjust_address (operands[1], QImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3619 + xoperands[5] = adjust_address (operands[1], QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3620 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3621 + /* Operand 2 may be a MEM or a CONST_INT */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3622 + if (GET_CODE (operands[2]) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3623 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3624 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3625 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3626 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3627 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3628 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3629 + xoperands[2] = adjust_address (operands[2], HImode, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3630 + xoperands[6] = adjust_address (operands[2], HImode, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3631 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3632 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3633 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3634 + /* Output the assembly code. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3635 + if (rtx_code == PLUS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3636 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3637 + output_asm_insn ("ld%7\t%2", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3638 + output_asm_insn ("add%7\t%1", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3639 + output_asm_insn ("st%7\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3640 + output_asm_insn ("ld%7\t%6", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3641 + output_asm_insn ("adcb\t%5", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3642 + output_asm_insn ("adca\t%4", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3643 + output_asm_insn ("st%7\t%3", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3644 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3645 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3646 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3647 + output_asm_insn ("ld%7\t%2", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3648 + output_asm_insn ("sub%7\t%1", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3649 + output_asm_insn ("st%7\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3650 + output_asm_insn ("ld%7\t%6", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3651 + output_asm_insn ("sbcb\t%5", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3652 + output_asm_insn ("sbca\t%4", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3653 + output_asm_insn ("st%7\t%3", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3654 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3655 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3656 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3657 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3658 +#if 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3659 +/** Output the assembly code for a 32-bit shift. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3660 +Operands 0 and 1 must be the same rtx, forced by a matching |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3661 +constraint. Operand 2 must be a CONST_INT. Operand 3 is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3662 +"d" in case a temporary reg is needed. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3663 +void |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3664 +m6809_output_shiftsi3 (int rtx_code, rtx *operands) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3665 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3666 + unsigned int count = INTVAL (operands[2]) % 32; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3667 + unsigned int size = 4; /* sizeof (SImode) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3668 + int s; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3669 + rtx xoperands[4]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3670 + int op; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3671 + int start, end, step; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3672 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3673 + /* Initialize */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3674 + if (rtx_code == ASHIFT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3675 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3676 + start = size-1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3677 + end = -1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3678 + step = -1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3679 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3680 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3681 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3682 + start = 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3683 + end = size; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3684 + step = 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3685 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3686 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3687 + xoperands[2] = operands[2]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3688 + xoperands[3] = operands[3]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3689 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3690 + if (count <= 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3691 + abort (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3692 + if (rtx_code == ROTATE || rtx_code == ROTATERT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3693 + abort (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3694 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3695 + /* Extract bit shifts over 16 bits by HImode moves. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3696 + if (count >= 16) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3697 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3698 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3699 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3700 + /* Extract bit shifts over 8 bits by QImode moves. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3701 + if (count >= 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3702 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3703 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3704 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3705 + /* Iterate over the number of bits to be shifted. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3706 + while (count > 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3707 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3708 + /* Each bit to be shifted requires 1 proper bit shift |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3709 + and 3 rotates. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3710 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3711 + /* First, do the arithmetic/logical shift. Left shifts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3712 + start from the LSB; right shifts start from the MSB. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3713 + xoperands[0] = adjust_address (operands[0], QImode, start); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3714 + switch (rtx_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3715 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3716 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3717 + output_asm_insn ("asl\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3718 + start--; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3719 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3720 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3721 + output_asm_insn ("asr\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3722 + start++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3723 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3724 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3725 + output_asm_insn ("lsr\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3726 + start++; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3727 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3728 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3729 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3730 + /* Next, rotate the other bytes */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3731 + for (s = start; s != end; s += step) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3732 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3733 + xoperands[0] = adjust_address (operands[0], QImode, s); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3734 + switch (rtx_code) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3735 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3736 + case ASHIFT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3737 + output_asm_insn ("rol\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3738 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3739 + case ASHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3740 + case LSHIFTRT: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3741 + output_asm_insn ("ror\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3742 + break; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3743 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3744 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3745 + count--; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3746 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3747 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3748 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3749 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3750 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3751 +power_of_two_p (unsigned int n) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3752 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3753 + return (n & (n-1)) == 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3754 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3755 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3756 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3757 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3758 +m6809_can_eliminate (int from, int to) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3759 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3760 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3761 + return !frame_pointer_needed; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3762 + return 1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3763 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3764 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3765 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3766 +int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3767 +m6809_initial_elimination_offset (int from, int to) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3768 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3769 + switch (from) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3770 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3771 + case ARG_POINTER_REGNUM: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3772 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3773 + case FRAME_POINTER_REGNUM: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3774 + return get_frame_size (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3775 + default: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3776 + gcc_unreachable (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3777 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3778 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3779 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3780 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3781 +bool |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3782 +m6809_frame_pointer_required (void) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3783 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3784 + return false; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3785 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3786 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3787 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3788 +/* Defines the target-specific hooks structure. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3789 +struct gcc_target targetm = TARGET_INITIALIZER; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3793 @@ -0,0 +1,1352 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3794 +/* Definitions of target machine for GNU compiler. MC6809 version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3795 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3796 + MC6809 Version by Tom Jones (jones@sal.wisc.edu) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3797 + Space Astronomy Laboratory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3798 + University of Wisconsin at Madison |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3799 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3800 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3801 + ( msdoerfe@informatik.uni-erlangen.de ) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3802 + also added #pragma interrupt (inspired by gcc-6811) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3803 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3804 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3805 + (ebotcazou@multimania.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3806 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3807 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3808 + (ebotcazou@multimania.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3809 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3810 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3811 + (ebotcazou@multimania.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3812 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3813 + changes for gcc-3.1.1 by ??? |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3814 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3815 + further changes for gcc-3.1.1 and beyond by Brian Dominy |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3816 + (brian@oddchange.com) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3817 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3819 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3820 +This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3821 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3822 +GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3823 +it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3824 +the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3825 +any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3826 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3827 +GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3828 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3829 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3830 +GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3831 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3832 +You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3833 +along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3834 +<http://www.gnu.org/licenses/>. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3835 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3836 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3837 +/* Helper macros for creating strings with macros */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3838 +#define C_STRING(x) C_STR(x) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3839 +#define C_STR(x) #x |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3840 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3841 +/* Certain parts of GCC include host-side includes, which is bad. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3842 + * Some things that get pulled in need to be undone. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3843 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3844 +#undef HAVE_GAS_HIDDEN |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3845 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3846 +/* Names to predefine in the preprocessor for this target machine. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3847 +/*#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3848 +#define TARGET_CPU_CPP_BUILTINS() do \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3849 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3850 + if (TARGET_6309) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3851 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3852 + builtin_define_std ("__M6309__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3853 + builtin_define_std ("__m6309__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3854 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3855 + else \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3856 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3857 + builtin_define_std ("__M6809__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3858 + builtin_define_std ("__m6809__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3859 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3860 + \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3861 + if (TARGET_BYTE_INT) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3862 + builtin_define_std ("__int8__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3863 + else \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3864 + builtin_define_std ("__int16__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3865 + \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3866 + switch (m6809_abi_version) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3867 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3868 + case M6809_ABI_VERSION_STACK: \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3869 + builtin_define_std ("__regargs__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3870 + builtin_define_std ("__ABI_STACK__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3871 + break; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3872 + case M6809_ABI_VERSION_REGS: \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3873 + builtin_define_std ("__ABI_REGS__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3874 + break; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3875 + case M6809_ABI_VERSION_BX: \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3876 + builtin_define_std ("__ABI_BX__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3877 + break; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3878 + default: \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3879 + break; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3880 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3881 + \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3882 + if (TARGET_WPC) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3883 + builtin_define_std ("__WPC__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3884 + \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3885 + if (TARGET_DRET) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3886 + builtin_define_std ("__DRET__"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3887 + } while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3888 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3889 +/* As an embedded target, we have no libc. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3890 +#ifndef inhibit_libc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3891 +#define inhibit_libc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3892 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3893 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3894 +/* Print subsidiary information on the compiler version in use. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3895 +#define TARGET_VERSION fprintf (stderr, " (MC6809)"); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3896 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3897 +/* Run-time compilation parameters selecting different hardware subsets. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3898 +/*extern int target_flags; */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3899 +extern short *reg_renumber; /* def in local_alloc.c */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3900 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3901 +/* Runtime current values of section names */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3902 +extern int section_changed; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3903 +extern char code_section_op[], data_section_op[], bss_section_op[]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3904 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3905 +#define WARNING_OPT 0, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3906 +/*extern const char *m6809_abi_version_ptr; */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3907 +extern unsigned int m6809_soft_regs; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3908 +extern unsigned int m6809_abi_version; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3909 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3910 +/* ABI versions */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3911 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3912 +#define M6809_ABI_VERSION_STACK 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3913 +#define M6809_ABI_VERSION_REGS 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3914 +#define M6809_ABI_VERSION_BX 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3915 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3916 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3917 +/* Allow $ in identifiers */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3918 +#define DOLLARS_IN_IDENTIFIERS 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3919 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3920 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3921 + Target machine storage layout |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3922 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3923 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3924 +/* Define this if most significant bit is lowest numbered |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3925 + in instructions that operate on numbered bit-fields. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3926 +#define BITS_BIG_ENDIAN 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3927 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3928 +/* Define to 1 if most significant byte of a word is the lowest numbered. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3929 +#define BYTES_BIG_ENDIAN 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3930 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3932 +#define WORDS_BIG_ENDIAN 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3933 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3934 +/* Number of bits in an addressible storage unit */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3935 +#define BITS_PER_UNIT 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3936 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3937 +/* Width in bits of a "word", or the contents of a machine register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3938 + * Although the 6809 has a few byte registers, define this to 16-bits |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3939 + * since this is the natural size of most registers. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3940 +#define BITS_PER_WORD 16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3941 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3942 +/* Width of a word, in units (bytes). */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3943 +#define UNITS_PER_WORD (BITS_PER_WORD/8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3944 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3945 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3946 +#define POINTER_SIZE 16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3947 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3948 +/* Allocation boundary (bits) for storing pointers in memory. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3949 +#define POINTER_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3950 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3951 +/* Allocation boundary (bits) for storing arguments in argument list. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3952 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3953 +#define PARM_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3954 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3955 +/* Boundary (bits) on which stack pointer should be aligned. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3956 +#define STACK_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3957 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3958 +/* Allocation boundary (bits) for the code of a function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3959 +#define FUNCTION_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3960 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3961 +/* Alignment of field after `int : 0' in a structure. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3962 +#define EMPTY_FIELD_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3963 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3964 +/* Every structure's size must be a multiple of this. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3965 +#define STRUCTURE_SIZE_BOUNDARY 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3966 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3967 +/* Largest mode size to use when putting an object, including |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3968 + * a structure, into a register. By limiting this to 16, no |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3969 + * 32-bit objects will ever be allocated to a pair of hard |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3970 + * registers. This is a good thing, since there aren't that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3971 + * many of them. 32-bit objects are only needed for floats |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3972 + * and "long long"s. Larger values have been tried and did not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3973 + * work. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3974 +#define MAX_FIXED_MODE_SIZE 16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3975 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3976 +/* No data type wants to be aligned rounder than this. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3977 +#define BIGGEST_ALIGNMENT 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3978 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3979 +/* Define this if move instructions will actually fail to work |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3980 + when given unaligned data. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3981 +#define STRICT_ALIGNMENT 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3982 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3983 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3984 + Standard register usage. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3985 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3986 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3987 +/* Register values as bitmasks. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3988 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3989 + * register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3990 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3991 +#define D_REGBIT (1 << HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3992 +#define X_REGBIT (1 << HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3993 +#define Y_REGBIT (1 << HARD_Y_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3994 +#define U_REGBIT (1 << HARD_U_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3995 +#define S_REGBIT (1 << HARD_S_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3996 +#define PC_REGBIT (1 << HARD_PC_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3997 +#define Z_REGBIT (1 << HARD_Z_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3998 +#define A_REGBIT (1 << HARD_A_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
3999 +#define B_REGBIT (1 << HARD_B_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4000 +#define CC_REGBIT (1 << HARD_CC_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4001 +#define DP_REGBIT (1 << HARD_DP_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4002 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4003 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4004 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4005 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4006 +/* Macros for dealing with set of registers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4007 + * A register set is just a bitwise-OR of all the register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4008 + * bitmask values. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4009 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4010 +/* Which registers can hold 8-bits */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4011 +#define BYTE_REGSET \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4012 + (Z_REGBIT | A_REGBIT | D_REGBIT | CC_REGBIT | DP_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4013 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4014 +/* Which registers can hold 16-bits. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4015 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4016 +#define WORD_REGSET \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4018 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4019 +/* Returns nonzero if a given REGNO is in the REGSET. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4020 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4021 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4022 +/* Defines related to the number of soft registers supported. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4023 + * The actual number used may be less depending on -msoft-reg-count. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4024 + * If you change one of these, you should change them all. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4025 +#define NUM_M_REGS 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4026 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4027 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4028 +#define HARD_M_REGNUMS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4031 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4032 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4033 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4034 +/* Number of actual hardware registers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4035 + The hardware registers are assigned numbers for the compiler |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4036 + from 0 to just below FIRST_PSEUDO_REGISTER. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4037 + All registers that the compiler knows about must be given numbers, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4038 + even those that are not normally considered general registers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4039 + Make sure the constant below matches the value of SOFT_M0_REGNUM; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4040 + for some reason, GCC won't compile if that name is used here directly. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4041 +#ifdef SOFT_M0_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4042 +#if (SOFT_M0_REGNUM != 14) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4043 +#error "bad register numbering" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4044 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4045 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4046 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4047 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4048 +/* 1 for registers that have pervasive standard uses |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4049 + and are not available for the register allocator. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4050 + The psuedoregisters (M_REGS) are declared fixed here, but |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4051 + will be unfixed if -msoft-reg-count is seen later. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4052 +#define FIXED_REGISTERS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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, } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4054 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4055 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4056 +/* 1 for registers not available across function calls. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4057 + These must include the FIXED_REGISTERS and also any |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4058 + registers that can be used without being saved. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4059 + The latter must include the registers where values are returned |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4060 + and the register where structure-value addresses are passed. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4061 + Aside from that, you can include as many other registers as you like. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4062 +#define CALL_USED_REGISTERS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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, } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4064 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4065 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4066 +/* Return number of consecutive hard regs needed starting at reg REGNO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4067 + to hold something of mode MODE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4068 + For the 6809, we distinguish between word-length and byte-length |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4069 + registers. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4070 +#define HARD_REGNO_NREGS(REGNO, MODE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4071 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4072 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4073 + (GET_MODE_SIZE (MODE))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4074 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4075 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4076 +/* Value is 1 if hard register REGNO can hold a value |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4077 +of machine-mode MODE. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4078 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4079 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4080 +/* Value is 1 if it is a good idea to tie two pseudo registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4081 + when one has mode MODE1 and one has mode MODE2. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4082 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4083 + for any hard reg, then this must be 0 for correct output. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4084 +#define MODES_TIEABLE_P(MODE1, MODE2) 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4085 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4086 +/* Specify the registers used for certain standard purposes. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4087 + The values of these macros are register numbers. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4088 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4089 +/* program counter if referenced as a register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4090 +#define PC_REGNUM HARD_PC_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4091 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4092 +/* Register to use for pushing function arguments. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4093 +#define STACK_POINTER_REGNUM HARD_S_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4094 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4095 +/* Base register for access to local variables of the function. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4096 + * Before reload, FRAME_POINTER_REGNUM will be used. Later, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4097 + * the elimination pass will convert these to STACK_POINTER_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4098 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4099 + * avoid tying up a hard register (U) for the frame pointer if |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4100 + * it can be eliminated entirely, making it available for use as |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4101 + * a general register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4102 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4103 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4104 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4105 +/* Define a table of possible eliminations. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4106 + * The idea is to try to avoid using hard registers for the argument |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4107 + * and frame pointers if they can be derived from the stack pointer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4108 + * instead, which already has a hard register reserved for it. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4109 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4110 + * The order of entries in this table will try to convert |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4111 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4112 + * references first, but if that fails, they will be converted to use |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4113 + * HARD_FRAME_POINTER_REGNUM. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4114 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4115 +#define ELIMINABLE_REGS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4116 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4117 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4118 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4119 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4120 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4121 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4122 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4123 +/* Define how to offset the frame or argument pointer to turn it |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4124 + * into a stack pointer reference. This is based on the way that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4125 + * the frame is constructed in the function prologue. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4126 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4127 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4128 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4129 +/* Base register for access to arguments of the function. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4130 + * This is only used prior to reload; no instructions will ever |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4131 + * be output referring to this register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4132 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4133 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4134 +/* Register in which static-chain is passed to a function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4135 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4136 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4137 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4138 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4139 +/* Order in which hard registers are allocated to pseudos. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4140 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4141 + * Since the D register is the only valid reg for 8-bit values |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4142 + * now, avoid using it for 16-bit values by putting it after all |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4143 + * other 16-bits. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4144 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4145 + * Prefer X first since the first 16-bit function argument goes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4146 + * there. We may be able to pass in to a subroutine without |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4147 + * a copy. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4148 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4149 + * Prefer U over Y since instructions using Y take one extra |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4150 + * byte, and thus one extra cycle to execute. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4151 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4152 +#define REG_ALLOC_ORDER \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4153 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4154 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4155 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4156 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4157 + 6, HARD_Z_REGNUM } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4158 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4159 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4160 + classes of registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4161 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4162 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4163 +/* Define the classes of registers for register constraints in the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4164 + machine description. Also define ranges of constants. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4165 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4167 + If there is more than one class, another class must be named NO_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4168 + and contain no registers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4169 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4171 + another name such as ALL_REGS). This is the class of registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4172 + that is allowed by "g" or "r" in a register constraint. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4173 + Also, registers outside this class are allocated only when |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4174 + instructions express preferences for them. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4175 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4176 + The classes must be numbered in nondecreasing order; that is, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4177 + a larger-numbered class must never be contained completely |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4178 + in a smaller-numbered class. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4179 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4180 + For any two classes, it is very desirable that there be another |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4181 + class that represents their union. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4182 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4183 +enum reg_class { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4184 + NO_REGS, /* The trivial class with no registers in it */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4185 + D_REGS, /* 16-bit (word (HI)) data (D) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4186 + ACC_A_REGS, /* The A register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4187 + ACC_B_REGS, /* The B register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4188 + X_REGS, /* The X register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4189 + Z_REGS, /* The Z (zero-bit) register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4190 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4191 + M_REGS, /* 8-bit (byte (QI)) soft registers */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4192 + CC_REGS, /* 8-bit condition code register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4193 + I_REGS, /* An index register (A,B,D) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4194 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4195 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4196 + S_REGS, /* 16-bit soft registers (FP, AP) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4197 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4198 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4199 + ALL_REGS, /* All registers */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4200 + LIM_REG_CLASSES |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4201 +}; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4202 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4203 +#define N_REG_CLASSES (int) LIM_REG_CLASSES |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4204 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4205 +/* Since GENERAL_REGS is a smaller class than ALL_REGS, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4206 + it is not an alias to ALL_REGS, but to G_REGS. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4207 +#define GENERAL_REGS G_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4208 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4209 +/* Give names of register classes as strings for dump file. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4210 +#define REG_CLASS_NAMES \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4212 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4213 + "ALL_REGS" } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4214 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4215 +/* Define which registers fit in which classes. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4216 + This is an initializer for a vector of HARD_REG_SET |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4217 + of length N_REG_CLASSES. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4218 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4219 +#define D_REGSET (D_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4220 +#define ACC_A_REGSET (A_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4221 +#define ACC_B_REGSET (D_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4222 +#define X_REGSET (X_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4223 +#define Z_REGSET (Z_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4224 +#define Q_REGSET (D_REGBIT | A_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4225 +#define M_REGSET (SOFT_M_REGBITS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4226 +#define CC_REGSET (CC_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4227 +#define I_REGSET (A_REGBIT | B_REGBIT | D_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4228 +#define T_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4229 +#define A_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4230 +#define S_REGSET (SOFT_FP_REGBIT | SOFT_AP_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4231 +#define P_REGSET (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4232 +#define G_REGSET \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4233 + (D_REGSET | Q_REGSET | I_REGSET | A_REGSET | M_REGSET | S_REGSET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4234 +#define ALL_REGSET (G_REGSET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4235 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4236 +#define REG_CLASS_CONTENTS { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4237 + {0}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4238 + {D_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4239 + {ACC_A_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4240 + {ACC_B_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4241 + {X_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4242 + {Z_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4243 + {Q_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4244 + {M_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4245 + {CC_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4246 + {I_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4247 + {T_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4248 + {A_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4249 + {S_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4250 + {P_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4251 + {G_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4252 + {ALL_REGSET}, \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4253 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4254 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4255 +/* The same information, inverted. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4256 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4257 + * these two sets of definitions are always consistent. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4258 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4259 +#define REGNO_REG_CLASS(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4260 + (D_REGNO_P (REGNO) ? D_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4261 + (Z_REGNO_P (REGNO) ? Z_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4262 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4263 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4264 + (X_REGNO_P (REGNO) ? X_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4265 + (Q_REGNO_P (REGNO) ? Q_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4266 + (M_REGNO_P (REGNO) ? M_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4267 + (CC_REGNO_P (REGNO) ? CC_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4268 + (I_REGNO_P (REGNO) ? I_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4269 + (T_REGNO_P (REGNO) ? T_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4270 + (A_REGNO_P (REGNO) ? A_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4271 + (S_REGNO_P (REGNO) ? S_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4272 + (P_REGNO_P (REGNO) ? P_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4273 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS)))))))))))))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4274 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4275 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4276 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4277 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4278 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4279 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4280 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4281 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4282 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4283 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4284 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4285 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4286 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4287 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4288 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4289 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4290 +/* Macros that test an rtx 'X' to see if it's in a particular |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4291 + * register class. 'X' need not be a REG necessarily. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4292 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4293 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4296 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4297 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4298 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4299 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4300 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4301 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4302 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4303 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4304 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4305 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4306 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4307 +/* Redefine this in terms of BYTE_REGSET */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4308 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4309 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4310 +/* The class value for index registers, and the one for base regs. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4311 +#define INDEX_REG_CLASS I_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4312 +#define BASE_REG_CLASS A_REGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4313 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4314 +/* Get reg_class from a letter in the machine description. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4315 +#define REG_CLASS_FROM_LETTER(C) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4316 + (((C) == 'a' ? A_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4317 + ((C) == 'd' ? D_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4318 + ((C) == 'x' ? I_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4319 + ((C) == 't' ? M_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4320 + ((C) == 'c' ? CC_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4321 + ((C) == 'A' ? ACC_A_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4322 + ((C) == 'B' ? ACC_B_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4323 + ((C) == 'v' ? X_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4324 + ((C) == 'u' ? S_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4325 + ((C) == 'U' ? P_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4326 + ((C) == 'T' ? T_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4327 + ((C) == 'z' ? Z_REGS : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4328 + ((C) == 'q' ? Q_REGS : NO_REGS)))))))))))))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4329 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4330 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4331 + The letters I through O in a register constraint string |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4332 + can be used to stand for particular ranges of immediate operands. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4333 + This macro defines what the ranges are. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4334 + C is the letter, and VALUE is a constant value. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4335 + Return 1 if VALUE is in the range specified by C. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4336 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4337 + For the 6809, J, K, L are used for indexed addressing. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4338 + `I' is used for the constant 1. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4339 + `J' is used for the 5-bit offsets. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4340 + `K' is used for the 8-bit offsets. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4341 + `L' is used for the range of signed numbers that fit in 16 bits. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4342 + `M' is used for the exact value '8'. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4343 + `N' is used for the constant -1. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4344 + `O' is used for the constant 0. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4345 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4346 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4347 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4348 + ((C) == 'I' ? ((VALUE) == 1) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4349 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4350 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4351 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4352 + (C) == 'M' ? ((VALUE) == 8) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4353 + (C) == 'N' ? ((VALUE) == -1) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4354 + (C) == 'O' ? ((VALUE) == 0) : 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4355 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4356 +/* Similar, but for floating constants, and defining letters G and H. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4357 + No floating-point constants are valid on MC6809. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4358 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4359 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4360 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4361 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4362 +/* Given an rtx X being reloaded into a reg required to be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4363 + in class CLASS, return the class of reg to actually use. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4364 + In general this is just CLASS; but on some machines |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4365 + in some cases it is preferable to use a more restrictive class. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4366 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4367 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4368 +#define SMALL_REGISTER_CLASSES 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4369 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4370 +/* Return the maximum number of consecutive registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4371 + needed to represent mode MODE in a register of class CLASS. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4372 +#define CLASS_MAX_NREGS(CLASS, MODE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4373 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4374 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4375 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4376 + Stack layout; function entry, exit and calling. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4377 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4378 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4379 +/* Define this if pushing a word on the stack |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4380 + makes the stack pointer a smaller address. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4381 +#define STACK_GROWS_DOWNWARD |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4382 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4383 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4384 +/* Define this if the nominal address of the stack frame |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4385 + is at the high-address end of the local variables; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4386 + that is, each additional local variable allocated |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4387 + goes at a more negative offset in the frame. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4388 +#define FRAME_GROWS_DOWNWARD 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4389 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4390 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4391 +/* Offset within stack frame to start allocating local variables at. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4392 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4393 + first local allocated. Otherwise, it is the offset to the BEGINNING |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4394 + of the first local allocated. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4395 +#define STARTING_FRAME_OFFSET 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4396 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4397 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4398 +/* Always push stack arguments for now. Accumulation is not yet working. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4399 +#define PUSH_ROUNDING(BYTES) (BYTES) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4400 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4401 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4402 +/* Offset of first parameter from the argument pointer register value. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4403 + * ARG_POINTER_REGNUM is defined to point to the return address pushed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4405 +#define FIRST_PARM_OFFSET(FNDECL) 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4406 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4407 +/* Value is 1 if returning from a function call automatically |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4408 + pops the arguments described by the number-of-args field in the call. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4409 + FUNTYPE is the data type of the function (as a tree), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4410 + or for a library call it is an identifier node for the subroutine name. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4411 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4412 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4413 +/* Define how to find the value returned by a function. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4414 + VALTYPE is the data type of the value (as a tree). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4415 + If the precise function being called is known, FUNC is its FUNCTION_DECL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4416 + otherwise, FUNC is 0. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4417 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4418 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4419 +/* Define how to find the value returned by a library function |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4420 + assuming the value has mode MODE. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4421 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4422 +/* All return values are in the X-register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4423 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4424 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4425 +/* Define this if using the nonreentrant convention for returning |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4426 + structure and union values. No; it is inefficient and buggy. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4427 +#undef PCC_STATIC_STRUCT_RETURN |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4428 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4429 +/* 1 if N is a possible register number for a function value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4430 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4431 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4432 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4433 + more than one register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4434 +#define NEEDS_UNTYPED_CALL 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4435 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4436 +/* 1 if N is a possible register number for function argument passing. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4437 +#define FUNCTION_ARG_REGNO_P(N) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4438 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4439 + (((N) == HARD_D_REGNUM) || ((N) == HARD_X_REGNUM)) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4440 + 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4441 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4442 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4443 + Argument Lists |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4444 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4445 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4446 +/* Cumulative arguments are tracked in a single integer, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4447 + * which is the number of bytes of arguments scanned so far, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4448 + * plus which registers have already been used. The register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4449 + * info is kept in some of the upper bits */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4450 +#define CUMULATIVE_ARGS unsigned int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4451 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4452 +#define CUM_STACK_ONLY 0x80000000 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4453 +#define CUM_X_MASK 0x40000000 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4454 +#define CUM_B_MASK 0x20000000 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4455 +#define CUM_STACK_INVALID 0x10000000 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4456 +#define CUM_STACK_MASK 0xFFFFFFF |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4457 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4458 +#define CUM_ADVANCE_8BIT(cum) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4459 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) |= CUM_B_MASK)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4460 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4461 +#define CUM_ADVANCE_16BIT(cum) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4462 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) |= CUM_X_MASK)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4463 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4464 +/* Initialize a variable CUM of type CUMULATIVE_ARGS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4465 + for a call to a function whose data type is FNTYPE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4466 + For a library call, FNTYPE is 0. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4467 + N_NAMED was added in gcc 3.4 and is not used currently. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4468 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4469 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4470 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4471 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4472 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4473 + : (unsigned) int_size_in_bytes (TYPE)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4474 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4475 +/* Update the data in CUM to advance over an argument |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4476 + of mode MODE and data type TYPE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4477 + (TYPE is null for libcalls where that information may not be available.) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4478 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4479 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4480 + CUM_ADVANCE_8BIT (CUM) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4481 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4482 + CUM_ADVANCE_16BIT (CUM) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4483 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4484 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4485 +/* Define where to put the arguments to a function. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4486 + Value is zero to push the argument on the stack, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4487 + or a hard register rtx in which to store the argument. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4488 + This macro is used _before_ FUNCTION_ARG_ADVANCE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4489 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4490 + For the 6809, the first 8-bit function argument can be placed into B, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4491 + and the first 16-bit arg can go into X. All other arguments |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4492 + will be pushed onto the stack. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4493 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4494 + Command-line options can adjust this behavior somewhat. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4495 + */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4496 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4497 + ((MODE == VOIDmode) ? NULL_RTX : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4498 + ((MODE == BLKmode) || (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4499 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY | CUM_B_MASK))) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4500 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4501 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY | CUM_X_MASK))) ? \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4502 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4503 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4504 +/* Output assembler code to FILE to increment profiler label # LABELNO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4505 + for profiling a function entry. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4506 +#define FUNCTION_PROFILER(FILE, LABELNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4507 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4508 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4509 +/* Stack pointer must be correct on function exit */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4510 +#define EXIT_IGNORE_STACK 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4511 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4512 +/***************************************************************************** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4513 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4514 +** Trampolines for Nested Functions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4515 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4516 +*****************************************************************************/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4517 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4518 +/* Length in units of the trampoline for entering a nested function. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4519 +#define TRAMPOLINE_SIZE 7 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4520 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4521 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4522 + Addressing modes, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4523 + and classification of registers for them. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4524 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4525 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4526 +/* 6809 has postincrement and predecrement addressing modes */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4527 +#define HAVE_POST_INCREMENT 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4528 +#define HAVE_PRE_DECREMENT 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4529 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4530 +/* Whether or not to use index registers is configurable. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4531 + * Experiments show that things work better when this is off, so |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4532 + * that's the way it is for now. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4533 +#undef USE_INDEX_REGISTERS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4534 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4535 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4536 +/* Macros to check register numbers against specific register classes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4537 +#define REG_VALID_FOR_BASE_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4538 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4539 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4540 +/* MC6809 index registers do not allow scaling, */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4541 +/* but there is "accumulator-offset" mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4542 +#ifdef USE_INDEX_REGISTERS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4543 +#define REG_VALID_FOR_INDEX_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4544 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4545 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4546 +#define REG_VALID_FOR_INDEX_P(REGNO) 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4547 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4548 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4549 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4550 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4551 + ((REGNO) >= FIRST_PSEUDO_REGISTER \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4552 + || REG_VALID_FOR_BASE_P (REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4553 + || (REGNO) == FRAME_POINTER_REGNUM \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4554 + || (REGNO) == HARD_FRAME_POINTER_REGNUM \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4555 + || (REGNO) == ARG_POINTER_REGNUM \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4556 + || (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO]))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4557 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4558 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4559 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4560 + ((REGNO) >= FIRST_PSEUDO_REGISTER \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4561 + || REG_VALID_FOR_INDEX_P (REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4562 + || (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO]))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4563 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4564 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4565 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4566 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4567 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4568 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO]))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4569 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4570 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4571 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4572 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4573 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4574 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO]))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4575 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4576 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4577 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4578 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4579 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4580 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4585 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4586 +#ifndef REG_OK_STRICT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4587 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4588 +#ifdef USE_INDEX_REGISTERS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4589 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4590 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4591 +#define REG_OK_FOR_INDEX_P(X) 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4592 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4593 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4594 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4595 +#ifdef USE_INDEX_REGISTERS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4596 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4597 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4598 +#define REG_OK_FOR_INDEX_P(X) 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4599 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4600 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4601 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4602 +/* Maximum number of registers that can appear in a valid memory address */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4603 +#ifdef USE_INDEX_REGISTERS |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4604 +#define MAX_REGS_PER_ADDRESS 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4605 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4606 +#define MAX_REGS_PER_ADDRESS 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4607 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4608 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4609 +/* 1 if X is an rtx for a constant that is a valid address. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4610 + * We allow any constant, plus the sum of any two constants (this allows |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4611 + * offsetting a symbol ref) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4612 +#define CONSTANT_ADDRESS_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4613 + ((CONSTANT_P (X)) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4614 + || ((GET_CODE (X) == PLUS) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4615 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1))))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4616 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4617 +/* Nonzero if the constant value X is a legitimate general operand. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4618 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4619 +/* Any single-word constant is ok; the only contexts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4620 + allowing general_operand of mode DI or DF are movdi and movdf. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4621 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4622 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4623 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4624 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4625 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4626 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4627 + Test for valid memory addresses |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4628 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4629 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4630 + that is a valid memory address for an instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4631 + The MODE argument is the machine mode for the MEM expression |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4632 + that wants to use this address. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4633 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4634 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4635 + Valid addresses are either direct or indirect (MEM) versions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4636 + of the following forms. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4637 + constant N |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4638 + register ,X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4639 + constant indexed N,X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4640 + accumulator indexed D,X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4641 + auto_increment ,X++ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4642 + auto_decrement ,--X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4643 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4644 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4645 +#define REGISTER_ADDRESS_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4646 + (REG_P (X) && REG_OK_FOR_BASE_P (X)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4647 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4648 +#define EXTENDED_ADDRESS_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4649 + CONSTANT_ADDRESS_P (X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4650 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4651 +#define LEGITIMATE_BASE_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4652 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4653 + || (GET_CODE (X) == SIGN_EXTEND \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4654 + && GET_CODE (XEXP (X, 0)) == REG \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4655 + && GET_MODE (XEXP (X, 0)) == HImode \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4656 + && REG_OK_FOR_BASE_P (XEXP (X, 0)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4657 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4658 +#define LEGITIMATE_OFFSET_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4659 + (CONSTANT_ADDRESS_P (X) || (REG_P (X) && REG_OK_FOR_INDEX_P (X))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4660 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4661 +/* 1 if X is the sum of a base register and an offset. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4662 +#define INDEXED_ADDRESS(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4663 + ((GET_CODE (X) == PLUS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4664 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4665 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4666 + || (GET_CODE (X) == PLUS \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4667 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4668 + && LEGITIMATE_OFFSET_P (XEXP (X, 0)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4669 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4670 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4671 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4672 +#define STACK_PUSH_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4674 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4675 +#define STACK_POP_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4677 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4678 +#define PUSH_POP_ADDRESS_P(X) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4679 + (((GET_CODE (X) == PRE_DEC) || (GET_CODE (X) == POST_INC)) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4680 + && (LEGITIMATE_BASE_P (XEXP (X, 0)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4681 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4682 +/* Go to ADDR if X is a valid address. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4683 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4684 +{ \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4685 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4686 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4687 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4688 + if (INDEXED_ADDRESS (X)) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4689 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4690 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4691 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4692 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4693 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4694 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4695 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4696 + Address Fix-up |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4697 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4698 +/* Go to LABEL if ADDR (a legitimate address expression) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4699 + has an effect that depends on the machine mode it is used for. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4700 + In the latest GCC, this case is already handled by the core code |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4701 + so no action is required here. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4702 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4703 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4704 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4705 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4706 + Miscellaneous Parameters |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4707 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4708 +/* Specify the machine mode that this machine uses |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4709 + for the index in the tablejump instruction. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4710 +#define CASE_VECTOR_MODE Pmode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4711 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4712 +/* Define this as 1 if `char' should by default be signed; else as 0. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4713 +#define DEFAULT_SIGNED_CHAR 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4714 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4715 +/* This flag, if defined, says the same insns that convert to a signed fixnum |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4716 + also convert validly to an unsigned one. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4717 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4718 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4719 +/* Max number of bytes we can move from memory to memory/register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4720 + in one reasonably fast instruction. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4721 +#define MOVE_MAX 2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4722 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4723 +/* Int can be 8 or 16 bits (default is 16) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4724 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4725 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4726 +/* Short is always 16 bits */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4727 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4728 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4729 +/* Size (bits) of the type "long" on target machine */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4730 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4731 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4732 +/* Size (bits) of the type "long long" on target machine */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4733 +#define LONG_LONG_TYPE_SIZE 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4734 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4735 +/* Size (bits) of the type "char" on target machine */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4736 +#define CHAR_TYPE_SIZE 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4737 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4738 +/* Size (bits) of the type "float" on target machine */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4739 +#define FLOAT_TYPE_SIZE 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4740 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4741 +/* Size (bits) of the type "double" on target machine. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4742 + * Note that the C standard does not require that doubles |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4743 + * hold any more bits than float. Since the 6809 has so few |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4744 + * registers, we cannot really support more than 32-bits. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4745 +#define DOUBLE_TYPE_SIZE 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4746 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4747 +/* Size (bits) of the type "long double" on target machine */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4748 +#define LONG_DOUBLE_TYPE_SIZE 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4749 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4750 +/* Define the type used for "size_t". With a 64KB address space, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4751 + * only a 16-bit value here makes sense. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4752 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4753 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4754 +/* Likewise, the difference between two pointers is also a 16-bit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4755 + * signed value. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4756 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4757 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4758 +/* Nonzero if access to memory by bytes is slow and undesirable. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4759 +#define SLOW_BYTE_ACCESS 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4760 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4761 +/* Define if shifts truncate the shift count |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4762 + which implies one can omit a sign-extension or zero-extension |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4763 + of a shift count. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4764 +#define SHIFT_COUNT_TRUNCATED 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4765 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4766 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4767 + is done just by pretending it is already truncated. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4768 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4769 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4770 +/* It is as good to call a constant function address as to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4771 + call an address kept in a register. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4772 +#define NO_FUNCTION_CSE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4773 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4774 +/* Specify the machine mode that pointers have. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4775 + After generation of rtl, the compiler makes no further distinction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4776 + between pointers and any other objects of this machine mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4777 +#define Pmode HImode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4778 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4779 +/* A function address in a call instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4780 + is a byte address (for indexing purposes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4781 + so give the MEM rtx a byte's mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4782 +#define FUNCTION_MODE HImode |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4783 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4784 +/* Define the cost of moving a value from a register in CLASS1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4785 + * to CLASS2, of a given MODE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4786 + * |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4787 + * On the 6809, hard register transfers are all basically equivalent. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4788 + * But soft register moves are treated more like memory moves. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4789 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4790 + (((CLASS1 == M_REGS) || (CLASS2 == M_REGS)) ? 4 : 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4791 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4792 +/* Define the cost of moving a value between a register and memory. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4793 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4794 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4795 +/* Check a `double' value for validity for a particular machine mode. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4796 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4797 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4798 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4799 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4800 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4801 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4802 + machine-dependent |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4803 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4804 +/* Tell final.c how to eliminate redundant test instructions. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4805 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4806 +/* Here we define machine-dependent flags and fields in cc_status |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4807 + (see `conditions.h'). */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4808 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4809 +/* Store in cc_status the expressions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4810 + that the condition codes will describe |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4811 + after execution of an instruction whose pattern is EXP. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4812 + Do not alter them if the instruction would not alter the cc's. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4813 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4814 +/* On the 6809, most of the insns to store in an address register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4815 + fail to set the cc's. However, in some cases these instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4816 + can make it possibly invalid to use the saved cc's. In those |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4818 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4819 +#define NOTICE_UPDATE_CC(EXP, INSN) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4820 + notice_update_cc((EXP), (INSN)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4821 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4822 +/***************************************************************************** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4823 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4824 +** pragma support |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4825 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4826 +*****************************************************************************/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4827 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4828 +#if 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4829 +#define REGISTER_TARGET_PRAGMAS() \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4830 +do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4831 + extern void pragma_section PARAMS ((cpp_reader *)); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4832 + c_register_pragma (0, "section", pragma_section); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4833 +} while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4834 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4835 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4836 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4837 +/*-------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4838 + ASSEMBLER FORMAT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4839 +--------------------------------------------------------------*/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4840 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4841 +#define FMT_HOST_WIDE_INT "%ld" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4842 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4843 +/* Output to assembler file text saying following lines |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4844 + may contain character constants, extra white space, comments, etc. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4845 +#define ASM_APP_ON ";----- asm -----\n" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4846 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4847 +/* Output to assembler file text saying following lines |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4848 + no longer contain unusual constructs. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4849 +#define ASM_APP_OFF ";--- end asm ---\n" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4850 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4851 +/* Use a semicolon to begin a comment. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4852 +#define ASM_COMMENT_START "; " |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4853 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4854 +/* Output assembly directives to switch to section 'name' */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4855 +#undef TARGET_ASM_NAMED_SECTION |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4856 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4857 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4858 +#undef TARGET_HAVE_NAMED_SECTION |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4859 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4860 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4861 +/* Output before read-only data. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4862 +#define TEXT_SECTION_ASM_OP (code_section_op) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4863 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4864 +/* Output before writable data. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4865 +#define DATA_SECTION_ASM_OP (data_section_op) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4866 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4867 +/* Output before uninitialized data. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4868 +#define BSS_SECTION_ASM_OP (bss_section_op) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4869 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4870 +/* Support the ctors and dtors sections for g++. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4871 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4872 +#undef CTORS_SECTION_ASM_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4873 +#define CTORS_SECTION_ASM_OP "\t.area .ctors" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4874 +#undef DTORS_SECTION_ASM_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4875 +#define DTORS_SECTION_ASM_OP "\t.area .dtors" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4876 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4877 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4878 +#undef DO_GLOBAL_CTORS_BODY |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4879 +#undef DO_GLOBAL_DTORS_BODY |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4880 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4881 +#define HAS_INIT_SECTION |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4882 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4883 +/* This is how to output an assembler line |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4884 + that says to advance the location counter |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4885 + to a multiple of 2**LOG bytes. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4886 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4887 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4888 + if ((LOG) > 1) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4889 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4890 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4891 +/* The .set foo,bar construct doesn't work by default */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4892 +#undef SET_ASM_OP |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4893 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4894 + do \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4895 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4896 + fputc ('\t', FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4897 + assemble_name (FILE, LABEL1); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4898 + fputs (" = ", FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4899 + assemble_name (FILE, LABEL2); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4900 + fputc ('\n', FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4901 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4902 + while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4903 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4904 +/* How to refer to registers in assembler output. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4905 + This sequence is indexed by compiler's hard-register-number (see above). */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4906 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) , |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4907 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4908 +#define REGISTER_NAMES { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4909 + [HARD_D_REGNUM]= "d", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4910 + [HARD_X_REGNUM]= "x", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4911 + [HARD_Y_REGNUM]= "y", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4912 + [HARD_U_REGNUM]= "u", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4913 + [HARD_S_REGNUM]= "s", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4914 + [HARD_PC_REGNUM]= "pc", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4915 + [HARD_A_REGNUM]= "a", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4916 + [HARD_B_REGNUM]= "b", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4917 + [HARD_CC_REGNUM]= "cc",\ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4918 + [HARD_DP_REGNUM]= "dp", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4919 + [SOFT_FP_REGNUM]= "soft_fp", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4920 + [SOFT_AP_REGNUM]= "soft_ap", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4921 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4922 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4923 + [HARD_RSVD1_REGNUM] = "-", \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4924 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4925 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4926 +/***************************************************************************** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4927 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4928 +** Debug Support |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4929 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4930 +*****************************************************************************/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4931 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4932 +/* Default to DBX-style debugging */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4933 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4934 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4935 +#define DBX_DEBUGGING_INFO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4936 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4937 +#define DEFAULT_GDB_EXTENSIONS 0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4938 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4939 +#define ASM_STABS_OP ";\t.stabs\t" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4940 +#define ASM_STABD_OP ";\t.stabd\t" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4941 +#define ASM_STABN_OP ";\t.stabn\t" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4942 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4943 +#define DBX_CONTIN_LENGTH 54 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4944 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4945 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4946 +do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4947 + const char *p = FILENAME; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4948 + while ((p = strchr (p, '/')) != NULL) { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4949 + p = FILENAME = p+1; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4950 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4951 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4952 + output_quoted_string (ASMFILE, FILENAME); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4953 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4954 + assemble_name (ASMFILE, ltext_label_name); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4955 + fputc ('\n', ASMFILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4956 + switch_to_section (text_section); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4957 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4958 +} while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4959 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4960 +/* With -g, GCC sometimes outputs string literals that are longer than |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4961 + * the assembler can handle. Without actual debug support, these are |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4962 + * not really required. Redefine the function to output strings to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4963 + * output as much as possible. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4964 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4965 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4966 +/***************************************************************************** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4967 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4968 +** Output and Generation of Labels |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4969 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4970 +*****************************************************************************/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4971 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4972 +/* Prefixes for various assembly-time objects */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4973 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4974 +#define REGISTER_PREFIX "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4975 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4976 +#define LOCAL_LABEL_PREFIX "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4977 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4978 +#define USER_LABEL_PREFIX "_" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4979 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4980 +#define IMMEDIATE_PREFIX "#" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4981 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4982 +/* This is how to output the definition of a user-level label named NAME, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4983 + such as the label on a static function or variable NAME. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4984 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4985 +#define ASM_OUTPUT_LABEL(FILE,NAME) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4986 +do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4987 + if (section_changed) { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4988 + fprintf (FILE, "\n%s\n\n", code_section_op); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4989 + section_changed = 0; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4990 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4991 + assemble_name (FILE, NAME); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4992 + fputs (":\n", FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4993 +} while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4994 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4995 +/* This is how to output the label for a function definition. It |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4996 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4997 + other properties. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4998 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
4999 + m6809_declare_function_name (FILE,NAME,DECL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5000 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5001 +/* This is how to output a command to make the user-level label |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5002 + named NAME defined for reference from other files. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5003 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5004 +#define GLOBAL_ASM_OP "\t.globl " |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5005 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5006 +/* This is how to output a reference to a user label named NAME. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5007 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5008 + fprintf (FILE, "_%s", NAME) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5009 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5010 +/* This is how to output a reference to a symbol ref |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5011 + * Check to see if the symbol is in the direct page */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5012 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5013 +{ \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5014 + print_direct_prefix (FILE, sym); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5015 + assemble_name (FILE, XSTR (sym, 0)); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5016 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5017 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5018 +/* External references aren't necessary, so don't emit anything */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5019 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5020 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5021 +/* This is how to store into the string LABEL |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5022 + the symbol_ref name of an internal numbered label where |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5023 + PREFIX is the class of label and NUM is the number within the class. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5024 + This is suitable for output with `assemble_name'. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5025 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5026 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5027 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5028 +/* This is how to output an assembler line defining an `int' constant. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5029 +#define ASM_OUTPUT_INT(FILE,VALUE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5030 +( fprintf (FILE, "\t.word "), \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5031 + output_addr_const (FILE, (VALUE)), \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5032 + fprintf (FILE, "\n")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5033 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5034 +/* Likewise for `char' and `short' constants. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5035 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5036 +( fprintf (FILE, "\t.word "), \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5037 + output_addr_const (FILE, (VALUE)), \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5038 + fprintf (FILE, "\n")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5039 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5040 +/* This is how to output a string. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5041 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5042 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5043 +/* This is how to output an insn to push a register on the stack. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5044 + It need not be very fast code. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5045 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5046 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5047 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5048 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5049 +/* This is how to output an insn to pop a register from the stack. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5050 + It need not be very fast code. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5051 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5052 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5053 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5054 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5055 +/* This is how to output an element of a case-vector that is absolute. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5056 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5057 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5058 + fprintf (FILE, "\t.word L%u\n", VALUE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5059 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5060 +/* This is how to output an element of a case-vector that is relative. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5061 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5062 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5063 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5064 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5065 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5066 +/***************************************************************************** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5067 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5068 +** Assembler Commands for Alignment |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5069 +** |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5070 +*****************************************************************************/ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5071 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5072 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5073 + * So use the .byte and .word directives instead of .blkb */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5074 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5075 + do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5076 + int __size = SIZE; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5077 + while (__size > 0) { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5078 + if (__size >= 2) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5079 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5080 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5081 + __size -= 2; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5082 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5083 + else \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5084 + { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5085 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5086 + __size--; \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5087 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5088 + } \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5089 + } while (0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5090 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5091 +/* This says how to output an assembler line |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5092 + to define a global common symbol. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5093 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5094 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5095 + do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5096 + switch_to_section (bss_section); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5097 + fputs ("\t.globl\t", FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5098 + assemble_name ((FILE), (NAME)); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5099 + fputs ("\n", FILE); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5100 + assemble_name ((FILE), (NAME)); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5101 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5102 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5103 +/* This says how to output an assembler line |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5104 + to define a local common symbol. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5105 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5106 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5107 +do { \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5108 + switch_to_section (bss_section); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5109 + assemble_name ((FILE), (NAME)); \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5110 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5111 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5112 +/* Store in OUTPUT a string (made with alloca) containing |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5113 + an assembler-name for a local static variable named NAME. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5114 + LABELNO is an integer which is different for each call. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5115 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5116 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5117 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5118 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5119 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5120 +/* Print an instruction operand X on file FILE. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5121 + CODE is the code from the %-spec for printing this operand. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5122 + If `%z3' was used to print operand 3, then CODE is 'z'. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5123 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5124 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5125 +/* Print a memory operand whose address is X, on file FILE. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5126 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5127 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5128 +/* Don't let stack pushes build up too much. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5129 +#define MAX_PENDING_STACK 8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5130 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5131 +/* Define values for builtin operations */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5132 +enum m6809_builtins |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5133 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5134 + M6809_SWI, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5135 + M6809_SWI2, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5136 + M6809_SWI3, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5137 + M6809_CWAI, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5138 + M6809_SYNC, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5139 + M6809_ADD_CARRY, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5140 + M6809_SUB_CARRY, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5141 + M6809_ADD_DECIMAL, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5142 + M6809_NOP, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5143 + M6809_BLOCKAGE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5144 +}; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5145 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5149 @@ -0,0 +1,2359 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5150 +;; GCC machine description for Motorola 6809 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5151 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5152 +;; 2009 Free Software Foundation, Inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5153 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5154 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5155 +;; by William Astle (lost@l-w.ca). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5156 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5157 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5158 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5159 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5160 +;; This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5161 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5162 +;; GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5163 +;; it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5164 +;; the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5165 +;; any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5166 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5167 +;; GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5168 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5169 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5170 +;; GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5171 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5172 +;; You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5173 +;; along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5174 +;; <http://www.gnu.org/licenses/>. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5175 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5176 +;; General information: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5177 +;; -------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5178 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5179 +;; versions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5180 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5181 +;; * The 'A' and 'B' registers are treated as a single register by the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5182 +;; register allocator; hence, the instruction templates assume that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5183 +;; both can be modified if either one is available for use. No |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5184 +;; attempt is made to split instructions to refer to a particular half |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5185 +;; of the register. It is always referred to as the 'D' register, even |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5186 +;; in QImode (when it will be displayed as 'B'). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5187 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5188 +;; * There is full support for proper branch instruction generation, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5189 +;; based on instruction lengths. However, many instruction patterns |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5190 +;; are still overloaded to emit lots of real instructions, which can |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5191 +;; make the length calculation difficult; in those cases, I've tried |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5192 +;; to be pessimistic and assume the worst-case. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5193 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5194 +;; * The instruction type attributes are only defined for branch |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5195 +;; vs. non branch instructions for now, since there is seemingly no |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5196 +;; reason to define these for other types anyway. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5197 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5198 +;; * The limited number of total registers presents the greatest |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5199 +;; challenge. There are 'soft registers' -- memory locations |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5200 +;; used to simulate real regs -- which can be helpful. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5201 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5202 +;; * Position-independent code (PIC) is supported and has been tested |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5203 +;; but not to the extent of absolute code generation. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5204 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5205 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5206 +;; as UNSPEC instructions, and can be accessed from C code using |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5207 +;; __builtin_xxxx() style functions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5208 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5209 +;; What still needs to be done: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5210 +;; ---------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5211 +;; * Replace remaining instances of (define_peephole) with |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5212 +;; (define_peephole2), or remove them completely if they are not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5213 +;; matching anyway. Add more peepholes for things actually encountered. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5214 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5215 +;; * Indexing addressing can lead to crashes in complex functions when |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5216 +;; register pressure is high. Only the 'D' register can actually be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5217 +;; used as an index register, and its demand by other instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5218 +;; can sometimes mean that it is impossible to satisfy constraints. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5219 +;; Currently, indexing is completely disabled to avoid these types |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5220 +;; of problems, although code is slightly more inefficient in some |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5221 +;; working cases. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5222 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5223 +;; * 32-bit math is terribly inefficient. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5224 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5225 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5226 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5227 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5228 +;;- Constants |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5229 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5230 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5231 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5232 +; Define constants for hard register numbers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5233 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5234 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5235 + (HARD_RSVD1_REGNUM 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5236 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5237 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5238 + (HARD_Z_REGNUM 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5239 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5240 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5241 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5242 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5243 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5244 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5245 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5246 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5247 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5248 +; The range in which a short branch insn can be used. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5249 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5250 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5251 + (MIN_SHORT_BRANCH_OFFSET -127) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5252 + (MAX_SHORT_BRANCH_OFFSET 128) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5253 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5254 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5255 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5256 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5257 +; The lengths of various types of real 6809 instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5258 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5259 +; By default, ordinary insns are 4 bytes long. This is often not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5260 +; right, and the insn patterns below will redefine this to the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5261 +; correct value. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5262 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5263 +; Branch instruction lengths (conditional and unconditionals) are |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5264 +; well known and declared here. The short insns are used when the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5265 +; offset is within the range declared above (between MIN_SHORT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5266 +; and MAX_SHORT) ; otherwise the long form is used. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5267 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5268 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5269 + (DEFAULT_INSN_LENGTH 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5270 + (SHORT_CBRANCH_LENGTH 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5271 + (LONG_CBRANCH_LENGTH 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5272 + (SHORT_BRANCH_LENGTH 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5273 + (LONG_BRANCH_LENGTH 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5274 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5275 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5276 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5277 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5278 +; Constants for insn cycle counts. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5279 +; Note that these counts all assume 1-byte opcodes. 2-byte |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5280 +; opcodes require 1 extra cycles for fetching the extra byte. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5281 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5282 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5283 + ;; The default insn length, when it cannot be calculated. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5284 + ;; Take a conservative approach and estimate high. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5285 + (DEFAULT_INSN_CYCLES 10) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5286 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5287 + ;; Cycle counts for ALU and load operations. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5288 + (ALU_INHERENT_CYCLES 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5289 + (ALU_IMMED_CYCLES 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5290 + (ALU_DIRECT_CYCLES 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5291 + (ALU_INDEXED_BASE_CYCLES 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5292 + (ALU_EXTENDED_CYCLES 5) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5293 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5294 + ;; If an ALU operation is on a 16-bit register (D), then |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5295 + ;; add this number of cycles to the total count. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5296 + (ALU_16BIT_CYCLES 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5297 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5298 + ;; A load of a 16-bit register incurs this extra amount. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5299 + (LOAD_16BIT_CYCLES 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5300 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5301 + ;; Cycle counts for memory-only operations (bit shifts, clear, test) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5302 + (MEM_DIRECT_CYCLES 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5303 + (MEM_INDEXED_BASE_CYCLES 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5304 + (MEM_EXTENDED_CYCLES 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5305 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5306 + ;; Cycle count for any reg-reg transfer (regardless of size) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5307 + (EXG_CYCLES 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5308 + (TFR_CYCLES 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5309 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5310 + ;; Cycle count for a condition code update (andcc/orcc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5311 + (CC_CYCLES 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5312 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5313 + (JMP_DIRECT_CYCLES 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5314 + (JMP_INDEXED_BASE_CYCLES 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5315 + (JMP_EXTENDED_CYCLES 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5316 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5317 + (JSR_DIRECT_CYCLES 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5318 + (JSR_INDEXED_BASE_CYCLES 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5319 + (JSR_EXTENDED_CYCLES 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5320 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5321 + (LEA_BASE_CYCLES 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5322 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5323 + ;; Cycle count for a psh/pul operations. Add to this the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5324 + ;; total number of bytes moved for the correct count. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5325 + (PSH_PUL_CYCLES 5) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5326 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5327 + ;; Miscellaneous cycle counts |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5328 + (CWAI_CYCLES 20) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5329 + (MUL_CYCLES 11) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5330 + (NOP_CYCLES 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5331 + (RTI_CYCLES 15) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5332 + (RTS_CYCLES 5) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5333 + (SWI_CYCLES 20) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5334 + (SYNC_CYCLES 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5335 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5336 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5337 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5338 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5339 +; An enumeration of values for each "unspec"; i.e. unspecified |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5340 +; instruction. These represent insns that are meaningful on the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5341 +; 6809 but which have no intrinsic meaning to GCC itself. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5342 +; These insns can be generated explicitly using the __builtin_xxx |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5343 +; syntax; they are also implicitly generated by the backend |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5344 +; as needed to implement other insns. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5345 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5346 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5347 + (UNSPEC_BLOCKAGE 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5348 + (UNSPEC_PUSH_RS 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5349 + (UNSPEC_POP_RS 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5350 + (UNSPEC_SWI 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5351 + (UNSPEC_CWAI 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5352 + (UNSPEC_ADD_CARRY 5) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5353 + (UNSPEC_SUB_CARRY 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5354 + (UNSPEC_SYNC 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5355 + (UNSPEC_ADD_DECIMAL 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5356 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5357 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5358 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5359 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5360 +;;- Predicates |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5361 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5362 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5363 +(include "predicates.md") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5364 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5365 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5366 +;;- Attributes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5367 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5368 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5369 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5370 +;; The type attribute is used to distinguish between different |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5371 +;; types of branch instructions, so that their lengths can be |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5372 +;; calculated correctly. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5373 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5374 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5375 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5376 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5377 +;; The length of a branch instruction is calculated based on how |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5378 +;; far away the branch target is. Lengths of other insns default |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5379 +;; to 4. set_attr is used in instruction templates to specify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5380 +;; the length when it is known exactly. When not sure, err on |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5381 +;; the high side to avoid compile errors. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5382 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5383 +(define_attr "length" "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5384 + (cond [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5385 + (eq_attr "type" "branch") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5386 + (if_then_else (lt (minus (match_dup 0) (pc)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5387 + (const_int MIN_SHORT_BRANCH_OFFSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5388 + (const_int LONG_BRANCH_LENGTH) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5389 + (if_then_else (gt (minus (match_dup 0) (pc)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5390 + (const_int MAX_SHORT_BRANCH_OFFSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5391 + (const_int LONG_BRANCH_LENGTH) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5392 + (const_int SHORT_BRANCH_LENGTH))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5393 + (eq_attr "type" "cbranch") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5394 + (if_then_else (lt (minus (match_dup 0) (pc)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5395 + (const_int MIN_SHORT_BRANCH_OFFSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5396 + (const_int LONG_CBRANCH_LENGTH) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5397 + (if_then_else (gt (minus (match_dup 0) (pc)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5398 + (const_int MAX_SHORT_BRANCH_OFFSET)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5399 + (const_int LONG_CBRANCH_LENGTH) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5400 + (const_int SHORT_CBRANCH_LENGTH))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5401 + ] (const_int DEFAULT_INSN_LENGTH))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5402 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5403 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5404 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5405 +;; The default attributes for 'asm' statements. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5406 +;; The default length is the longest possible single 6809 instruction, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5407 +;; which is 5 bytes. GCC will automatically multiply this by the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5408 +;; number of real insns contained in an asm statement. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5409 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5410 +(define_asm_attributes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5411 + [(set_attr "length" "5") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5412 + (set_attr "type" "unknown")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5413 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5414 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5415 +;; An attribute for the number of cycles that it takes an instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5416 +;; to execute. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5417 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5418 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5419 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5420 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5421 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5422 +;;- Instruction patterns. When multiple patterns apply, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5423 +;;- the first one in the file is chosen. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5424 +;;- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5425 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5426 +;;- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5427 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5428 +;;- for most instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5429 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5430 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5431 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5432 +;;- Test |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5433 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5434 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5435 +;; cmpx is 3 bytes, not 4 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5436 +(define_insn "*tsthi_x" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5437 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5438 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5439 + "cmpx\t#0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5440 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5441 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5442 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5443 +(define_insn "*tsthi_d" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5444 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5445 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5446 + "subd\t#0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5447 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5448 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5449 +(define_insn "*tsthi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5450 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5451 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5452 + "cmp%0\t#0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5453 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5454 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5455 +(define_insn "*bitqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5456 + [(set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5457 + (and:QI (match_operand:QI 0 "register_operand" "%q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5458 + (match_operand:QI 1 "general_operand" "mi")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5459 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5460 + "bit%0\t%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5461 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5462 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5463 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5464 +(define_insn "tstqi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5465 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5466 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5467 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5468 + tst%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5469 + tst\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5470 + [(set_attr "length" "1,3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5471 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5472 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5473 +;;- Compare instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5474 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5475 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5476 +;; - cmphi for register to memory or register compares |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5477 +(define_insn "cmphi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5478 + [(set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5479 + (compare |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5480 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5481 + (match_operand:HI 1 "general_operand" "mi, da, dU")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5482 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5483 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5484 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5485 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5486 + return "cmp%0\t,s++\t;cmphi:"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5487 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5488 + if (GET_CODE (operands[0]) == REG) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5489 + return "cmp%0\t%1\t;cmphi:"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5490 + else { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5491 + cc_status.flags |= CC_REVERSED; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5492 + return "cmp%1\t%0\t;cmphi:(R)"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5493 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5494 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5495 + [(set_attr "length" "5,5,7")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5496 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5497 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5498 +(define_insn "cmpqi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5499 + [(set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5500 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5501 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5502 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5503 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5504 + if (REG_P (operands[0]) && !M_REG_P (operands[0])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5505 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5506 + if (operands[1] == const0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5507 + return "tst%0\t;cmpqi:(ZERO)"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5508 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5509 + return "cmp%0\t%1\t;cmpqi:"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5510 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5511 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5512 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5513 + cc_status.flags |= CC_REVERSED; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5514 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5515 + if (operands[0] == const0_rtx) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5516 + return "tst%1\t;cmpqi:(RZERO)"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5517 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5518 + return "cmp%1\t%0\t;cmpqi:(R)"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5519 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5520 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5521 + [(set_attr "length" "1,3,2,1,3,2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5522 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5523 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5524 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5525 +;;- Compare/branch pattern |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5526 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5527 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5528 +(define_expand "cbranchhi4" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5529 + [(set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5530 + (compare |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5531 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5532 + (match_operand:HI 2 "general_operand" "mi, da, dU"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5533 + (set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5534 + (if_then_else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5536 + (label_ref (match_operand 3 "" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5537 + (pc)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5538 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5539 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5540 +) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5541 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5542 +(define_expand "cbranchqi4" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5543 + [(set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5544 + (compare |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5545 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5546 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5547 + (set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5548 + (if_then_else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5549 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5550 + (label_ref (match_operand 3 "" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5551 + (pc)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5552 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5553 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5554 +) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5555 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5556 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5557 +;;- Move |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5558 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5559 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5560 +; this looks good (obviously not finished) but I still see 'movsi' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5561 +; places in udivsi3 where it's broken |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5562 +; (define_insn "pushsi1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5563 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5564 +; (match_operand:SI 0 "general_operand" "o")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5565 +; (set (reg:HI HARD_S_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5566 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5567 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5568 +; "; pushsi %0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5569 +; [(set_attr "length" "12")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5570 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5571 +; (define_insn "popsi1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5572 +; [(set (match_operand:SI 0 "general_operand" "=o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5573 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5574 +; (set (reg:HI HARD_S_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5575 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5576 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5577 +; "; popsi %0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5578 +; [(set_attr "length" "12")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5579 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5580 +; (define_insn "movsi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5581 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5582 +; (match_operand:SI 1 "general_operand" " oi"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5583 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5584 +; "; movsi %0 <- %1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5585 +; [(set_attr "length" "1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5586 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5587 +; this doesn't work |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5588 +; (define_expand "movsi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5589 +; [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5590 +; (set (match_operand:SI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5591 +; (match_operand:SI 1 "general_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5592 +; (clobber (match_scratch:HI 2 ""))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5593 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5594 +; { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5595 +; rtx insn; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5596 +; if (STACK_PUSH_P (operands[0]) || STACK_POP_P (operands[1])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5597 +; { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5598 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5599 +; } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5600 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5601 +; DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5602 +; }) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5603 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5604 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5605 +(define_expand "movhi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5606 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5607 + (match_operand:HI 1 "general_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5608 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5609 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5610 + /* One of the ops has to be in a register prior to reload */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5611 + if (!register_operand (operand0, HImode) && |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5612 + !register_operand (operand1, HImode)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5613 + operands[1] = copy_to_mode_reg (HImode, operand1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5614 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5615 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5616 +;;; Try a splitter to handle failure cases where we try to move |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5617 +;;; an immediate constant (zero usually) directly to memory. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5618 +;;; This absolutely requires an intermediate register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5619 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5620 + [(set (match_operand:HI 0 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5621 + (match_operand:HI 1 "immediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5622 + (clobber (match_operand:HI 2 "register_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5623 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5624 + [(set (match_dup 2) (match_dup 1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5625 + (set (match_dup 0) (match_dup 2))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5626 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5627 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5628 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5629 +;;; This would be a nice method for loading from a word array, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5630 +;;; but it is never generated because the combiner cannot merge |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5631 +;;; more than 3 instructions (there are four here). This is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5632 +;;; perhaps better done via a peephole. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5633 +(define_insn "*movhi_array_load" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5634 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5636 + (match_operand:HI 2 "immediate_operand" "i")))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5637 + (clobber (match_scratch:HI 3 "=X"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5638 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5639 + "ldx\t%2\;abx\;abx\;ld%0\t,x" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5640 + [(set_attr "length" "7")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5641 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5642 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5643 +;;; Optimize the move of a byte to the stack using the pshs instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5644 +;;; instead of a store with pre-increment. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5645 +(define_insn "movhi_push" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5646 + [(set (match_operand:HI 0 "push_operand" "=m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5647 + (match_operand:HI 1 "register_operand" "U"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5648 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5649 + "pshs\t%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5650 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5651 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5652 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5653 +(define_insn "*movhi_pic_symbolref" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5654 + [(set (match_operand:HI 0 "register_operand" "=a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5655 + (match_operand:HI 1 "symbolic_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5656 + "flag_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5657 + "lea%0\t%c1,pcr" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5658 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5659 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5660 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5661 +(define_insn "*movhi_1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5662 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5663 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5664 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5665 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5666 + lea%0\t,%1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5667 + tfr\t%1,%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5668 + tfr\t%1,%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5669 + ld%0\t%1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5670 + st%1\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5671 + [(set_attr "length" "2,2,2,*,*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5672 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5673 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5674 +;;; Generated by the combiner to merge an address calculation with |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5675 +;;; a byte load. We can use the 'abx' instruction here. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5676 +(define_insn "*movqi_array_load" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5677 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5678 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5679 + (match_operand:HI 2 "immediate_operand" "i")))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5680 + (clobber (match_scratch:HI 3 "=X"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5681 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5682 + "ldx\t%2\;abx\;ld%0\t,x" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5683 + [(set_attr "length" "6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5684 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5685 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5686 +;;; Optimize the move of a byte to the stack using the pshs instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5687 +;;; instead of a store with pre-increment. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5688 +(define_insn "movqi_push" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5689 + [(set (match_operand:QI 0 "push_operand" "=m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5690 + (match_operand:QI 1 "register_operand" " q"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5691 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5692 + "pshs\t%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5693 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5694 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5695 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5696 +;;; Optimize the move of a byte from the stack using the puls instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5697 +;;; instead of a store with post-decrement. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5698 +(define_insn "movqi_pop" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5699 + [(set (match_operand:QI 0 "register_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5700 + (match_operand:QI 1 "pop_operand" "m"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5701 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5702 + "puls\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5703 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5704 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5705 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5706 +;;- load low byte of 16-bit data into 8-bit register/memory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5707 +(define_insn "*mov_lsb" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5710 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5711 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5712 + \t;movlsbqihi: D->B |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5713 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5714 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5715 + stb\t%0\t;movlsbqihi: R:%1 -> %0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5717 + [(set_attr "length" "0,*,2,*,6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5718 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5719 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5720 +;;- load high byte of 16-bit data into 8-bit register/memory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5721 +(define_insn "*mov_msb" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5722 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5724 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5725 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5726 + tfr\ta,b\t;movmsbqihi: D->B |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5727 + clr%0\t\t;movmsbqihi: ZERO -> R:%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5728 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5729 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5730 + sta\t%0\t;movmsbqihi: R:%1 -> %0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5732 + [(set_attr "length" "2,1,4,*,*,6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5733 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5734 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5735 +(define_insn "*movqi_boolean" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5736 + [(set (reg:QI HARD_Z_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5737 + (match_operand:QI 0 "general_operand" "q,O,i,m"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5738 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5739 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5740 + tst%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5741 + andcc\t#~4 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5742 + orcc\t#4 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5743 + tst\t%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5744 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5745 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5746 +(define_insn "movqi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5747 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5748 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5749 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5750 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5751 + tfr\t%1,%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5752 + clr%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5753 + clr\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5754 + ld%0\t%1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5755 + st%1\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5756 + tfr\tcc,%0\;and%0\t#4 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5757 + tst%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5758 + [(set_attr "length" "2,1,3,*,*,4,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5759 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5760 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5761 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5762 +;;- Swap registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5763 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5764 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5765 +; Note: 8-bit swap is never needed so it is not defined. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5766 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5767 +(define_insn "swaphi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5768 + [(set (match_operand:HI 0 "register_operand" "+r") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5769 + (match_operand:HI 1 "register_operand" "+r")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5770 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5771 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5772 + "exg\t%1,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5773 + [(set_attr "length" "2") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5774 + (set (attr "cycles") (const_int EXG_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5775 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5776 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5777 +(define_insn "bswaphi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5778 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5779 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5780 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5781 + "exg\ta,b" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5782 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5783 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5784 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5785 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5786 +;;- Extension and truncation insns. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5787 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5788 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5789 +(define_insn "extendqihi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5790 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5791 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5792 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5793 + "sex\t\t;extendqihi2: R:%1 -> R:%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5794 + [(set_attr "length" "1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5795 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5796 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5797 +(define_insn "zero_extendqihi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5798 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5799 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5800 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5801 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5802 + [(set_attr "length" "1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5803 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5804 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5805 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5806 +;;- All kinds of add instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5807 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5808 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5809 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5810 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5811 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5812 +;; so it is MUCH less efficient. Define this one ourselves. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5813 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5814 +;; TODO - can't always get 'd' for the clobber... allow other registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5816 +;; use others, at a price. Also consider libcall for this when |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5817 +;; optimizing for size. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5818 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5819 +(define_insn "addsi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5820 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5821 + (plus:SI (match_operand:SI 1 "general_operand" "%o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5822 + (match_operand:SI 2 "general_operand" " oi"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5823 + (clobber (match_scratch:HI 3 "=d"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5824 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5825 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5826 + m6809_output_addsi3 (PLUS, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5827 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5828 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5829 + [(set_attr "length" "21")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5830 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5831 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5832 +; Increment of a 16-bit MEM by 1 can be done without a register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5833 +(define_insn "*addhi_mem_1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5834 + [(set (match_operand:HI 0 "memory_operand" "=m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5835 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5836 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5837 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5838 + rtx xoperands[2]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5839 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5840 + xoperands[0] = operands[0]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5841 + xoperands[1] = adjust_address (operands[0], QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5842 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5843 + output_asm_insn ("inc\t%1", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5844 + output_asm_insn ("bne\t__IL%=", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5845 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5846 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5847 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5848 + [(set_attr "length" "7")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5849 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5850 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5851 +; Decrement of a 16-bit MEM by 1 can be done without a register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5852 +(define_insn "*addhi_mem_minus1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5853 + [(set (match_operand:HI 0 "memory_operand" "=m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5854 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int -1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5855 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5856 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5857 + rtx xoperands[2]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5858 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5859 + xoperands[0] = operands[0]; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5860 + xoperands[1] = adjust_address (operands[0], QImode, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5861 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5862 + output_asm_insn ("tst\t%1", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5863 + output_asm_insn ("bne\t__IL%=", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5864 + output_asm_insn ("dec\t%0", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5865 + output_asm_insn ("__IL%=:", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5866 + output_asm_insn ("dec\t%1", xoperands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5867 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5868 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5869 + [(set_attr "length" "7")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5870 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5871 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5872 +; Allow the addition of an 8-bit quantity to a 16-bit quantity |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5873 +; using the LEAX B,Y addressing mode, where X and Y are both |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5874 +; index registers. This will only get generated via the peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5875 +; which removes a sign extension. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5876 +(define_insn "*addhi_b" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5877 + [(set (match_operand:HI 0 "index_register_operand" "=a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5878 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5879 + (match_operand:QI 2 "register_operand" "q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5880 + ))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5881 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5882 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5883 + [(set_attr "length" "*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5884 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5885 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5886 +; Splitter for addhi pattern #5 below |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5887 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5888 + [(set (match_operand:HI 0 "index_register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5889 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5890 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5891 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5892 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5893 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5894 + (set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5895 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5896 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5897 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5898 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5899 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5900 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5901 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5902 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5903 +; Splitter for addhi pattern #7 below |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5904 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5905 + [(set (match_operand:HI 0 "index_register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5906 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5907 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5908 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5909 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5910 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5911 + (set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5912 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5913 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5914 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5915 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5916 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5917 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5918 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5919 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5920 +; TODO - this is ugly. During RTL generation, we don't know what registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5921 +; are available, so the multiple-insn sequences can only be solved |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5922 +; via 'define_split's during matching. See andhi3 for an example. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5923 +; Keep the constraints with ? modifiers to help reload pick the right |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5924 +; registers. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5925 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5926 +; The forms are: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5927 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5928 +; to avoid this even happening...) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5930 +; now, is this a better way?) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5931 +; 3. Best choice: 'addd' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5932 +; 4. Next best choice: 'lea' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5933 +; 5. Hybrid of 3 and 4 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5934 +; 6. Same as 4, not bad |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5935 +; 7. BAD, no D register at all |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5936 +; 8. 'lea', as good as 4. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5937 +(define_insn "addhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5940 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5941 + ))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5942 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5943 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5945 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5946 + add%0\t%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5947 + lea%0\t%1,%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5948 + # |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5949 + lea%0\t%2,%1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5950 + # |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5951 + lea%0\t%a2,%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5952 + [(set_attr "length" "2,6,*,*,7,*,7,*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5953 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5954 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5955 +(define_insn "addqi3_carry" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5956 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5957 + (unspec:QI [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5958 + (match_operand:QI 1 "whole_general_operand" "%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5959 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5960 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5961 + "adc%0\t%2\t;addqi_carry: R:%0 += %2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5962 + [(set_attr "length" "*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5963 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5964 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5965 +; TODO: specifying 'A' for the first constraint, to force into the A register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5966 +; is not working because of the way registers are currently set up. This will |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5967 +; take some work to get right. Thus the second alternative as a backup. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5968 +(define_insn "addqi3_decimal" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5969 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5970 + (unspec:QI [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5971 + (match_operand:QI 1 "general_operand" "%0,0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5972 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5973 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5974 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5975 + adda\t%2\;daa |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5976 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5977 + [(set_attr "length" "5,9")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5978 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5979 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5980 +(define_insn "addqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5981 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
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") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5983 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5984 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5985 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5986 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5987 + inc%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5988 + dec%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5989 + inc\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5990 + dec\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5991 + add%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5992 + [(set_attr "length" "1,1,1,3,3,*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5993 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5994 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5995 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5996 +;;- Subtract instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5997 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5998 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
5999 +(define_insn "subsi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6000 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6001 + (minus:SI (match_operand:SI 1 "general_operand" " o") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6002 + (match_operand:SI 2 "general_operand" " oi"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6003 + (clobber (match_scratch:HI 3 "=d"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6004 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6005 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6006 + m6809_output_addsi3 (MINUS, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6007 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6008 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6009 + [(set_attr "length" "21")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6010 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6011 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6012 +(define_insn "subhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6013 + [(set (match_operand:HI 0 "register_operand" "=d, d, a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6014 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6015 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6016 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6017 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6018 + sub%0\t%2\t;subhi: R:%0 -= %2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6019 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6020 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6021 + [(set_attr "length" "*,5,3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6022 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6023 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6024 +(define_insn "subqi3_carry" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6025 + [(set (match_operand:QI 0 "register_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6026 + (unspec:QI [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6027 + (match_operand:QI 1 "whole_general_operand" "%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6028 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6029 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6030 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6031 + [(set_attr "length" "*")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6032 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6033 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6034 +(define_insn "subqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6035 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, !q, q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6036 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, tmn, 0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6037 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, 0, t")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6038 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6039 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6040 + dec%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6041 + sub%0\t%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6042 + dec%0\;neg%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6043 + sub%0\t%1\;neg%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6044 + sub%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6045 + [(set_attr "length" "1,3,2,4,3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6046 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6047 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6048 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6049 +;;- Multiply instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6050 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6051 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6052 +; TODO - merge these two instructions, using 'extend_operator' to match |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6053 +; either signed or zero extension. Everything else is the same. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6054 +(define_insn "mulqihi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6055 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6056 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6057 + (match_operand:QI 2 "general_operand" "tmK")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6058 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6059 + "lda\t%2\t;mulqihi3\;mul" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6060 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6061 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6062 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6063 +(define_insn "umulqihi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6064 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6065 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6066 + (match_operand:QI 2 "general_operand" "tmK")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6067 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6068 + "lda\t%2\t;umulqihi3\;mul" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6069 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6070 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6071 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6072 +; Expand a 16x16 multiplication into either a libcall or a shift. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6073 +; If the second operand is a small constant, use the above form. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6074 +; Otherwise, do a libcall. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6075 +(define_expand "mulhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6076 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6077 + (mult:HI (match_operand:HI 1 "general_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6078 + (match_operand:HI 2 "nonmemory_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6079 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6080 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6081 + emit_libcall_insns (HImode, "mulhi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6082 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6083 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6084 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6085 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6086 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6087 +;;- Divide instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6088 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6089 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6090 +(define_expand "divhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6091 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6092 + (div:HI (match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6093 + (match_operand:HI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6094 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6095 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6096 + emit_libcall_insns (HImode, "divhi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6097 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6098 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6099 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6100 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6101 +(define_expand "divqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6102 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6103 + (div:QI (match_operand:QI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6104 + (match_operand:QI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6105 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6106 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6107 + emit_libcall_insns (QImode, "divqi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6108 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6109 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6110 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6111 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6112 +(define_expand "udivhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6113 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6114 + (udiv:HI (match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6115 + (match_operand:HI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6116 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6117 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6118 + emit_libcall_insns (HImode, "udivhi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6119 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6120 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6121 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6122 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6123 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6124 +;;- mod |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6125 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6126 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6127 +(define_expand "modhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6128 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6129 + (mod:HI (match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6130 + (match_operand:HI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6131 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6132 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6133 + emit_libcall_insns (HImode, "modhi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6134 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6135 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6136 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6137 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6138 +(define_expand "modqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6139 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6140 + (mod:QI (match_operand:QI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6141 + (match_operand:QI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6142 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6143 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6144 + emit_libcall_insns (QImode, "modqi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6145 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6146 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6147 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6148 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6149 +(define_expand "umodhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6150 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6151 + (umod:HI (match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6152 + (match_operand:HI 2 "register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6153 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6154 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6155 + emit_libcall_insns (HImode, "umodhi3", operands, 2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6156 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6157 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6158 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6159 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6160 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6161 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6162 +;;- and, or, xor common patterns |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6163 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6164 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6165 +; Split a bitwise HImode into two QImode instructions, with one of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6166 +; the sources in a pushable register. The register is pushed onto |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6167 +; the stack and memory pop operands (,s+) are used in the QI forms. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6168 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6169 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6170 + (match_operator:HI 3 "logical_bit_operator" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6171 + [(match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6172 + (match_operand:HI 2 "register_operand" "")]))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6173 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6174 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6175 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6176 + [(reg:QI HARD_A_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6177 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6178 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6179 + [(reg:QI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6180 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6181 + (use (reg:QI HARD_A_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6182 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6183 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6184 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6185 +; Split a bitwise HImode into two QImode instructions, with one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6186 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6187 +; reference. This requires dereferencing the pointer into a |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6188 +; temporary register (X), which must be saved/restored around the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6189 +; compute instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6190 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6191 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6192 + (match_operator:HI 3 "logical_bit_operator" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6193 + [(match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6194 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6195 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6196 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6197 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6198 + (set (match_dup 4) (match_dup 2)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6199 + (set (match_dup 4) (mem:HI (match_dup 4))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6200 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6201 + [(reg:QI HARD_A_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6202 + (mem:QI (post_inc:QI (match_dup 4)))])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6203 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6204 + [(reg:QI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6205 + (mem:QI (post_inc:QI (match_dup 4)))])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6206 + (use (reg:QI HARD_A_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6207 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6208 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6209 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6210 + /* Use X for a temporary index register */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6211 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6212 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6213 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6214 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6215 +; Split a bitwise HImode into two QImode instructions. This is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6216 +; the common case. This handles splitting when neither of the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6217 +; above two cases applies. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6218 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6219 + [(set (match_operand:HI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6220 + (match_operator:HI 3 "logical_bit_operator" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6221 + [(match_operand:HI 1 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6222 + (match_operand:HI 2 "general_operand" "")]))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6223 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6224 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6225 + [(reg:QI HARD_A_REGNUM) (match_dup 4)])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6226 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6227 + [(reg:QI HARD_D_REGNUM) (match_dup 5)])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6228 + (use (reg:QI HARD_A_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6229 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6230 + if (GET_CODE (operands[2]) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6231 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6232 + operands[4] = gen_rtx_const_high (operands[2]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6233 + operands[5] = gen_rtx_const_low (operands[2]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6234 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6235 + else if ((GET_CODE (operands[2]) == MEM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6236 + && (GET_CODE (XEXP (operands[2], 0)) == MEM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6237 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6238 + FAIL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6239 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6240 + else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6241 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6242 + operands[4] = gen_highpart (QImode, operands[2]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6243 + operands[5] = gen_lowpart (QImode, operands[2]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6244 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6245 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6246 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6247 +; Below are the specific cases for each of the operators. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6248 +; The QImode versions are the simplest and can be implemented |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6249 +; directly on the hardware. The HImode cases are all output |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6250 +; using one of the above splitting techniques. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6251 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6252 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6253 +;;- and |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6254 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6255 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6256 +(define_insn "andhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6257 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6258 + (and:HI (match_operand:HI 1 "register_operand" "%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6259 + (match_operand:HI 2 "general_operand" "mnU")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6260 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6261 + "#") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6262 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6263 +;; it is not clear that this is correct |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6264 +(define_insn "*andqi_2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6265 + [(set |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6266 + (match_operand:QI 0 "register_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6267 + (and:QI (match_operand:QI 1 "register_operand" "q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6268 + (match_operand 2 "const_int_operand" "i")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6269 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6270 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6271 + if (GET_CODE (operands[2]) == CONST_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6272 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6273 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6274 + return "and%0 %3"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6275 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6276 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6277 + return "and%0 %2"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6278 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6279 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6280 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6281 +(define_insn "andqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6282 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6283 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6284 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6285 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6286 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6287 + clr%0\t;andqi(ZERO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6288 + \t;andqi(-1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6289 + and%0\t%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6290 + and%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6291 + [(set_attr "length" "1,0,3,2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6292 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6293 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6294 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6295 +;;- or |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6296 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6297 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6298 +(define_insn "iorhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6299 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6300 + (ior:HI (match_operand:HI 1 "register_operand" "%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6301 + (match_operand:HI 2 "general_operand" "mnU")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6302 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6303 + "#") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6304 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6305 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6306 +(define_insn "iorqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6307 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6308 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6309 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6310 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6311 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6312 + \t;iorqi(ZERO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6313 + or%0\t%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6314 + or%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6315 + [(set_attr "length" "0,3,2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6316 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6317 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6318 +;;- xor |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6319 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6320 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6321 +(define_insn "xorhi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6322 + [(set (match_operand:HI 0 "register_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6323 + (xor:HI (match_operand:HI 1 "register_operand" "%0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6324 + (match_operand:HI 2 "general_operand" "mnU")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6325 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6326 + "#") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6327 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6328 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6329 +(define_insn "xorqi3" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6330 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6331 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6332 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6333 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6334 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6335 + \t;xorqi(ZERO) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6336 + com%0\t;xorqi(-1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6337 + eor%0\t%2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6338 + eor%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6339 + [(set_attr "length" "0,1,3,2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6340 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6341 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6342 +;;- Two's Complements |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6343 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6344 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6345 +(define_insn "neghi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6346 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6347 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6348 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6349 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6350 + nega\;negb\;sbca\t#0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6351 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6352 + [(set_attr "length" "5,9")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6353 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6354 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6355 +(define_insn "negqi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6356 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6357 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6358 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6359 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6360 + neg%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6361 + neg\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6362 + [(set_attr "length" "1,3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6363 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6364 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6365 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6366 +;;- One's Complements |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6367 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6368 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6369 +(define_insn "one_cmplhi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6370 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6371 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6372 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6373 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6374 + coma\;comb |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6375 + com\t%0\;com\t%L0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6376 + exg\td,%0\;coma\;comb\;exg\td,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6377 + [(set_attr "length" "2,6,6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6378 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6379 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6380 +(define_insn "one_cmplqi2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6381 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6382 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6383 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6384 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6385 + com%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6386 + com\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6387 + [(set_attr "length" "1,3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6388 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6389 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6390 +;;- Shifts/rotates |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6391 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6392 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6393 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6394 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6395 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6396 +(define_mode_iterator bit_mode [QI HI]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6397 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6398 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6399 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6400 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6401 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6402 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6403 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6404 + (match_operand:bit_mode 2 "nonmemory_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6405 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6406 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6407 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6408 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6409 +; Individual instructions implemented in the CPU. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6410 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6411 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6412 +(define_insn "*ashift1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6413 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6414 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6415 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6416 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6417 + asl\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6418 + asl%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6419 + [(set_attr "length" "3,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6420 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6421 +(define_insn "*lshiftrt1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6422 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6423 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6424 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6425 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6426 + lsr\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6427 + lsr%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6428 + [(set_attr "length" "3,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6429 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6430 +(define_insn "*ashiftrt1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6431 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6432 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6433 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6434 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6435 + asr\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6436 + asr%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6437 + [(set_attr "length" "3,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6438 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6439 +(define_insn "*rotate1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6440 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6441 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6442 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6443 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6444 + rol\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6445 + rol%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6446 + [(set_attr "length" "3,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6447 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6448 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6449 +(define_insn "*rotatert1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6450 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6451 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6452 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6453 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6454 + ror\t%0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6455 + ror%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6456 + [(set_attr "length" "3,1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6457 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6458 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6459 +; A shift by 8 for D reg can be optimized by just moving |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6460 +; between the A/B halves, and then zero/sign extending or |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6461 +; filling in zeroes. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6462 +; Because GCC does not understand that 'A' and 'D' refer to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6463 +; the same storage location, we must use 'USE' throughout |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6464 +; to prevent deletion of 'unnecessary' instructions. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6465 +; Similar optimization for MEM would require a scratch register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6466 +; so is not done here. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6467 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6468 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6469 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6470 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6471 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6472 + (use (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6473 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6474 + (use (reg:QI HARD_A_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6475 + (set (reg:QI HARD_D_REGNUM) (const_int 0)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6476 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6477 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6478 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6479 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6480 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6481 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6482 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6483 + (use (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6484 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6485 + (use (reg:QI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6486 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6487 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6488 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6489 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6490 +(define_split |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6491 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6492 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6493 + [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6494 + (use (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6495 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6496 + (use (reg:QI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6497 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6498 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6499 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6500 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6501 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6502 +; On the WPC hardware, there is a shift register that can be used |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6503 +; to compute (1<<n) efficiently in two instructions. Note that this |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6504 +; form only works when using -mint8 though, because C will promote |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6505 +; to 'int' when doing this operation. TODO : we need a 16-bit form too. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6506 +(define_insn "ashlqi3_wpc" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6507 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6508 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6509 + (match_operand:QI 2 "general_operand" "q")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6510 + "TARGET_WPC" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6511 + "st%2\t0x3FF7\;ld%0\t0x3FF7" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6512 + [(set_attr "length" "6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6513 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6514 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6515 +; Internal instructions for shifting by a constant. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6516 +; Two forms are provided, one for QImode, one for HImode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6517 +; These are always split into the above instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6518 +; (except for QImode forms that directly match one of the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6519 +; above instructions, in which the condition will not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6520 +; allow the splitter to match). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6521 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6522 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6523 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6524 + (bit_code:HI (match_operand:HI 1 "general_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6525 + (match_operand:HI 2 "immediate_operand" "n")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6526 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6527 + "#" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6528 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6529 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6530 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6531 + m6809_split_shift (<bit_code:CODE>, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6532 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6533 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6534 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6535 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6536 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6537 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6538 + (bit_code:QI (match_operand:QI 1 "general_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6539 + (match_operand:QI 2 "immediate_operand" "n")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6540 + "INTVAL (operands[2]) > 1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6541 + "#" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6542 + "&& reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6543 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6544 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6545 + m6809_split_shift (<bit_code:CODE>, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6546 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6547 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6548 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6549 +; Internal instructions for shifting by a nonconstant. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6550 +; These expand into complex assembly. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6551 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6552 +(define_insn "<bit_code:bit_code_name>hi3_reg" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6553 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6554 + (bit_code:HI (match_operand:HI 1 "general_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6555 + (match_operand:HI 2 "nonimmediate_operand" "v")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6556 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6557 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6558 + m6809_output_shift_insn (<bit_code:CODE>, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6559 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6560 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6561 + [(set_attr "length" "20")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6562 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6563 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6564 +(define_insn "<bit_code:bit_code_name>qi3_reg" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6565 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6566 + (bit_code:QI (match_operand:QI 1 "general_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6567 + (match_operand:QI 2 "nonimmediate_operand" "v")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6568 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6569 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6570 + m6809_output_shift_insn (<bit_code:CODE>, operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6571 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6572 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6573 + [(set_attr "length" "16")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6574 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6575 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6576 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6577 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6578 +;;- Jumps and transfers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6579 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6580 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6581 +;;; The casesi pattern is normally *not* defined; see 'tablejump' instead. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6582 +(define_expand "casesi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6583 + [(match_operand:HI 0 "register_operand" "") ; index to jump on |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6584 + (match_operand:HI 1 "immediate_operand" "") ; lower bound |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6585 + (match_operand:HI 2 "immediate_operand" "") ; total range |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6586 + (match_operand 3 "" "") ; table label |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6587 + (match_operand 4 "" "")] ; out of range label |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6588 + "TARGET_BYTE_INT && TARGET_CASESI" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6589 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6590 + m6809_do_casesi (operands[0], operands[1], operands[2], |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6591 + operands[3], operands[4]); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6592 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6593 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6594 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6595 +(define_insn "tablejump_short_offset" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6596 + [(set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6597 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6598 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6599 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6600 + "jmp\t[b,x]\t;tablejump_short_offset" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6601 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6602 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6603 +(define_insn "tablejump_long_offset" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6604 + [(set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6605 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6606 + (match_operand:HI 0 "register_operand" "d"))))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6607 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6608 + "jmp\t[d,x]\t;tablejump_long_offset" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6609 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6610 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6611 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6612 + ;; A tablejump operation gives the address in operand 0, with the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6613 + ;; CODE_LABEL for the table in operand 1. The 'define_expand' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6614 + ;; shows the arguments as GCC presents them. For a register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6615 + ;; operand, the assembly code is straightforward. For a MEM, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6616 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6617 + ;; and one for PIC mode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6618 + (define_expand "tablejump" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6619 + [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6620 + (set (pc) (match_operand:HI 0 "" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6621 + (use (label_ref (match_operand 1 "" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6622 + (clobber (match_scratch:HI 2 "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6623 + ])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6624 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6625 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6626 + }) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6627 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6628 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6629 +(define_insn "*tablejump_reg" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6630 + [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6631 + (set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6632 + (match_operand:HI 0 "register_operand" "a")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6633 + (use (label_ref (match_operand 1 "" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6634 + (clobber (match_scratch:HI 2 "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6635 + ])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6636 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6637 + "jmp\t,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6638 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6639 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6640 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6641 +(define_insn "*tablejump_symbol" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6642 + [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6643 + (set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6644 + (mem:HI |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6645 + (plus:HI (match_operand:HI 0 "register_operand" "a") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6646 + (label_ref (match_operand 1 "" ""))))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6647 + (use (label_ref (match_dup 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6648 + (clobber (match_scratch:HI 2 "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6649 + ])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6650 + "!flag_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6651 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6652 + output_asm_insn ("jmp\t[%a1,%0]", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6653 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6654 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6655 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6656 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6657 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6658 +(define_insn "*tablejump_symbol_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6659 + [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6660 + (set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6661 + (mem:HI |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6662 + (plus:HI (match_operand:HI 0 "register_operand" "d") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6663 + (label_ref (match_operand 1 "" ""))))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6664 + (use (label_ref (match_dup 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6665 + (clobber (match_scratch:HI 2 "=&a")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6666 + ])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6667 + "flag_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6668 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6669 + output_asm_insn ("lea%2\t%a1,pcr", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6670 + output_asm_insn ("ld%0\t%0,%2", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6671 + output_asm_insn ("jmp\t%0,%2", operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6672 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6673 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6674 + [(set_attr "length" "8")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6675 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6676 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6677 +(define_insn "indirect_jump" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6678 + [(set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6679 + (match_operand:HI 0 "register_operand" "a"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6680 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6681 + "jmp\t,%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6682 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6683 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6684 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6685 +(define_insn "jump" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6686 + [(set (pc) (label_ref (match_operand 0 "" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6687 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6688 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6689 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6690 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6691 + [(set (attr "type") (const_string "branch"))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6692 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6693 +; Output assembly for a condition branch instruction. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6694 +(define_insn "*cond_branch" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6695 + [(set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6696 + (if_then_else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6697 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6698 + (label_ref (match_operand 0 "" "")) (pc)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6699 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6700 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6701 + return output_branch_insn ( GET_CODE(operands[1]), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6702 + operands, get_attr_length (insn)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6703 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6704 + [(set (attr "type") (const_string "cbranch"))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6705 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6706 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6707 +; Similar to above, but for a condition branch instruction that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6708 +; had its operands reversed at some point. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6709 +(define_insn "*cond_branch_reverse" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6710 + [(set (pc) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6711 + (if_then_else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6712 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6713 + (pc) (label_ref (match_operand 0 "" ""))))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6714 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6715 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6716 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])), |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6717 + operands, get_attr_length (insn)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6718 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6719 + [(set (attr "type") (const_string "cbranch"))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6720 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6721 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6722 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6723 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6724 +;;- Calls |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6725 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6726 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6727 +;; Generate a call instruction for a function that does not |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6728 +;; return a value. The expander is used during RTL generation. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6729 +;; The instructions below are used during matching; only one |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6730 +;; of them will be used, depending on the type of function |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6731 +;; being called. The different conditions are: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6732 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6733 +;; 1) far_functionp - is this a far function? Those need |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6734 +;; to be output as indirect calls through a far-function |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6735 +;; handler. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6736 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6737 +;; 2) noreturn_functionp - if the function does not return, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6738 +;; we can use a 'jmp' instead of a 'jsr' to call it. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6739 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6740 +;; 3) is PIC mode enabled? If so, we'll always use |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6741 +;; relative calls (lbsr or lbra). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6742 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6743 +;; Note: not all combinations are fully supported, especially |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6744 +;; relating to PIC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6745 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6746 +;; The 'bsr' instruction is never generated. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6747 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6748 +(define_expand "call" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6749 + [(call (match_operand:HI 0 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6750 + (match_operand:HI 1 "general_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6751 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6752 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6753 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6754 +(define_insn "*call_nopic_far" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6755 + [(call (match_operand:HI 0 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6756 + (match_operand:HI 1 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6757 + "far_functionp (operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6758 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6759 + output_far_call_insn (operands, 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6760 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6761 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6762 + [(set_attr "length" "6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6763 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6764 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6765 +; PIC forms come first, and should only match |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6766 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6767 +(define_insn "*call_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6768 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6769 + (match_operand:HI 1 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6770 + "flag_pic && !noreturn_functionp (operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6771 + "lbsr\t%C0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6772 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6773 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6774 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6775 +(define_insn "*call_nopic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6776 + [(call (match_operand:HI 0 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6777 + (match_operand:HI 1 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6778 + "!noreturn_functionp (operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6779 + "jsr\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6780 + [(set_attr "length" "3") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6781 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6782 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6783 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6784 +(define_insn "*call_noreturn_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6785 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6786 + (match_operand:HI 1 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6787 + "flag_pic && noreturn_functionp (operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6788 + "lbra\t%C0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6789 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6790 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6791 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6792 +(define_insn "*call_noreturn_nopic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6793 + [(call (match_operand:HI 0 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6794 + (match_operand:HI 1 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6795 + "noreturn_functionp (operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6796 + "jmp\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6797 + [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6798 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6799 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6800 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6801 +;; Same as above, but for functions that do return a value. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6802 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6803 +(define_expand "call_value" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6804 + [(set (match_operand 0 "" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6805 + (call (match_operand:HI 1 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6806 + (match_operand:HI 2 "general_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6807 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6808 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6809 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6810 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6811 +(define_insn "*call_value_far" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6812 + [(set (match_operand 0 "" "=gz") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6813 + (call (match_operand:HI 1 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6814 + (match_operand:HI 2 "general_operand" "g")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6815 + "far_functionp (operands[1])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6816 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6817 + output_far_call_insn (operands, 1); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6818 + return ""; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6819 +} |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6820 + [(set_attr "length" "6")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6821 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6822 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6823 +(define_insn "*call_value_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6824 + [(set (match_operand 0 "" "=gz") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6825 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6826 + (match_operand:HI 2 "general_operand" "g")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6827 + "flag_pic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6828 + "lbsr\t%C1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6829 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6830 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6831 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6832 +(define_insn "*call_value_nopic" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6833 + [(set (match_operand 0 "" "=gz") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6834 + (call (match_operand:HI 1 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6835 + (match_operand:HI 2 "general_operand" "g")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6836 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6837 + "jsr\t%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6838 + [(set_attr "length" "3") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6839 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6840 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6841 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6842 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6843 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6844 +;; How to generate an untyped call. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6845 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6846 +(define_expand "untyped_call" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6847 + [(parallel [(call (match_operand 0 "" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6848 + (const_int 0)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6849 + (match_operand 1 "" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6850 + (match_operand 2 "" "")])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6851 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6852 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6853 + int i; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6854 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6855 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6856 + for (i=0; i < XVECLEN (operands[2], 0); i++) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6857 + { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6858 + rtx set = XVECEXP (operands[2], 0, i); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6859 + emit_move_insn (SET_DEST (set), SET_SRC (set)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6860 + } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6861 + emit_insn (gen_blockage ()); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6862 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6863 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6864 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6865 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6866 +(define_expand "sibcall" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6867 + [(parallel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6868 + [(call (match_operand:HI 0 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6869 + (match_operand:HI 1 "immediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6870 + (use (reg:HI HARD_PC_REGNUM))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6871 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6872 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6873 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6874 +(define_insn "*sibcall_1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6875 + [(parallel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6876 + [(call (match_operand:HI 0 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6877 + (match_operand:HI 1 "immediate_operand" "i")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6878 + (use (reg:HI HARD_PC_REGNUM))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6879 + "SIBLING_CALL_P(insn)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6880 + "jmp\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6881 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6882 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6883 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6884 +(define_expand "sibcall_value" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6885 + [(parallel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6886 + [(set (match_operand 0 "" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6887 + (call (match_operand:HI 1 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6888 + (match_operand:HI 2 "immediate_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6889 + (use (reg:HI HARD_PC_REGNUM))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6890 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6891 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6892 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6893 +(define_insn "*sibcall_value_1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6894 + [(parallel |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6895 + [(set (match_operand 0 "" "=gz") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6896 + (call (match_operand:HI 1 "memory_operand" "m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6897 + (match_operand:HI 2 "immediate_operand" "i"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6898 + (use (reg:HI HARD_PC_REGNUM))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6899 + "SIBLING_CALL_P(insn)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6900 + "jmp\t%1" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6901 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6902 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6903 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6904 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6905 +;;- Function Entry and Exit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6906 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6907 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6908 +;; On entry to a function, the stack frame looks as follows: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6909 +;; - return address (pushed by the caller) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6910 +;; - saved registers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6911 +;; - local variable storage |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6912 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6913 +;; If the function does not modify the stack after that, then |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6914 +;; any of these can be accessed directly as an offset from |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6915 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6916 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6917 +;; and all references to the stack frame will use that as a base instead. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6918 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6919 +(define_expand "prologue" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6920 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6921 + "prologue_epilogue_required ()" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6922 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6923 + emit_prologue_insns (); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6924 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6925 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6926 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6927 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6928 +;; The function epilogue does exactly the reverse of the prologue, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6929 +;; deallocating local variable space, restoring saved registers, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6930 +;; and returning. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6931 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6932 +;; For the 6809, the return may be 'rti' if the function was |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6933 +;; declared as an interrupt function, but is normally 'rts'. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6934 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6935 +;; Also, as an optimization, the register restore and the 'rts' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6936 +;; can be combined into a single instruction, by adding 'PC' to the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6937 +;; list of registers to be restored. This is only done if there are |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6938 +;; any saved registers, as 'rts' is more efficient by itself. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6939 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6940 +(define_expand "epilogue" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6941 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6942 + "prologue_epilogue_required ()" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6943 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6944 + emit_epilogue_insns (false); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6945 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6946 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6947 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6948 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6949 +(define_expand "sibcall_epilogue" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6950 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6951 + "prologue_epilogue_required ()" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6952 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6953 + emit_epilogue_insns (true); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6954 + DONE; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6955 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6956 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6957 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6958 +;; The RTS instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6959 +(define_insn "return_rts" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6960 + [(return) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6961 + (use (reg:HI HARD_PC_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6962 + "!m6809_current_function_has_type_attr_p (\"interrupt\") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6963 + && m6809_get_live_regs () == 0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6964 + "rts" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6965 + [(set_attr "length" "1") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6966 + (set (attr "cycles") (const_int RTS_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6967 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6968 +(define_insn "return_puls_pc" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6969 + [(return) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6970 + (use (reg:HI HARD_PC_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6971 + "!m6809_current_function_has_type_attr_p (\"interrupt\") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6972 + && m6809_get_live_regs () != 0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6973 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6974 + [(set_attr "length" "1") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6975 + (set (attr "cycles") (const_int RTS_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6976 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6977 +;; The RTI instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6978 +(define_insn "return_rti" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6979 + [(return) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6980 + (use (reg:HI HARD_PC_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6981 + "m6809_current_function_has_type_attr_p (\"interrupt\")" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6982 + "rti" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6983 + [(set_attr "length" "1") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6984 + (set (attr "cycles") (const_int RTI_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6985 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6986 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6987 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6988 +;;- Unspecified instructions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6989 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6990 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6991 +;; An instruction that has the effect of an unspec_volatile, but |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6992 +;; which doesn't require emitting any assembly code. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6993 +(define_insn "blockage" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6994 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6995 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6996 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6997 + [(set_attr "length" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6998 + (set (attr "cycles") (const_int 0))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
6999 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7000 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7001 +;; Say how to push multiple registers onto the stack, using |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7002 +;; the 6809 'pshs' instruction. The operand is a regset |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7003 +;; specifying which registers to push. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7004 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7005 +;; The operand mode is not given intentionally, so as to allow |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7006 +;; any possible integer mode for the regset. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7007 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7008 +;; See below for a peephole that can combine consecutive push |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7009 +;; instructions that qualify for merging. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7010 +(define_insn "register_push" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7011 + [(use (reg:HI HARD_S_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7012 + (unspec_volatile |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7013 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7014 + (clobber (reg:HI HARD_S_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7015 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7016 + "pshs\t%R0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7017 + [(set_attr "length" "2") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7018 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7019 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7020 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7021 +;; Say how to pop multiple registers from the stack, using |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7022 +;; the 6809 'puls' instruction. The operand is the register |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7023 +;; bitset value. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7024 +(define_insn "register_pop" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7025 + [(use (reg:HI HARD_S_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7026 + (unspec_volatile |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7027 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7028 + (clobber (reg:HI HARD_S_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7029 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7030 + "puls\t%R0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7031 + [(set_attr "length" "2") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7032 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7033 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7034 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7035 +(define_insn "m6809_swi" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7036 + [(unspec_volatile |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7037 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7038 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7039 + "@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7040 + swi |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7041 + swi%c0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7042 + [(set_attr "length" "1,2") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7043 + (set (attr "cycles") (const_int SWI_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7044 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7045 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7046 +;; Generate the CWAI instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7047 +(define_insn "m6809_cwai" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7048 + [(unspec_volatile |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7049 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7050 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7051 + "cwai\t%0" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7052 + [(set_attr "length" "2") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7053 + (set (attr "cycles") (const_int CWAI_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7054 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7055 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7056 +;; Generate the SYNC instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7057 +(define_insn "m6809_sync" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7058 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7059 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7060 + "sync" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7061 + [(set_attr "length" "1") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7062 + (set (attr "cycles") (const_int SYNC_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7063 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7064 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7065 +;; Generate the NOP instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7066 +(define_insn "nop" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7067 + [(const_int 0)] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7068 + "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7069 + "nop" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7070 + [(set_attr "length" "1") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7071 + (set (attr "cycles") (const_int NOP_CYCLES))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7072 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7073 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7074 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7075 +;;- Peepholes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7076 +;;-------------------------------------------------------------------- |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7077 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7078 +;;; Each peephole has an ID that is used for debugging. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7079 +;;; Each peephole condition is bracketed by calls to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7080 +;;; m6809_match_peephole2() also for debugging. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7081 +(define_constants [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7082 + (PEEP_END 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7083 + (PEEP_COND 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7084 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7085 + (PEEP_STACK_STORE_INC 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7086 + (PEEP_STACK_CLEAR_INC 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7087 + (PEEP_LSRB_ADCB 2) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7088 + (PEEP_ABX 3) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7089 + (PEEP_ABX2 4) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7090 + (PEEP_INDEXED_INC 5) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7091 + (PEEP_MEM_DEC 6) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7092 + (PEEP_MEM_INC 7) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7093 + (PEEP_MEM_DEC_CMP 8) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7094 + (PEEP_PUSH2 9) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7095 + (PEEP_STORE_IMPLIES_CC 10) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7096 + (PEEP_DEC_IMPLIES_CC 11) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7097 + (PEEP_LEAB 12) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7098 + (PEEP_LDX_INDIRECT 13) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7099 + (PEEP_POP_JUNK 14) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7100 +]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7101 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7102 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7103 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7104 +;;; function prologue needs to allocate stack space and 'b' is placed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7105 +;;; into that local right away. Combine the stack allocation with the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7106 +;;; store using preincrement mode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7107 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7108 + [(set (reg:HI HARD_S_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7109 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7110 + (set (mem:QI (reg:HI HARD_S_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7111 + (match_operand:QI 0 "register_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7112 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7113 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7114 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7115 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7116 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7117 +;;; Same as above, but for a 'clr ,s' that follows the prologue. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7118 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7119 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7120 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7121 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7122 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7123 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7124 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7125 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7126 +;;; Merge two consecutive push instructions into a single register_push. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7127 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7128 + [(set (match_operand 0 "push_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7129 + (match_operand 1 "register_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7130 + (set (match_operand 2 "push_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7131 + (match_operand 3 "register_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7132 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7133 + && reload_completed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7134 + && GET_MODE (operands[1]) == GET_MODE (operands[3]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7135 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3])) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7136 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7137 + [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7138 + (use (reg:HI HARD_S_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7139 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7140 + (clobber (reg:HI HARD_S_REGNUM))]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7141 + (use (match_dup 1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7142 + (use (match_dup 3))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7143 +{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7144 + operands[4] = gen_rtx_CONST_INT (QImode, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7145 + (1 << REGNO (operands[1])) | (1 << REGNO (operands[3]))); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7146 +}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7147 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7148 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7149 +;;; Convert 'stX ,--s' into a push instruction. Use the regset |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7150 +;;; notation, so that it may be combined with an adjacent regset. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7151 +;;; TBD - this doesn't compile some code cleanly. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7152 +;(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7153 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7154 +; (reg:HI HARD_X_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7155 +; "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7156 +; [(parallel [ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7157 +; (use (reg:HI HARD_S_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7158 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7159 +; (clobber (reg:HI HARD_S_REGNUM))])] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7160 +;{ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7161 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7162 +;}) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7163 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7164 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7165 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7166 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7167 +;;; won't overflow when q=0xFF. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7168 +;;; TODO : this form isn't accounting for promotion when |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7169 +;;; using 16-bit ints. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7170 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7171 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7172 + [(set (reg:QI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7173 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7174 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7175 + "lsrb\;adcb\t#0; peephole" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7176 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7177 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7178 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7179 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7180 +;; Optimize the case of following a register store with a test |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7181 +;; of reg or mem just moved. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7182 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7183 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7184 + [(set (match_operand:HI 0 "memory_operand" "=m") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7185 + (match_operand:HI 1 "register_operand" "r")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7186 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7187 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7188 + && (operands[2] == operands[0] || operands[2] == operands[1]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7189 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7190 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7191 + [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7192 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7193 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7194 +;; Optimize a pair of SET instructions in which the second insn |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7195 +;; is the reverse of the first one. I.e. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7196 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7197 +;; A = B |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7198 +;; ----> A = B |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7199 +;; B = A |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7200 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7201 +;; The second insn is redundant. Define two patterns, one for QI, one for HI. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7202 +;; But don't do this if either is a VOLATILE MEM. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7203 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7204 + [(set (match_operand:HI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7205 + (match_operand:HI 1 "nonimmediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7206 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7207 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7208 + [(set (match_dup 0) (match_dup 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7209 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7210 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7211 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7212 + [(set (match_operand:QI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7213 + (match_operand:QI 1 "nonimmediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7214 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7215 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7216 + [(set (match_dup 0) (match_dup 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7217 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7218 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7219 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7220 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7221 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7222 +;; if B and X can be used. Two patterns are provided to catch both |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7223 +;; X=X+D and X=D+X. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7224 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7225 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7226 + [(set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7227 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7228 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7229 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7230 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7231 + "abx" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7232 + [(set_attr "length" "1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7233 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7234 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7235 + [(set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7236 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7237 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7238 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7239 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7240 + "abx" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7241 + [(set_attr "length" "1")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7242 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7243 +;;; Likewise, handle when B is scaled by 2 prior to the add. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7244 +;;; Instead of shifting B in 4 cycles, just do the ABX a second |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7245 +;;; time, in only 3 cycles. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7246 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7247 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7248 + [(set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7249 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7250 + (set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7251 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7252 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7253 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7254 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7255 + "abx\;abx" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7256 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7257 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7258 +(define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7259 + [(set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7260 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7261 + (set (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7262 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7263 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7264 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7265 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7266 + "abx\;abx" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7267 + [(set_attr "length" "2")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7268 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7269 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7270 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7271 +;; Work around a compiler bug that generates bad code when copying |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7272 +;; between 32-bit memory addresses after a libcall. The problem seen is |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7273 +;; that the source is MEM (REG X), but X is used as the reload register. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7274 +;; The second half of the copy therefore fails. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7275 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7276 +;; The solution is to switch the reload register to D, since that is guaranteed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7277 +;; not to be in use right after a libcall. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7278 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7279 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7280 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7281 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7282 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7283 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7284 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7285 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7286 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7287 + (set (match_dup 0) (reg:HI HARD_D_REGNUM)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7288 + (set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7289 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7290 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7291 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7292 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7293 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7294 +;; Turn "and then test" into a "bit test" operation. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7295 +;; Provide variants for immediate and memory sources |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7296 +;; This is the most used peephople. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7297 +; (define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7298 +; [(set (match_operand:QI 0 "register_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7299 +; (and:QI (match_operand:QI 1 "register_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7300 +; (match_operand:QI 2 "immediate_operand" "i"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7301 +; (set (cc0) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7302 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7303 +; "bit%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7304 +; [(set_attr "length" "3")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7305 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7306 +; (define_peephole |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7307 +; [(set (match_operand:QI 0 "register_operand" "=q") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7308 +; (and:QI (match_operand:QI 1 "register_operand" "0") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7309 +; (match_operand:QI 2 "memory_operand" "m"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7310 +; (set (cc0) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7311 +; "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7312 +; "bit%0\t%2" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7313 +; [(set_attr "length" "4")]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7314 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7315 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7316 +;; Turn a "decrement, then test" sequence into just a "decrement". |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7317 +;; The test can be omitted, since it is implicitly done. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7318 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7319 + [(set (match_operand:QI 0 "nonimmediate_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7320 + (plus:QI (match_operand:QI 1 "whole_general_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7321 + (match_operand:QI 2 "immediate_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7322 + (set (cc0) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7323 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7324 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7325 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7326 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7327 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7328 +;; Merge an indexed register increment with a previous usage. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7329 +;; This is usually done automatically, but not always |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7330 +;; The 'use' should be optional; in all cases where this has been |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7331 +;; seen, it is required though. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7332 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7333 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7334 + (mem:QI (match_operand:HI 1 "index_register_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7335 + (use (match_dup 0)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7336 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7337 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7338 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1)))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7339 + (use (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7340 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7341 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7342 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7343 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7344 +;;; the indirect mode. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7345 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7346 + [(set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7347 + (mem:HI (match_operand:HI 0 "general_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7348 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7349 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7350 + [(set (reg:HI HARD_X_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7351 + (mem:HI (mem:HI (match_dup 0))))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7352 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7353 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7354 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7355 +;;; Reorder a store followed by a unary operation on that memory |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7356 +;;; so that the unary is performed and then the store. Consider |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7357 +;;; a binary shift operation, which will be decomposed into |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7358 +;;; identical single shifts, also. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7359 +;;; TODO - recognize more than just 'ashift' here. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7360 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7361 + [(set (match_operand:QI 0 "memory_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7362 + (match_operand:QI 1 "register_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7363 + (set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7364 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7365 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7366 + [(set (match_dup 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7367 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7368 + (set (match_dup 0) (match_dup 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7369 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7370 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7371 +;;; Likewise, reorder a unary MEM followed by a load, so that the load |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7372 +;;; is done first, then use the REG instead of the MEM. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7373 +;;;(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7374 +;;; [(set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7375 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7376 +;;; (set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7377 +;;; (match_operand:QI 1 "memory_operand" ""))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7378 +;;; "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7379 +;;; [(set (match_dup 0) (match_dup 1)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7380 +;;; (set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7381 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7382 +;;; "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7383 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7384 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7385 +;;; Replace sex; leaX d,Y with leaX b,Y. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7386 +;;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7387 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7388 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7389 + (set (match_operand:HI 0 "index_register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7390 + (plus:HI (match_operand:HI 1 "index_register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7391 + (reg:HI HARD_D_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7392 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7393 + [(set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7394 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7395 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7396 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7397 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7398 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7399 + (set (match_operand:HI 0 "index_register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7400 + (plus:HI (reg:HI HARD_D_REGNUM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7401 + (match_operand:HI 1 "index_register_operand" "")))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7402 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7403 + [(set (match_dup 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7404 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7405 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7406 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7407 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7408 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7409 +;;; register is not needed, then the load will get deleted |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7410 +;;; automatically, but it may be needed for comparisons. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7411 +;;; Same for incb/inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7412 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7413 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7414 + (match_operand:QI 1 "nonimmediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7415 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7416 + (set (match_dup 1) (match_dup 0)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7417 + (set (cc0) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7418 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7419 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7420 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7421 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7422 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7423 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7424 +;;; register is not needed, then the load will get deleted |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7425 +;;; automatically, but it may be needed for comparisons. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7426 +;;; Same for incb/inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7427 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7428 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7429 + (match_operand:QI 1 "nonimmediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7430 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7431 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7432 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7433 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7434 + (set (match_dup 0) (match_dup 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7435 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7436 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7437 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7438 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7439 + (match_operand:QI 1 "nonimmediate_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7440 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7441 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7442 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7443 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7444 + (set (match_dup 0) (match_dup 1))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7445 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7446 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7447 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7448 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7449 +;;; that the branch can never occur because of the limited range of B. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7450 +;;; N must be a power of two for this to make sense. This helps with |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7451 +;;; the default cases of switch statements on a value (x & N). |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7452 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7453 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7454 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7455 + (set (cc0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7456 + (compare (match_dup 0) (match_dup 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7457 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7458 + ] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7459 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7460 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7461 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7462 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7463 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7464 +;;; of the mem, but only if D is dead. Same for 16-bit decrement. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7465 +;;; <mem> must be offsettable for the instruction to match. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7466 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7467 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7468 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7469 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7470 + "reload_completed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7471 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7472 + && peep2_reg_dead_p (3, operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7473 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7474 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7475 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7476 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7477 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" "")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7478 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7479 + (set (match_dup 1) (match_dup 0))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7480 + "reload_completed |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7481 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7482 + && peep2_reg_dead_p (3, operands[0])" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7483 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7484 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7485 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7486 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7487 +;;; Replace a load or store using an indexed register, followed by an increment of that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7488 +;;; register, with the combined form using autoincrement. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7489 +(define_peephole2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7490 + [(set (match_operand:QI 0 "register_operand" "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7491 + (mem:QI (match_operand:HI 1 "index_register_operand" ""))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7492 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7493 + "reload_completed" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7494 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))] |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7495 + "") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7496 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7497 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7498 +;;- mode:emacs-lisp |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7499 +;;- comment-start: ";;- " |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7500 +;;- eval: (set-syntax-table (copy-sequence (syntax-table))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7501 +;;- eval: (modify-syntax-entry ?[ "(]") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7502 +;;- eval: (modify-syntax-entry ?] ")[") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7503 +;;- eval: (modify-syntax-entry ?{ "(}") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7504 +;;- eval: (modify-syntax-entry ?} "){") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7505 +;-; vim: set ts=2: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7506 +;-; vim: set expandtab: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7507 +;-; vim: set filetype=lisp: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7508 +;;- End: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7509 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7510 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7511 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7512 @@ -0,0 +1,98 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7513 +; Options for the M6809 port of the compiler |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7514 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7515 +; Copyright (C) 2005 Free Software Foundation, Inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7516 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7517 +; This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7518 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7519 +; GCC is free software; you can redistribute it and/or modify it under |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7520 +; the terms of the GNU General Public License as published by the Free |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7521 +; Software Foundation; either version 2, or (at your option) any later |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7522 +; version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7523 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7524 +; GCC is distributed in the hope that it will be useful, but WITHOUT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7525 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7526 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7527 +; License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7528 +; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7529 +; You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7530 +; along with GCC; see the file COPYING. If not, write to the Free |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7531 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7532 +; 02110-1301, USA. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7533 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7534 +margcount |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7535 +Target Mask(ARGCOUNT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7536 +Push argument count |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7537 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7538 +mint8 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7539 +Target RejectNegative Mask(BYTE_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7540 +Use 8-bit integers |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7541 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7542 +mint16 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7543 +Target RejectNegative |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7544 +Use 16-bit integers InverseMask(BYTE_INT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7545 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7546 +mreg-args |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7547 +Target Mask(REG_ARGS) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7548 +Use registers for function arguments |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7549 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7550 +mshort_size |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7551 +Target RejectNegative Mask(SMALL_SIZE_T) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7552 +Use 8-bit size_t |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7553 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7554 +mlong_size |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7555 +Target RejectNegative InverseMask(SMALL_SIZE_T) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7556 +Use 16-bit size_t |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7557 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7558 +mdirect |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7559 +Target Mask(DIRECT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7560 +Enable direct addressing |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7561 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7562 +mwpc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7563 +Target RejectNegative Mask(WPC) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7564 +Enable WPC platform extensions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7565 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7566 +mexperiment |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7567 +Target RejectNegative Mask(EXPERIMENT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7568 +Enable current experimental feature |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7569 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7570 +m6309 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7571 +Target RejectNegative Mask(6309) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7572 +Enable Hitachi 6309 extensions |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7573 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7574 +mcasesi |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7575 +Target RejectNegative Mask(CASESI) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7576 +Enable the casesi pattern |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7577 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7578 +mfar-code-page= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7579 +Target RejectNegative Joined Var(far_code_page_option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7580 +Sets the far code page value for this compilation unit |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7581 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7582 +mcode-section= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7583 +Target RejectNegative Joined Var(code_section_ptr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7584 +Sets the name of the section for code |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7585 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7586 +mdata-section= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7587 +Target RejectNegative Joined Var(data_section_ptr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7588 +Sets the name of the section for initialized data |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7589 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7590 +mbss-section= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7591 +Target RejectNegative Joined Var(bss_section_ptr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7592 +Sets the name of the section for uninitialized data |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7593 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7594 +mabi_version= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7595 +Target RejectNegative Joined Var(m6809_abi_version_ptr) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7596 +Sets the calling convention |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7597 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7598 +msoft-reg-count= |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7599 +Target RejectNegative Joined Var(m6809_soft_reg_count) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7600 +Sets the number of soft registers that can be used |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7601 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7602 +mdret |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7603 +Target RejectNegative Mask(DRET) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7604 +Put function call results in D, not X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7605 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7606 +mfar-stack-param |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7607 +Target Mask(FAR_STACK_PARAM) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7608 +Enable stack parameters to a farcall |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7609 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7610 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7611 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7612 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7613 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7614 @@ -0,0 +1,94 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7615 +/* GCC for 6809 : machine-specific function prototypes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7616 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7617 +This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7618 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7619 +GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7620 +it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7621 +the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7622 +any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7623 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7624 +GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7625 +but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7626 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7627 +GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7628 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7629 +You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7630 +along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7631 +<http://www.gnu.org/licenses/>. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7632 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7633 +#ifndef __M6809_PROTOS_H__ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7634 +#define __M6809_PROTOS_H__ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7635 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7636 +void print_options (FILE *file); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7637 +void m6809_cpu_cpp_builtins (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7638 +void m6809_override_options (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7639 +void m6809_init_builtins (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7640 +unsigned int m6809_get_live_regs (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7641 +const char * m6809_get_regs_printable (unsigned int regs); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7642 +unsigned int m6809_get_regs_size (unsigned int regs); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7643 +int m6809_function_has_type_attr_p (tree decl, const char *); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7644 +int m6809_current_function_has_type_attr_p (const char *); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7645 +int prologue_epilogue_required (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7646 +int noreturn_functionp (rtx x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7647 +void output_function_prologue (FILE *file, int size); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7648 +void output_function_epilogue (FILE *file, int size); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7649 +int check_float_value (enum machine_mode mode, double *d, int overflow); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7650 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7651 +void m6809_asm_file_start (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7652 +void m6809_output_ascii (FILE *fp, const char *str, unsigned long size); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7653 +void m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7654 +void m6809_reorg (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7655 +int m6809_current_function_is_void (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7656 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7657 +int m6809_function_value_regno_p (unsigned int regno); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7658 +void emit_prologue_insns (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7659 +void emit_epilogue_insns (bool); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7660 +void m6809_conditional_register_usage (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7661 +void m6809_output_quoted_string (FILE *asm_file, const char *string); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7662 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7663 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7664 +int power_of_two_p (unsigned int n); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7665 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7666 +void m6809_output_addsi3 (int rtx_code, rtx *operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7667 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7668 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7669 +int m6809_single_operand_operator (rtx exp); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7670 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7671 +#ifdef TREE_CODE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7672 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7673 +#endif /* TREE_CODE */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7674 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7675 +#ifdef RTX_CODE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7676 +void print_direct_prefix (FILE *file, rtx addr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7677 +void print_operand (FILE *file, rtx x, int code); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7678 +void print_operand_address (FILE *file, rtx addr); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7679 +void notice_update_cc (rtx exp, rtx insn); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7680 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7681 +rtx gen_rtx_const_high (rtx r); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7682 +rtx gen_rtx_const_low (rtx r); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7683 +rtx gen_rtx_register_pushpop (int pop_flag, int regs); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7684 +void emit_libcall_insns (enum machine_mode mode, const char *name, rtx *operands, int count); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7685 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7686 +void output_far_call_insn (rtx *operands, int has_return); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7687 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7688 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7689 +const char * far_functionp (rtx x); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7690 +rtx m6809_function_value (const tree valtype, const tree func); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7691 +void m6809_output_shift_insn (int rtx_code, rtx *operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7692 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7693 +const char * m6809_get_decl_bank (tree decl); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7694 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7695 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7696 +const char * far_function_type_p (tree type); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7697 +void m6809_asm_trampoline_template(FILE *f); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7698 +bool m6809_frame_pointer_required (void); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7699 +int m6809_can_eliminate (int from, int to); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7700 +int m6809_initial_elimination_offset (int from, int to); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7701 +void m6809_emit_move_insn (rtx dst, rtx src); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7702 +void m6809_split_shift (enum rtx_code code, rtx *operands); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7703 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7704 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7705 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7706 +#endif /* RTX_CODE */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7707 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7708 +#endif /* __M6809_PROTOS_H__ */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7709 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7710 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7711 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7712 @@ -0,0 +1,78 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7713 +;; Predicate definitions for Motorola 6809 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7714 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7715 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7716 +;; This file is part of GCC. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7717 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7718 +;; GCC is free software; you can redistribute it and/or modify |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7719 +;; it under the terms of the GNU General Public License as published by |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7720 +;; the Free Software Foundation; either version 3, or (at your option) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7721 +;; any later version. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7722 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7723 +;; GCC is distributed in the hope that it will be useful, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7724 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7725 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7726 +;; GNU General Public License for more details. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7727 +;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7728 +;; You should have received a copy of the GNU General Public License |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7729 +;; along with GCC; see the file COPYING3. If not see |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7730 +;; <http://www.gnu.org/licenses/>. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7731 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7732 +;; whole_register_operand is like register_operand, but it |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7733 +;; does not allow SUBREGs. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7734 +(define_predicate "whole_register_operand" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7735 + (and (match_code "reg") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7736 + (match_operand 0 "register_operand"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7737 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7738 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7739 +;; A predicate that matches any index register. This can be used in nameless |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7740 +;; patterns and peepholes which need a 16-bit reg, but not D. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7741 +(define_predicate "index_register_operand" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7742 + (and (match_code "reg") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7743 + (match_test "REGNO (op) == HARD_X_REGNUM || REGNO (op) == HARD_Y_REGNUM || REGNO (op) == HARD_U_REGNUM"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7744 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7745 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7746 +;; match only X |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7747 +(define_predicate "register_operand_x" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7748 + (and (match_code "reg") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7749 + (match_test "REGNO (op) == HARD_X_REGNUM"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7750 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7751 +;; match only D |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7752 +(define_predicate "register_operand_d" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7753 + (and (match_code "reg") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7754 + (match_test "REGNO (op) == HARD_D_REGNUM"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7755 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7756 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7757 +;; Likwise, a replacement for general_operand which excludes |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7758 +;; SUBREGs. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7759 +(define_predicate "whole_general_operand" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7760 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7761 + (match_operand 0 "general_operand"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7762 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7763 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7764 +(define_predicate "add_general_operand" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7765 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7766 + (match_operand 0 "general_operand") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7767 + (match_test "REGNO (op) != SOFT_AP_REGNUM"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7768 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7769 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7770 +(define_predicate "shift_count_operand" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7771 + (and (match_code "const_int") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7772 + (and (match_operand 0 "const_int_operand") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7773 + (match_test "INTVAL (op) == 1 || INTVAL (op) == 8")))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7774 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7775 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7776 +;; A predicate that matches any bitwise logical operator. This |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7777 +;; allows for a single RTL pattern to be used for multiple operations. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7778 +(define_predicate "logical_bit_operator" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7779 + (ior (match_code "and") (match_code "ior") (match_code "xor"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7780 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7781 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7782 +;; A predicate that matches any shift or rotate operator. This |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7783 +;; allows for a single RTL pattern to be used for multiple operations. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7784 +(define_predicate "shift_rotate_operator" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7785 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7786 + (match_code "rotate") (match_code "rotatert"))) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7787 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7788 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7789 +(define_predicate "symbolic_operand" (match_code "symbol_ref")) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7790 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7791 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7792 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7793 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7794 @@ -0,0 +1,6 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7795 +# For a few minor differences in code generation on the CoCo... |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7796 +T_CFLAGS = -DTARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7797 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7798 +# For doing the startup differently on the CoCo... |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7799 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7800 +# vim: set filetype=make: |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7801 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7802 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7803 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7804 @@ -0,0 +1,64 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7805 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7806 +# ranlib doesn't exist, so define it to 'true' to make it a no-op |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7807 +RANLIB_FOR_TARGET = true |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7808 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7809 +# Stubs for libgcc defined by m6809 are here |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7810 +LIB1ASMSRC = m6809/libgcc1.s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7811 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7812 +# Here are the functions that are implemented within libgcc1.s |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7813 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7814 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7815 + _ashlhi3 _ashrhi3 _lshrhi3 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7816 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7817 +# Flags to use when building libgcc. IN_GCC does not seem necessary, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7818 +# although the compile breaks without it. -DDF=SF is required to set |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7819 +# the size of "double" to the same as the size of a "float". |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7820 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7821 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7822 +LIB2ADDEH = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7823 +LIB2ADDEHSTATIC = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7824 +LIB2ADDEHSHARED = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7825 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7826 +LIBGCC2_DEBUG_CFLAGS = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7827 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7828 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7829 +# Multilib information |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7830 +# This creates multiple versions of libgcc.a for each set of incompatible |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7831 +# -mxxx options. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7832 +MULTILIB_OPTIONS = fpic mdret |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7833 +MULTILIB_DIRNAMES = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7834 +MULTILIB_MATCHES = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7835 +MULTILIB_EXCEPTIONS = |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7836 +EXTRA_MULTILIB_PARTS = crt0.o |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7837 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7838 +LIBGCC = stmp-multilib |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7839 +INSTALL_LIBGCC = install-multilib |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7840 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7841 +# We want fine grained libraries, so use the new code to build the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7842 +# floating point emulation libraries. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7843 +FPBIT = fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7844 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7845 +fp-bit.c: $(srcdir)/config/fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7846 + echo '#define FLOAT' > fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7847 + echo '#define FLOAT_ONLY' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7848 + echo '#define CMPtype HItype' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7849 + echo '#define SMALL_MACHINE' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7850 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7851 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7852 + echo '#endif' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7853 + echo '#define DI SI' >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7854 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7855 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7856 +# crt0.o is built from the following source file |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7857 +CRT0_S = $(srcdir)/config/m6809/crt0.S |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7858 +MCRT0_S = $(srcdir)/config/m6809/crt0.S |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7859 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7860 +# Flags to use when building crt0.o |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7861 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7862 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7863 +# Assemble startup files. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7864 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7865 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7866 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7867 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7868 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7869 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7870 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7871 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7872 @@ -0,0 +1 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7873 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7874 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7875 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7876 +++ gcc-4.6.4/gcc/config.gcc 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7877 @@ -375,6 +375,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7878 cpu_type=m32r |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7879 extra_options="${extra_options} g.opt" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7880 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7881 +m6809-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7882 + cpu_type=m6809 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7883 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7884 m68k-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7885 extra_headers=math-68881.h |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7886 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7887 @@ -1706,6 +1709,12 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7888 thread_file='posix' |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7889 fi |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7890 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7891 +m6809-coco-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7892 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7893 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7894 +m6809-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7895 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7896 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7897 # m68hc11 and m68hc12 share the same machine description. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7898 m68hc11-*-*|m6811-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7899 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7900 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7901 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7902 +++ gcc-4.6.4/gcc/gcse.c 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7903 @@ -833,7 +833,6 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7904 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7905 if (max_distance == 0) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7906 return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7907 - |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7908 gcc_assert (max_distance > 0); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7909 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7910 else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7911 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7912 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7913 +++ gcc-4.6.4/gcc/libgcc2.c 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7914 @@ -485,6 +485,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7915 #endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7916 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7917 #ifdef L_bswapsi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7918 +#if MIN_UNITS_PER_WORD > 1 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7919 SItype |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7920 __bswapsi2 (SItype u) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7921 { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7922 @@ -494,7 +495,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7923 | (((u) & 0x000000ff) << 24)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7924 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7925 #endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7926 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7927 #ifdef L_bswapdi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7928 +#if LONG_LONG_TYPE_SIZE > 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7929 DItype |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7930 __bswapdi2 (DItype u) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7931 { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7932 @@ -508,6 +511,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7933 | (((u) & 0x00000000000000ffull) << 56)); |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7934 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7935 #endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7936 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7937 #ifdef L_ffssi2 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7938 #undef int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7939 int |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7940 @@ -1280,7 +1284,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7941 UDWtype |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7942 __fixunssfDI (SFtype a) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7943 { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7944 -#if LIBGCC2_HAS_DF_MODE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7945 +#if LIBGCC2_HAS_DF_MODE || (FLT_MANT_DIG >= W_TYPE_SIZE) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7946 /* Convert the SFtype to a DFtype, because that is surely not going |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7947 to lose any bits. Some day someone else can write a faster version |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7948 that avoids converting to DFtype, and verify it really works right. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7949 @@ -1298,7 +1302,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7950 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7951 /* Assemble result from the two parts. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7952 return ((UDWtype) hi << W_TYPE_SIZE) | lo; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7953 -#elif FLT_MANT_DIG < W_TYPE_SIZE |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7954 +#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7955 if (a < 1) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7956 return 0; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7957 if (a < Wtype_MAXp1_F) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7958 @@ -1334,8 +1338,6 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7959 return (DWtype)counter << shift; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7960 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7961 return -1; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7962 -#else |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7963 -# error |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7964 #endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7965 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7966 #endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7967 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7968 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7969 +++ gcc-4.6.4/gcc/longlong.h 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7970 @@ -528,6 +528,11 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7971 : "cbit") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7972 #endif /* __M32R__ */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7973 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7974 +#if defined (__m6309__) || defined (__m6809__) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7975 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7976 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7977 +#endif |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7978 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7979 #if defined (__mc68000__) && W_TYPE_SIZE == 32 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7980 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7981 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7982 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7983 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7984 +++ gcc-4.6.4/gcc/Makefile.in 2015-07-20 19:44:52.770843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7985 @@ -2003,14 +2003,14 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7986 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7987 # Compile the start modules crt0.o and mcrt0.o that are linked with |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7988 # every program |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7989 -$(T)crt0.o: s-crt0 ; @true |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7990 -$(T)mcrt0.o: s-crt0; @true |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7991 +crt0.o: s-crt0 ; @true |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7992 +mcrt0.o: s-crt0; @true |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7993 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7994 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7995 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7996 - -o $(T)crt0.o -c $(CRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7997 + -o crt0.o -c $(CRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7998 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
7999 - -o $(T)mcrt0.o -c $(MCRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8000 + -o mcrt0.o -c $(MCRT0_S) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8001 $(STAMP) s-crt0 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8002 # |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8003 # Compiling object files from source files. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8004 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8005 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8006 +++ gcc-4.6.4/gcc/opth-gen.awk 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8007 @@ -121,7 +121,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8008 END { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8009 print "/* This file is auto-generated by opth-gen.awk. */" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8010 print "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8011 -print "#ifndef OPTIONS_H" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8012 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8013 print "#define OPTIONS_H" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8014 print "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8015 print "#include \"flag-types.h\"" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8016 @@ -432,18 +432,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8017 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8018 for (i = 0; i < n_opts; i++) { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8019 opt = opt_args("InverseMask", flags[i]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8020 - if (opt ~ ",") { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8021 - vname = var_name(flags[i]) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8022 - macro = "OPTION_" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8023 - mask = "OPTION_MASK_" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8024 - if (vname == "") { |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8025 - vname = "target_flags" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8026 - macro = "TARGET_" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8027 - mask = "MASK_" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8028 - } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8029 - print "#define " macro nth_arg(1, opt) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8030 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8031 - } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8032 + if (opt ~ ",") |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8033 + print "#define TARGET_" nth_arg(1, opt) \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8034 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8035 } |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8036 print "" |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8037 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8038 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8039 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8040 +++ gcc-4.6.4/gcc/tree.h 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8041 @@ -3563,6 +3563,8 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8042 TI_UINTDI_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8043 TI_UINTTI_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8044 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8045 + TI_UINT8_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8046 + TI_UINT16_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8047 TI_UINT32_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8048 TI_UINT64_TYPE, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8049 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8050 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8051 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8052 +++ gcc-4.6.4/gcc/version.c 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8053 @@ -21,16 +21,16 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8054 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8055 /* This is the location of the online document giving instructions for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8056 reporting bugs. If you distribute a modified version of GCC, |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8057 - please configure with --with-bugurl pointing to a document giving |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8058 - instructions for reporting bugs to you, not us. (You are of course |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8059 - welcome to forward us bugs reported to you, if you determine that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8060 - they are not bugs in your modifications.) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8061 + please change this to refer to a document giving instructions for |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8062 + reporting bugs to you, not us. (You are of course welcome to |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8063 + forward us bugs reported to you, if you determine that they are |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8064 + not bugs in your modifications.) */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8065 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8066 -const char bug_report_url[] = BUGURL; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8067 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8068 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8069 /* The complete version string, assembled from several pieces. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8070 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8071 Makefile. */ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8072 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8073 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8074 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw)"; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8075 const char pkgversion_string[] = PKGVERSION; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8076 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8077 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8078 +++ gcc-4.6.4/libgcc/config.host 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8079 @@ -371,6 +371,8 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8080 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8081 m32rle-*-linux*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8082 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8083 +m6809*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8084 + ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8085 m68hc11-*-*|m6811-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8086 ;; |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8087 m68hc12-*-*|m6812-*-*) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8088 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8089 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8090 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8091 @@ -23,7 +23,7 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8092 #$(info $o$(objext): -DL$($o-label) $($o-opt)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8093 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8094 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8095 - $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8096 + $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8097 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8098 ifeq ($(enable_shared),yes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8099 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8100 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8101 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8102 +++ gcc-4.6.4/libgcc/Makefile.in 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8103 @@ -374,8 +374,8 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8104 # Build lib2funcs. For the static library also include LIB2FUNCS_ST. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8105 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8106 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8107 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8108 - $(vis_hide) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8109 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8110 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8111 libgcc-objects += $(lib2funcs-o) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8112 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8113 ifeq ($(enable_shared),yes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8114 @@ -410,8 +410,9 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8115 # Build LIB2_DIVMOD_FUNCS. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8116 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8117 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8118 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8119 - -fexceptions -fnon-call-exceptions $(vis_hide) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8120 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8121 + $(gcc_compile) -DL$* -c $*.c \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8122 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8123 libgcc-objects += $(lib2-divmod-o) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8124 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8125 ifeq ($(enable_shared),yes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8126 @@ -443,7 +444,8 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8127 ifneq ($(FPBIT),) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8128 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8129 $(fpbit-o): %$(objext): $(FPBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8130 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8131 + ln -sf $(FPBIT) $*.c && \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8132 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8133 libgcc-objects += $(fpbit-o) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8134 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8135 ifeq ($(enable_shared),yes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8136 @@ -458,7 +460,8 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8137 ifneq ($(DPBIT),) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8138 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS)) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8139 $(dpbit-o): %$(objext): $(DPBIT) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8140 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8141 + ln -sf $(DPBIT) $*.c && \ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8142 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8143 libgcc-objects += $(dpbit-o) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8144 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8145 ifeq ($(enable_shared),yes) |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8146 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8147 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8148 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600 |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8149 @@ -0,0 +1,14 @@ |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8150 +This is a port of gcc6809 which is designed to work with the lwtools |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8151 +cross-assembler and linker package. You will need several scripts from that |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8152 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8153 +this. Instructions for building are present in the lwtools package. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8154 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8155 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8156 +Dominy (brian@oddchange.com) with some significant renovations to make it |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8157 +work with gcc 4.6.1. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8158 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8159 +There is no guarantee that it will work for any particular purpose you |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8160 +choose to put it to. |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8161 + |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8162 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT |
|
c8ae69cdb5a9
Update gcc6809 patch to work with pragma=newsource
William Astle <lost@l-w.ca>
parents:
diff
changeset
|
8163 +contact the main GCC developers! |