annotate extra/gcc6809lw-4.6.4-4.patch @ 416:b4d0eafc5bfe

Fix code generation error in gcc6809 It turned out that under some circumstances, the gcc optimizer would select an instruction sequence that had the sense of a branch inverted. It seems this was due to a particular instruction pattern included in the machine description not being quite right with respect to how the condition codes were tracked. Removing that instruction pattern seems to fix things (subtraction with the arguments reversed). gcc seems to be smart enough to figure out how to reorganize code to work without this reversed sense subtraction and then do the right thing.
author William Astle <lost@l-w.ca>
date Thu, 24 Mar 2016 20:07:20 -0600
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
416
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1 diff -urN gcc-4.6.4-clean/config.sub gcc-4.6.4/config.sub
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2 --- gcc-4.6.4-clean/config.sub 2010-05-25 07:22:07.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4 @@ -313,7 +313,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5 c6x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6 basic_machine=tic6x-unknown
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
10 # Motorola 68HC11/12.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
11 basic_machine=$basic_machine-unknown
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
12 os=-none
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
13 @@ -354,7 +354,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
14 | i*86-* | i860-* | i960-* | ia64-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
15 | ip2k-* | iq2000-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
16 | lm32-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
17 - | m32c-* | m32r-* | m32rle-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
18 + | m32c-* | m32r-* | m32rle-* | m6809-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
19 | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
20 | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
21 | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
22 @@ -509,6 +509,10 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
23 basic_machine=arm-unknown
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
24 os=-cegcc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
25 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
26 + coco)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
27 + basic_machine=coco
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
28 + os=-none
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
29 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
30 convex-c1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
31 basic_machine=c1-convex
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
32 os=-bsd
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
36 @@ -3439,6 +3439,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
37 m32r-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
38 noconfigdirs="$noconfigdirs ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
39 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
40 + m6809*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
42 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
43 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
45 libgloss_dir=m68hc11
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
46 diff -urN gcc-4.6.4-clean/configure.ac gcc-4.6.4/configure.ac
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
47 --- gcc-4.6.4-clean/configure.ac 2011-11-18 04:45:44.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
49 @@ -885,6 +885,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
50 m32r-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
51 noconfigdirs="$noconfigdirs ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
52 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
53 + m6809*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
55 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
56 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
58 libgloss_dir=m68hc11
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
59 diff -urN gcc-4.6.4-clean/gcc/calls.c gcc-4.6.4/gcc/calls.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
60 --- gcc-4.6.4-clean/gcc/calls.c 2012-02-09 10:27:25.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
61 +++ gcc-4.6.4/gcc/calls.c 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
62 @@ -2561,7 +2561,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
63 call sequence.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
64 Also do the adjustments before a throwing call, otherwise
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
65 exception handling can fail; PR 19225. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
66 - if (pending_stack_adjust >= 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
67 + if (pending_stack_adjust >= 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
68 || (pending_stack_adjust > 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
69 && (flags & ECF_MAY_BE_ALLOCA))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
70 || (pending_stack_adjust > 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
71 diff -urN gcc-4.6.4-clean/gcc/config/m6809/crt0.S gcc-4.6.4/gcc/config/m6809/crt0.S
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
72 --- gcc-4.6.4-clean/gcc/config/m6809/crt0.S 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
74 @@ -0,0 +1,173 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
75 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
77 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
78 +;;; This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
79 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
80 +;;; GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
81 +;;; it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
82 +;;; the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
83 +;;; any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
84 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
85 +;;; GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
88 +;;; GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
89 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
90 +;;; You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
91 +;;; along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
92 +;;; <http://www.gnu.org/licenses/>.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
93 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
94 + /* Declare external for main() */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
95 + .globl _main
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
96 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
97 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
98 +/* The startup is heavily dependent on the type of machine and
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
99 +OS environment that is available at the start point.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
100 +For the most part, the general idea is the same across machines,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
101 +but the implementation is vastly different. This is managed via
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
102 +conditional compiles throughout the startup code for each of the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
103 +supported machines. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
104 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
105 +#ifdef TARGET_COCO /* CoCo memory map */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
106 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
107 +#define COCO_RAMROM_MODE 0xFFDE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
108 +#define COCO_ALLRAM_MODE 0xFFDF
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
109 +#define COCO_PAGE1 0xFFD5
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
110 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
111 +/* SAM M1 and M0 adjusts the memory size */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
112 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
113 +#define BASIC_WARMSTART_FLAG 0x0071
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
114 +#define BASIC_START 0xA027
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
115 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
116 +#define __STACK_TOP 0x6800
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
117 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
118 +#else /* Simulator (default) memory map */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
119 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
120 +#define SIM_EXIT_REG 0xFF01
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
121 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
122 +#define __STACK_TOP 0xFE00
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
123 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
124 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
125 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
126 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
127 + .area .data
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
128 + .area .ctors
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
129 + .area .dtors
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
130 + .area .bss
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
131 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
133 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
134 + ;;; __exit : Exit point from the program
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
135 + ;;; For simulation, this writes to a special I/O register that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
136 + ;;; the simulator interprets as end-of-program.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
137 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
139 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
140 + .globl __exit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
141 +__exit:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
142 +#ifdef TARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
143 + ;; Go back to ROM/RAM mode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
144 + sta COCO_RAMROM_MODE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
145 + clr BASIC_WARMSTART_FLAG
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
146 + jmp BASIC_START
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
147 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
148 + tfr x,d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
149 + stb SIM_EXIT_REG
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
150 + bra __exit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
151 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
152 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
153 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
155 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
156 + ;;; __start : Entry point to the program
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
157 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
159 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
160 + .globl __start
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
161 +__start:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
162 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
163 +#ifdef HAVE_DIRECT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
164 + ;; Initialize the direct page pointer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
165 + lda #<s_.direct
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
166 + tfr a,dp
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
167 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
168 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
169 +#ifdef TARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
170 + ;; Turn off interrupts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
171 + orcc #(0x10|0x40)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
172 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
173 + ;; Setup All RAM Mode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
174 + sta COCO_ALLRAM_MODE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
175 +#endif /* TARGET_COCO */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
176 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
177 + ;; Initialize the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
178 + lds #__STACK_TOP - 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
179 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
180 + ;; Call any "initializer" functions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
181 + ldu #s_.ctors
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
182 +__ctors_loop:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
183 + ldy ,u++
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
184 + cmpy #0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
185 + beq __ctors_done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
186 + jsr ,y
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
187 + bra __ctors_loop
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
188 +__ctors_done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
189 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
190 + ;; Enable interrupts on the simulator
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
191 +#ifndef TARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
192 + andcc #~(0x10|0x40)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
193 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
194 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
195 + ;; Set up the environment
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
196 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
197 + ;; Set up argc/argv arrays
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
198 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
199 + ;; Call the main function. The exit code will
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
200 + ;; be returned in the X register, unless compiled
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
201 + ;; with -mdret, in which case it comes back in D.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
202 + jsr _main
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
203 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
204 + ;; Call any finalizer functions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
205 + ldu #s_.dtors
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
206 +__dtors_loop:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
207 + ldy ,u++
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
208 + cmpy #0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
209 + beq __dtors_done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
210 + jsr ,y
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
211 + bra __dtors_loop
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
212 +__dtors_done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
213 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
214 + ;; If main returns, then invoke _exit() to stop the program
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
215 + ;; The C library doesn't support -mdret yet, so move the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
216 + ;; argument first.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
217 +#ifdef __DRET__
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
218 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
219 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
220 + jmp _exit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
221 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
222 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
223 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
224 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
225 + ;;; __crt0_vector : Default handler for interrupts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
226 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
227 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
228 +___crt0_vector:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
229 + ;; The default behavior is to simply ignore all
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
230 + ;; non-reset interrupts.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
231 + rti
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
232 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
233 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
234 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
235 + ;;; vector : The interrupt vector table
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
237 + ;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
238 + .area vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
239 +vectors:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
240 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
241 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
242 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
243 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
244 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
245 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
246 + .word ___crt0_vector
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
247 + .word __start
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
248 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
249 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
250 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2015-07-20 19:44:52.766843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
251 @@ -0,0 +1,511 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
252 +/* libgcc routines for m6809
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
253 + Copyright (C) 2006 Free Software Foundation, Inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
254 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
255 +This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
256 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
257 +GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
258 +it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
259 +the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
260 +any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
261 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
262 +GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
263 +but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
265 +GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
266 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
267 +You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
268 +along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
269 +<http://www.gnu.org/licenses/>. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
270 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
271 +/* As a special exception, if you link this library with other files,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
272 + some of which are compiled with GCC, to produce an executable,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
273 + this library does not by itself cause the resulting executable
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
274 + to be covered by the GNU General Public License.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
275 + This exception does not however invalidate any other reasons why
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
276 + the executable file might be covered by the GNU General Public License. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
277 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
278 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
279 +#define SIGFPE jmp _abort
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
280 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
281 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
282 + ; Shift functions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
283 + ; On input, D is value to be shifted, and X has shift count.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
284 + ; Result is also in D.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
285 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
286 +#ifdef L_ashlhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
287 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
288 + .globl _ashlhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
289 +_ashlhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
290 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
291 +1$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
292 + leax -1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
293 + cmpx #-1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
294 + beq 2$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
295 + aslb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
296 + rola
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
297 + bra 1$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
298 +2$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
299 + puls x,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
300 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
301 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
302 +#ifdef L_ashrhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
303 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
304 + .globl _ashrhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
305 +_ashrhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
306 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
307 +1$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
308 + leax -1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
309 + cmpx #-1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
310 + beq 2$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
311 + asra
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
312 + rorb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
313 + bra 1$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
314 +2$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
315 + puls x,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
316 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
317 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
318 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
319 +#ifdef L_lshrhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
320 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
321 + .globl _lshrhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
322 +_lshrhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
323 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
324 +1$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
325 + leax -1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
326 + cmpx #-1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
327 + beq 2$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
328 + lsra
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
329 + rorb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
330 + bra 1$
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
331 +2$:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
332 + puls x,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
333 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
334 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
335 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
336 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
337 +#ifdef L_softregs
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
338 + .area direct
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
339 + .globl m0, m1, m2, m3, m4, m5, m6, m7
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
340 + .globl m8, m9, m10, m11, m12, m13, m14, m15
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
341 +m0: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
342 +m1: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
343 +m2: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
344 +m3: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
345 +m4: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
346 +m5: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
347 +m6: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
348 +m7: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
349 +m8: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
350 +m9: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
351 +m10: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
352 +m11: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
353 +m12: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
354 +m13: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
355 +m14: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
356 +m15: .blkb 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
357 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
358 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
359 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
360 +#ifdef L_ashlsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
361 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
362 + .globl _ashlsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
363 +_ashlsi3_one:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
364 + asl 3,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
365 + rol 2,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
366 + rol 1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
367 + rol ,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
368 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
369 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
370 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
371 +#ifdef L_ashlsi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
372 + /* X points to the SImode (source/dest)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
373 + B is the count */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
374 +_ashlsi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
375 + pshs u
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
376 + cmpb #16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
377 + blt try8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
378 + subb #16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
379 + ; Shift by 16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
380 + ldu 2,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
381 + stu ,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
382 +try8:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
383 + cmpb #8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
384 + blt try_rest
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
385 + subb #8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
386 + ; Shift by 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
387 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
388 +try_rest:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
389 + tstb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
390 + beq done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
391 +do_rest:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
392 + ; Shift by 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
393 + asl 3,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
394 + rol 2,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
395 + rol 1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
396 + rol ,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
397 + decb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
398 + bne do_rest
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
399 +done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
400 + puls u,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
401 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
402 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
403 +#ifdef L_ashrsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
404 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
405 + .globl _ashlsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
406 +_ashrsi3_one:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
407 + asr ,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
408 + ror 1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
409 + ror 2,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
410 + ror 3,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
411 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
412 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
413 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
414 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
415 +#ifdef L_lshrsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
416 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
417 + .globl _lshrsi3_one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
418 +_lshrsi3_one:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
419 + lsr ,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
420 + ror 1,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
421 + ror 2,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
422 + ror 3,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
423 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
424 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
425 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
426 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
427 +#ifdef L_clzsi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
428 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
429 + .globl ___clzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
430 + ; Input: X = 16-bit unsigned integer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
431 + ; Output: X = number of leading zeros
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
432 + ; This function destroys the value in D.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
433 +___clzhi2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
434 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
435 + ; Find the offset of the leftmost '1' bit in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
436 + ; the left half of the word.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
437 + ;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
438 + ; Bits are numbered in the table with 1 meaning the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
439 + ; LSB and 8 meaning the MSB.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
440 + ;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
441 + ; If nonzero, then clz is 8-a.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
442 + tfr x,d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
443 + ldx #___clz_tab
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
444 + tfr a,b
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
445 + clra
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
446 + ldb d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
447 + bne upper_bit_set
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
448 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
449 +lower_bit_set:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
450 + ; If the upper byte is zero, then check the lower
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
451 + ; half of the word. Return 16-a.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
452 + puls d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
453 + clra
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
454 + ldb d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
455 + negb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
456 + addb #16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
457 + bra done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
458 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
459 +upper_bit_set:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
460 + negb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
461 + addb #8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
462 + puls x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
463 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
464 +done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
465 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
466 + puls pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
467 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
468 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
469 +#ifdef L_clzdi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
470 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
471 + .globl ___clzsi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
472 + ; Input: 32-bit unsigned integer is on the stack, just
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
473 + ; above the return address
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
474 + ; Output: X = number of leading zeros
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
475 +___clzsi2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
476 + ; Check the upper 16-bit word
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
477 + ; If it is not zero, then return clzhi2(X).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
478 + ; A branch can be used instead of a call since no
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
479 + ; postprocessing is needed. Use long branch form
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
480 + ; though since functions may not be near each other.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
481 + ldx 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
482 + lbne ___clzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
483 + ldx 4,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
484 + jsr ___clzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
485 + leax 16,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
486 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
487 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
488 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
489 +#ifdef L_ctzsi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
490 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
491 + .globl ___ctzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
492 + ; Input: X = 16-bit unsigned integer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
493 + ; Output: X = number of trailing zeros
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
494 + ; F(x) = 15 - clzhi2(X & -x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
495 + ; This function destroys the value in D.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
496 +___ctzhi2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
497 + tfr x,d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
498 + coma
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
499 + comb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
500 + addd #1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
501 + pshs a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
502 + pshs b
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
503 + tfr x,d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
504 + andb ,s+
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
505 + anda ,s+
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
506 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
507 + jsr ___clzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
508 + tfr x,d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
509 + subd #16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
510 + coma
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
511 + comb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
512 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
513 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
514 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
515 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
516 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
517 +#ifdef L_ctzdi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
518 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
519 + .globl ___ctzsi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
520 + ; Input: 32-bit unsigned integer is on the stack, just
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
521 + ; above the return address
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
522 + ; Output: X = number of leading zeros
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
523 +___ctzsi2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
524 + ; Check the lower 16-bit word
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
525 + ; If it is not zero, then return ctzhi2(X).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
526 + ; A branch can be used instead of a call since no
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
527 + ; postprocessing is needed. Use long branch form
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
528 + ; though since functions may not be near each other.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
529 + ldx 4,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
530 + lbne ___ctzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
531 + ldx 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
532 + jsr ___ctzhi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
533 + leax 16,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
534 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
535 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
536 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
537 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
538 +#ifdef L_mulhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
540 +;;; ___mulhi3 - signed/unsigned multiply
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
541 +;;; Called by GCC to implement 16x16 multiplication
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
542 +;;; Arguments: Two 16-bit values, one in stack, one in X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
543 +;;; Result: 16-bit result in X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
545 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
546 + .globl _mulhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
547 +_mulhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
548 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
549 + lda 5,s ; left msb * right lsb * 256
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
550 + ldb ,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
551 + mul
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
552 + tfr b,a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
553 + clrb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
554 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
555 + ldb 1,s ; left lsb * right msb * 256
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
556 + lda 4,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
557 + mul
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
558 + tfr b,a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
559 + clrb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
560 + leax d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
561 + ldb 1,s ; left lsb * right lsb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
562 + lda 5,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
563 + mul
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
564 + leax d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
565 + puls d,pc ; kill D to remove initial push
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
566 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
567 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
568 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
569 +#ifdef L_divhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
571 +;;; ___divhi3 - signed division
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
572 +;;; Arguments: Dividend in X, divisor on the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
573 +;;; Returns result in X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
575 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
576 + .globl _divhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
577 +_divhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
578 + ldd 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
579 + bne do_div ; check dividend
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
580 + SIGFPE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
581 +do_div:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
582 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
583 + jsr _seuclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
584 + puls x,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
585 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
586 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
587 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
588 +#ifdef L_modhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
590 +;;; ___modhi3 - signed modulo
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
591 +;;; Arguments: Dividend in X, divisor on the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
592 +;;; Returns result in X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
594 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
595 + .globl _modhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
596 +_modhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
597 + ldd 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
598 + bne do_mod ; check dividend
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
599 + SIGFPE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
600 +do_mod:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
601 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
602 + jsr _seuclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
603 + leas 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
604 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
605 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
606 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
607 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
608 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
609 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
610 +#ifdef L_udivhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
612 +;;; ___udivhi3 - unsigned division
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
613 +;;; Arguments: Dividend in X, divisor on the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
614 +;;; Returns result in X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
616 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
617 + .globl _udivhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
618 +_udivhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
619 + ldd 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
620 + bne do_udiv ; check dividend
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
621 + SIGFPE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
622 +do_udiv:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
623 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
624 + jsr _euclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
625 + puls x,pc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
626 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
627 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
628 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
629 +#ifdef L_umodhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
631 +;;; ___umodhi3 - unsigned modulo
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
632 +;;; Arguments: Dividend in X, divisor on the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
633 +;;; Returns result in X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
635 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
636 + .globl _umodhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
637 +_umodhi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
638 + ldd 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
639 + bne do_umod ; check dividend
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
640 + SIGFPE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
641 +do_umod:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
642 + pshs x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
643 + jsr _euclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
644 + leas 2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
645 + tfr d,x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
646 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
647 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
648 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
649 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
650 +#ifdef L_euclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
651 +; unsigned euclidean division
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
652 +; calling: (left / right)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
653 +; push left
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
654 +; ldd right
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
655 +; jsr _euclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
656 +; quotient on the stack (left)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
657 +; modulus in d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
658 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
659 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
660 + .globl _euclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
661 + left=5
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
662 + right=1 ; word
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
663 + count=0 ; byte
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
664 + CARRY=1 ; alias
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
665 +_euclid:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
666 + leas -3,s ; 2 local variables
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
667 + clr count,s ; prescale divisor
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
668 + inc count,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
669 + tsta
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
670 +presc:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
671 + bmi presc_done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
672 + inc count,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
673 + aslb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
674 + rola
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
675 + bra presc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
676 +presc_done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
677 + std right,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
678 + ldd left,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
679 + clr left,s ; quotient = 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
680 + clr left+1,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
681 +mod1:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
682 + subd right,s ; check subtract
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
683 + bcc mod2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
684 + addd right,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
685 + andcc #~CARRY
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
686 + bra mod3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
687 +mod2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
688 + orcc #CARRY
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
689 +mod3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
690 + rol left+1,s ; roll in carry
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
691 + rol left,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
692 + lsr right,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
693 + ror right+1,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
694 + dec count,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
695 + bne mod1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
696 + leas 3,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
697 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
698 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
699 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
700 +#ifdef L_seuclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
701 +; signed euclidean division
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
702 +; calling: (left / right)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
703 +; push left
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
704 +; ldd right
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
705 +; jsr _seuclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
706 +; quotient on the stack (left)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
707 +; modulus in d
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
708 + .area .text
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
709 + .globl _seuclid
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
710 + left=6
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
711 + right=2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
712 + quot_sign=1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
713 + mod_sign=0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
714 +_seuclid:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
715 + leas -4,s ; 3 local variables
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
716 + std right,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
717 + clr mod_sign,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
718 + clr quot_sign,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
719 + ldd left,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
720 + bge mod_abs
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
721 + inc mod_sign,s ; sign(mod) = sign(left)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
722 + inc quot_sign,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
723 + bsr negd ; abs(left) -> D
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
724 +mod_abs:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
725 + pshs b,a ; push abs(left)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
726 + ldd right+2,s ; all references shifted by 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
727 + bge quot_abs
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
729 + bsr negd ; abs(right) -> D
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
730 +quot_abs:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
731 + jsr _euclid ; call (unsigned) euclidean division
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
732 + std right+2,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
733 + puls a,b ; quot -> D
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
734 + tst quot_sign,s ; all references no longer shifted
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
735 + beq quot_done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
736 + bsr negd
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
737 +quot_done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
738 + std left,s ; quot -> left
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
739 + ldd right,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
740 + tst mod_sign,s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
741 + beq mod_done
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
742 + bsr negd
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
743 +mod_done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
744 + leas 4,s ; destroy stack frame
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
745 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
746 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
747 +negd: ; self-explanatory !
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
748 + nega
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
749 + negb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
750 + sbca #0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
751 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
752 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
753 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
754 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
755 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
756 +#ifdef L_pending_addsi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
757 +_addsi3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
758 + rts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
759 +#endif /* L_pending_addsi3 */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
760 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
761 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
762 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
763 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
764 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
765 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2015-07-20 22:11:37.726714746 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
766 @@ -0,0 +1,3023 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
767 +/*-------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
768 + FILE: m6809.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
769 +-------------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
770 +/* Subroutines for insn-output.c for MC6809.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
771 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
772 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
774 + Space Astronomy Laboratory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
775 + University of Wisconsin at Madison
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
776 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
778 + ( msdoerfe@informatik.uni-erlangen.de )
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
779 + also added #pragma interrupt (inspired by gcc-6811)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
780 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
782 + (ebotcazou@multimania.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
783 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
785 + (ebotcazou@multimania.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
786 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
788 + (brian@oddchange.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
789 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
790 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
791 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
792 +This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
793 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
794 +GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
795 +it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
796 +the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
797 +any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
798 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
799 +GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
800 +but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
802 +GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
803 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
804 +You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
805 +along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
806 +<http://www.gnu.org/licenses/>. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
807 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
808 +#include <string.h>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
809 +#include <time.h>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
810 +#include <sys/types.h>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
811 +#include <sys/timeb.h>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
812 +#include <stdio.h>
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
813 +#include "config.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
814 +#include "system.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
815 +#include "coretypes.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
816 +#include "tm.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
817 +#include "tree.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
818 +#include "rtl.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
819 +#include "tm_p.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
820 +#include "regs.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
821 +#include "flags.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
822 +#include "hard-reg-set.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
823 +#include "real.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
824 +#include "tree.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
825 +#include "insn-config.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
826 +#include "conditions.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
827 +#include "insn-flags.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
828 +#include "output.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
829 +#include "insn-attr.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
830 +#include "function.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
831 +#include "target.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
832 +#include "target-def.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
833 +#include "expr.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
834 +#include "recog.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
835 +#include "cpplib.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
836 +#include "c-family/c-pragma.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
837 +#include "c-family/c-common.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
838 +#include "toplev.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
839 +#include "optabs.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
840 +#include "version.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
841 +#include "df.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
842 +#include "rtlhooks-def.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
843 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
844 +/* macro to return TRUE if length of operand mode is one byte */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
846 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
847 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
848 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
849 +register and not a fake one that is emulated in software. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
851 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
852 +/*-------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
853 + Target hooks, moved from target.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
854 +-------------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
855 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
856 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
857 +#undef TARGET_ENCODE_SECTION_INFO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
859 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
860 +#undef TARGET_ASM_FILE_START
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
861 +#define TARGET_ASM_FILE_START m6809_asm_file_start
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
862 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
863 +#undef TARGET_ASM_ALIGNED_HI_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
865 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
866 +#undef TARGET_ASM_ALIGNED_SI_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
867 +#define TARGET_ASM_ALIGNED_SI_OP NULL
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
868 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
869 +#undef TARGET_ASM_UNALIGNED_HI_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
871 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
872 +#undef TARGET_ASM_UNALIGNED_SI_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
874 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
875 +#undef TARGET_RTX_COSTS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
876 +#define TARGET_RTX_COSTS m6809_rtx_costs
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
877 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
878 +#undef TARGET_ATTRIBUTE_TABLE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
880 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
881 +#undef TARGET_INIT_BUILTINS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
882 +#define TARGET_INIT_BUILTINS m6809_init_builtins
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
883 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
884 +#undef TARGET_EXPAND_BUILTIN
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
886 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
887 +#undef TARGET_DEFAULT_TARGET_FLAGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS | MASK_DIRECT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
889 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
892 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
895 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
896 +#undef TARGET_TRAMPOLINE_INIT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
898 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
899 +#undef TARGET_FRAME_POINTER_REQUIRED
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
901 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
902 +#undef TARGET_OPTION_OVERRIDE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
903 +#define TARGET_OPTION_OVERRIDE m6809_override_options
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
904 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
905 +/* External variables used */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
906 +extern int reload_completed; /* set in toplev.c */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
907 +extern FILE *asm_out_file;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
908 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
909 +static int last_mem_size; /* operand size (bytes) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
910 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
911 +/* True if the section was recently changed and another .area
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
912 + * directive needs to be output before emitting the next label. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
913 +int section_changed = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
914 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
915 +/* Section names. The defaults here are used until an
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
916 + * __attribute__((section)) is seen that changes it. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
917 +char code_section_op[128] = "\t.area .text";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
918 +char data_section_op[128] = "\t.area .data";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
919 +char bss_section_op[128] = "\t.area .bss";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
920 +const char *code_bank_option = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
921 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
922 +/* TRUE if the direct mode prefix might be valid in this context.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
923 + * This is set by 'print_address' prior to calling output_addr_const,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
924 + * which performs into 'print_direct_prefix' to do the final checks. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
925 +static int check_direct_prefix_flag;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
926 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
927 +/* Nonzero if an address is being printed in a context which does not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
928 + * permit any PIC modifications to the address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
929 +static int pic_ok_for_addr_p = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
930 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
931 +/* Current code page. This supports machines which can do bank
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
932 + * switching to allow for more than 64KB of code/data. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
933 +char far_code_page[64];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
934 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
935 +/* Current bank name */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
936 +static char current_bank_name[8] = "-1";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
937 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
938 +/* Default bank name */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
939 +static char default_code_bank_name[8] = "-1";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
940 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
941 +/* Direct memory reserved as soft registers */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
942 +unsigned int m6809_soft_regs = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
943 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
944 +/* ABI version */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
946 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
947 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
948 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
949 + * Called after options have been parsed.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
950 + * If overrides have been specified on the command-line, then
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
951 + * these values are copied into the main storage variables.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
952 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
953 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
954 +m6809_override_options (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
955 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
956 + /* Handle -mfar-code-page */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
957 + if (far_code_page_option == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
958 + far_code_page_option = "__default_code_page";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
959 + strcpy (far_code_page, far_code_page_option);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
960 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
962 + if (code_section_ptr != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
963 + sprintf (code_section_op, "\t.area %s", code_section_ptr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
964 + if (data_section_ptr != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
965 + sprintf (data_section_op, "\t.area %s", data_section_ptr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
966 + if (bss_section_ptr != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
968 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
969 + /* Handle -mcode-bank */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
970 + if (code_bank_option != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
971 + sprintf (default_code_bank_name, "%s", code_bank_option);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
972 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
973 + /* Handle -mabi-version or -mno-reg-args */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
974 + if (m6809_abi_version_ptr != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
975 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
976 + if (!strcmp (m6809_abi_version_ptr, "stack"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
977 + m6809_abi_version = M6809_ABI_VERSION_STACK;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
978 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
979 + m6809_abi_version = M6809_ABI_VERSION_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
980 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
981 + m6809_abi_version = M6809_ABI_VERSION_BX;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
982 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
983 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
984 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
985 + m6809_abi_version = atoi (m6809_abi_version_ptr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
986 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
987 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
988 + /* The older -mno-reg-args option is deprecated, and treated
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
989 + as -mabi=stack. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
990 + if (!TARGET_REG_ARGS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
991 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
993 + m6809_abi_version = M6809_ABI_VERSION_STACK;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
994 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
995 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
996 + /* -fexceptions is unsupported */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
997 + flag_exceptions = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
998 + flag_non_call_exceptions = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
999 + flag_unwind_tables = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1000 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1001 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1002 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1003 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1004 + * Output prefix that directs the assembler to use a direct-mode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1005 + * instruction if globally enabled, address is a symbol, and symbol
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1006 + * has been marked as in direct page. Also, never do this if
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1007 + * using the indirect mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1008 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1009 +print_direct_prefix (FILE * file, rtx addr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1010 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1011 + if (TARGET_DIRECT &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1012 + (GET_CODE (addr) == SYMBOL_REF) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1013 + SYMBOL_REF_FLAG (addr) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1014 + check_direct_prefix_flag)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1015 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1016 + putc ('*', file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1017 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1018 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1019 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1020 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1021 +/** Prints an operand (that is not an address) in assembly from RTL. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1022 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1023 +print_operand (FILE * file, rtx x, int code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1024 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1025 + if (REG_P (x)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1026 + /* gcc currently allocates the entire 16-bit 'd' register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1027 + * even when it only needs an 8-bit value. So here it
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1028 + * is tricked into printing only the lower 8-bit 'b'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1029 + * register into the assembly output.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1030 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1031 + * Eventually gcc should be modified to allocate a/b
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1032 + * independently and this hack can be removed.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1033 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1034 + * Occasionally, we may want to do an operation using
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1035 + * the 'a' register instead of 'b'; use the 'A' code
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1036 + * to specify that.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1037 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1038 + if (code == 'A')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1039 + fputs ("a", file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1041 + fputs ("b", file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1042 + else if (M_REG_P (x) && code == 'L')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1043 + /* Soft registers can be treated like memory and accessed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1044 + * at a particular offset. TODO : handle 'W' */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1045 + fputs (reg_names[REGNO (x)+1], file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1046 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1047 + fputs (reg_names[REGNO (x)], file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1048 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1049 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1050 + else if (MEM_P (x)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1052 + if (code == 'L') { /* LSH of word address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1053 + if (GET_CODE (XEXP (x, 0)) == MEM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1054 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1055 + /* Offseting an indirect addressing mode is not supported */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1056 + error ("expression too complex for 6809 (offset indirect mode)");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1057 + debug_rtx (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1058 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1059 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1060 + x = adjust_address (x, QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1061 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1062 + else if (code == 'M') { /* MSH of word address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1063 + if (GET_CODE (XEXP (x, 0)) == MEM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1064 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1065 + /* Offseting an indirect addressing mode is not supported */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1066 + error ("expression too complex for 6809 (offset indirect mode)");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1067 + debug_rtx (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1068 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1069 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1070 + x = adjust_address (x, QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1071 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1072 + else if (code == 'W') { /* least significant half of 32-bit */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1073 + x = adjust_address (x, HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1074 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1075 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1076 + pic_ok_for_addr_p = (code != 'C');
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1077 + output_address (XEXP (x, 0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1078 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1079 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1081 + union { double d; int i[2]; } u;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1082 + u.i[0] = CONST_DOUBLE_LOW (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1083 + u.i[1] = CONST_DOUBLE_HIGH (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1084 + fprintf (file, "#%#9.9g", u.d);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1085 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1086 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1087 + else if (code == 'R') {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1088 + fprintf (file, "%s",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1089 + m6809_get_regs_printable (INTVAL (x)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1090 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1091 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1092 + else {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1093 + if (code == 'L') { /* LSH of word address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1095 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1096 + else if (code == 'M') { /* MSH of word address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1098 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1099 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1100 + putc ('#', file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1101 + output_addr_const (file, x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1102 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1103 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1104 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1105 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1106 +/** Prints an address operand to assembler from its RTL representation. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1107 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1108 +print_operand_address (FILE *file, rtx addr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1109 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1110 + register rtx base = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1111 + register rtx offset = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1112 + int regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1113 + int indirect_flag = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1114 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1115 + check_direct_prefix_flag = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1116 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1117 + /*** check for indirect addressing ***/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1118 + if (MEM_P (addr)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1120 + addr = XEXP (addr, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1121 + if (pic_ok_for_addr_p)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1122 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1123 + indirect_flag = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1124 + fprintf (file, "[");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1125 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1126 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1127 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1128 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1129 + switch (GET_CODE (addr)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1130 + case REG:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1131 + regno = REGNO (addr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1132 + fprintf (file, ",%s", reg_names[regno]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1133 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1134 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1135 + case PRE_DEC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1136 + regno = REGNO (XEXP (addr, 0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1138 + fprintf (file, "%s", reg_names[regno]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1139 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1140 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1141 + case POST_INC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1142 + regno = REGNO (XEXP (addr, 0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1143 + fprintf (file, ",%s", reg_names[regno]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1145 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1146 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1147 + case PLUS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1148 + base = XEXP (addr, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1149 + if (MEM_P (base))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1150 + base = XEXP (base, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1151 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1152 + offset = XEXP (addr, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1153 + if (MEM_P (offset))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1154 + offset = XEXP (offset, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1155 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1157 + if (!indirect_flag)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1158 + check_direct_prefix_flag = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1159 + output_addr_const (file, base);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1160 + check_direct_prefix_flag = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1161 + fputs ("+", file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1162 + output_addr_const (file, offset);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1163 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1164 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1166 + output_addr_const (file, base);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1168 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1169 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1171 + output_addr_const (file, offset);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1172 + fprintf (file, ",%s", reg_names[REGNO (base)]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1173 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1174 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1175 + /*** accumulator offset ***/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1176 + else if (((D_REG_P (offset)) || (Q_REG_P (offset)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1177 + && (A_REG_P (base))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1178 + fprintf (file, "%s,%s",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1180 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1181 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1182 + else if (((D_REG_P (base)) || (Q_REG_P (base)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1183 + && (A_REG_P (offset))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1184 + fprintf (file, "%s,%s",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1186 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1187 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1188 + else if (GET_CODE (base) == PRE_DEC) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1189 + regno = REGNO (XEXP (base, 0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1191 + fprintf (file, "%s", reg_names[regno]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1192 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1193 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1194 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1195 + abort ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1196 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1197 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1198 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1199 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1200 + /* Set this global before calling output_addr_const() */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1201 + if (!indirect_flag)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1202 + check_direct_prefix_flag = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1203 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1205 + * '#' and follow it by ',pcr' to enable relative addressing. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1207 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1208 + ASM_OUTPUT_SYMBOL_REF (file, addr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1209 + fputs (",pcr", file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1210 + pic_ok_for_addr_p = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1211 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1212 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1213 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1214 + output_addr_const (file, addr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1215 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1216 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1217 + check_direct_prefix_flag = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1218 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1219 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1220 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1221 + if (indirect_flag)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1222 + fprintf (file, "]");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1223 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1224 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1225 +/*-------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1226 + Update the CC Status
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1227 +---------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1228 + Set the cc_status for the results of an insn whose pattern is EXP.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1229 + We assume that jumps don't affect the condition codes.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1230 + All else, clobbers the condition codes, by assumption.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1231 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1232 + We assume that ALL add, minus, etc. instructions effect the condition
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1233 + codes.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1234 +-------------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1235 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1237 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1238 + int src_code;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1239 + int dst_code;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1240 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1241 + /*** recognize SET insn's ***/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1242 + if (GET_CODE (exp) == SET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1243 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1244 + src_code = GET_CODE (SET_SRC (exp));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1245 + dst_code = GET_CODE (SET_DEST (exp));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1246 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1247 + /* Jumps do not alter the cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1248 + if (SET_DEST (exp) == pc_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1249 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1250 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1251 + /* Moving one register into another register (tfr):
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1252 + Doesn't alter the cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1254 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1255 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1256 + /* Moving memory into a register (load): Sets cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1258 + cc_status.value1 = SET_SRC (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1259 + cc_status.value2 = SET_DEST (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1260 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1261 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1262 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1263 + /* Moving register into memory (store): Sets cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1264 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1265 + cc_status.value1 = SET_SRC (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1266 + cc_status.value2 = SET_DEST (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1267 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1268 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1269 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1270 + /* Function calls clobber the cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1271 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1272 + CC_STATUS_INIT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1273 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1274 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1275 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1276 + /* Tests and compares set the cc's in predictable ways. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1277 + else if (SET_DEST (exp) == cc0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1278 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1279 + cc_status.flags = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1280 + cc_status.value1 = SET_SRC (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1281 + cc_status.value2 = SET_DEST (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1282 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1283 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1284 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1285 + else if (A_REG_P (SET_DEST (exp)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1286 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1287 + CC_STATUS_INIT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1288 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1289 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1290 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1291 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1292 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1293 + /* Certain instructions affect the condition codes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1294 + switch (src_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1295 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1296 + case PLUS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1297 + case MINUS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1298 + case NEG:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1299 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1300 + /* These instructions set the condition codes,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1301 + * and may modify the V bit. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1302 + cc_status.flags |= CC_NO_OVERFLOW;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1303 + /* FALLTHRU */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1304 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1305 + case AND:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1306 + case IOR:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1307 + case XOR:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1308 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1309 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1310 + /* These instructions set the condition codes,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1311 + * but cannot overflow (V=0). */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1312 + cc_status.value1 = SET_SRC (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1313 + cc_status.value2 = SET_DEST (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1314 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1315 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1316 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1317 + /* Everything else is clobbered */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1318 + CC_STATUS_INIT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1319 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1320 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1321 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1322 + } /* SET */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1323 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1324 + else if (GET_CODE (exp) == PARALLEL
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1325 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1326 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1327 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1328 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1330 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1331 + CC_STATUS_INIT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1332 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1333 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1334 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1335 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1336 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1337 + /*** default action if we haven't recognized something
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1338 + and returned earlier ***/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1339 + CC_STATUS_INIT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1340 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1341 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1342 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1343 +/** Returns nonzero if the expression EXP can be implemented using one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1344 + * of the 6809's single operand instructions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1345 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1346 +m6809_single_operand_operator (rtx exp)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1347 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1348 + rtx op1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1349 + HOST_WIDE_INT val;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1350 + enum rtx_code code;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1351 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1352 + debug_rtx(exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1353 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1354 + code = GET_CODE (exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1355 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1356 + /* Unary operators always qualify */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1357 + switch (code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1358 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1359 + case NEG:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1360 + case NOT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1361 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1362 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1363 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1364 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1365 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1366 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1367 + /* Binary operators can only qualify if the second
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1368 + * argument is a CONST_INT of certain value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1369 + op1 = XEXP (exp, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1370 + if (GET_CODE (op1) != CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1371 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1372 + val = INTVAL (op1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1373 + switch (code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1374 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1375 + case PLUS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1376 + case MINUS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1377 + if (val == -1 || val == 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1378 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1379 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1380 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1381 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1382 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1383 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1384 + case ROTATE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1385 + case ROTATERT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1386 + if (val == 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1387 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1388 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1389 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1390 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1391 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1392 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1393 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1394 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1395 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1396 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1397 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1398 +/** Return a bitarray of the hard registers which are used by a function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1399 +unsigned int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1400 +m6809_get_live_regs (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1401 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1402 + unsigned int regs = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1403 + int regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1404 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1405 + if (frame_pointer_needed)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1406 + regs |= (1 << HARD_FRAME_POINTER_REGNUM);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1407 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1408 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1409 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1410 + regs |= (1 << regno);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1411 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1412 + return regs;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1413 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1414 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1415 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1416 +/** Return a printable version of a list of hard registers, suitable
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1417 + * for use in a PSHx or PULx insn. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1418 +const char *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1419 +m6809_get_regs_printable (unsigned int regs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1420 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1421 + static char list[64];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1422 + char *listp = list;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1423 + unsigned int regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1424 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1425 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1426 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1427 + listp += sprintf (listp,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1428 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1429 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1430 + return list;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1431 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1432 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1433 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1434 +/** Return the total number of bytes covered by a set of hard registers. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1435 +unsigned int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1436 +m6809_get_regs_size (unsigned int regs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1437 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1438 + unsigned int regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1439 + unsigned int size = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1440 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1441 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1442 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1443 + /* Only count register in the given register set */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1444 + if (REGSET_CONTAINS_P (regno, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1445 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1446 + /* Add 1 or 2 byte, depending on the size of the register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1447 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1448 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1449 + size += 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1450 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1451 + size++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1452 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1453 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1454 + return size;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1455 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1456 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1457 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1458 +/* Given the target of call instruction in X,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1459 + * return the tree node that contains the function declaration for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1460 + * that target.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1461 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1462 + * If the rtx or the tree do not appear valid for any reason,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1463 + * then return NULL_TREE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1464 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1465 +static tree call_target_decl (rtx x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1466 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1467 + tree decl;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1468 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1469 + /* Make sure the target is really a MEM. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1470 + if (!x || !MEM_P (x))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1471 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1472 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1473 + /* Make sure the address is a SYMBOL_REF. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1474 + x = XEXP (x, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1475 + if (!x || (GET_CODE (x) != SYMBOL_REF))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1476 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1477 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1478 + /* Get the declaration of this symbol */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1479 + decl = SYMBOL_REF_DECL (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1480 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1481 + /* Make sure the declaration is really a function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1482 + if (!decl || (TREE_CODE(decl) != FUNCTION_DECL))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1483 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1484 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1485 + return decl;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1486 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1487 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1488 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1489 +/** Returns nonzero if a function, whose declaration is in DECL,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1490 + * was declared to have the attribute given by ATTR_NAME. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1491 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1492 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1493 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1494 + tree type;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1495 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1496 + type = TREE_TYPE (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1497 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1498 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1499 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1500 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1501 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1502 +/** Returns nonzero if the current function was declared to have the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1503 + * attribute given by ATTR_NAME. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1504 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1505 +m6809_current_function_has_type_attr_p (const char *attr_name)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1506 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1507 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1508 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1509 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1510 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1511 +/** Return nonzero if the current function has no return value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1512 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1513 +m6809_current_function_is_void (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1514 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1515 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1516 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1517 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1518 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1519 +/** Get the value of a declaration's 'bank', as set by the 'bank'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1520 + * attribute. If no bank was declared, it returns NULL by default. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1521 +const char *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1522 +m6809_get_decl_bank (tree decl)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1523 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1524 + tree attr;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1525 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1526 + /* Lookup the 'bank' attribute. If it does not exist, then
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1527 + * return NULL */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1528 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1529 + if (attr == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1530 + return NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1531 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1532 + /* Make sure it has a value assigned to it */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1533 + attr = TREE_VALUE (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1534 + if (attr == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1535 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1536 + warning (WARNING_OPT "banked function did not declare a bank number");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1537 + return NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1538 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1539 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1540 + /* Return the bank name */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1541 + attr = TREE_VALUE (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1542 + return TREE_STRING_POINTER (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1543 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1544 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1545 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1546 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1547 +m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1548 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1549 + /* Check the function declaration for special properties.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1550 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1551 + * If the function was declare with __attribute__((bank)), output
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1552 + * assembler definitions to force the function to go into the named
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1553 + * bank.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1554 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1555 + const char *bank_name = m6809_get_decl_bank (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1556 + if (bank_name != NULL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1557 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1558 + /* Declare __self_bank as a local assembler value that denotes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1559 + * which bank the current function is in. This is required only
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1560 + * when the bank actually changes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1561 + if (strcmp (bank_name, current_bank_name))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1562 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1563 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1564 + strcpy (current_bank_name, bank_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1565 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1566 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1567 + /* Declare a global assembler value that denotes which bank the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1568 + * named function is in. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1569 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1570 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1571 + /* Force the current function into a new area */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1572 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1573 + bank_name, bank_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1574 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1575 + bank_name, bank_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1576 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1577 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1578 + /* Emit the label for the function's name */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1579 + ASM_OUTPUT_LABEL (asm_out_file, name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1580 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1581 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1582 +#if 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1583 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1584 + * Handle pragmas. Note that only the last branch pragma seen in the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1585 + * source has any affect on code generation.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1586 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1587 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1588 +#define BAD_PRAGMA(msgid, arg) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1589 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1590 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1591 +static int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1592 +pragma_parse (const char *name, tree *sect)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1593 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1594 + tree s, x;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1595 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1596 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1597 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1598 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1599 + if (pragma_lex (&s) != CPP_STRING)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1600 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1601 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1602 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1603 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1604 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1605 + if (pragma_lex (&x) != CPP_EOF)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1606 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1607 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1608 + *sect = s;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1609 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1610 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1611 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1612 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1613 +/*
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1614 + * Handle #pragma section.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1615 + * This is deprecated; code should use __attribute__(section("name"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1616 + * instead.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1617 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1618 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1619 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1620 + tree sect;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1621 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1622 + if (pragma_parse ("section", &sect))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1623 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1624 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1625 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1626 + ".area\t%s", TREE_STRING_POINTER (sect));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1627 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1628 + ".area\t%s", TREE_STRING_POINTER (sect));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1629 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1630 + /* Mark a flag that sections have changed. Upon emitting another
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1631 + * declaration, the new .area directive will be written. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1632 + section_changed++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1633 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1634 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1635 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1636 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1637 + * Check a `double' value for validity for a particular machine mode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1638 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1639 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1640 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1641 +check_float_value (enum machine_mode mode, double *d, int overflow)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1642 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1643 + if (mode == SFmode) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1644 + if (*d > 1.7014117331926443e+38) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1645 + error("magnitude of constant too large for `float'");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1646 + *d = 1.7014117331926443e+38;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1647 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1648 + else if (*d < -1.7014117331926443e+38) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1649 + error("magnitude of constant too large for `float'");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1650 + *d = -1.7014117331926443e+38;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1651 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1652 + else if ((*d > 0) && (*d < 2.9387358770557188e-39)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1653 + warning(WARNING_OPT "`float' constant truncated to zero");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1654 + *d = 0.0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1655 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1656 + else if ((*d < 0) && (*d > -2.9387358770557188e-39)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1657 + warning(WARNING_OPT "`float' constant truncated to zero");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1658 + *d = 0.0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1659 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1660 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1661 + return overflow;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1662 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1663 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1664 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1665 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1666 +/** Declare that the target supports named output sections. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1667 +bool m6809_have_named_section = (bool)1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1668 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1669 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1670 +/** Write to the assembler file a directive to place
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1671 + * subsequent objects to a different section in the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1672 + * object file. ASxxxx uses the "area" directive for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1673 + * this purpose. It does not however support generalized
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1674 + * alignment, and can only place items on an odd/even
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1675 + * boundary. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1676 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1677 +m6809_asm_named_section (
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1678 + const char *name,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1679 + unsigned int flags ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1680 + tree decl)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1681 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1682 + fprintf (asm_out_file, "\t.area\t%s\n", name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1683 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1684 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1685 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1686 +enum reg_class
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1687 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1688 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1689 + /* Check cases based on type code of rtx */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1690 + switch (GET_CODE(x))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1691 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1692 + /*
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1693 + * Observation, 2015-07-19, William Astle
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1694 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1695 + * The original comparison for range for 16 bits was wrong, adding 0x80
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1696 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1697 + * a more straight forward range comparison - excessive cleverness isn't
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1698 + * really required here.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1699 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1700 + case CONST_INT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1701 + /* Constants that can fit into 1 byte should be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1702 + * loaded into a Q_REGS reg */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1703 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1704 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1705 + (regclass > A_REGS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1706 + return Q_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1707 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1708 + /* 16-bit constants should be loaded into A_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1709 + * when possible. gcc may already require A_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1710 + * or D_REGS for certain types of instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1711 + * This case applies mostly to simple copy operations
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1712 + * to/from memory when any register will do, but
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1713 + * it's best to avoid using D register since it is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1714 + * needed for other things.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1715 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1716 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1717 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1718 + (regclass > A_REGS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1719 + return A_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1720 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1721 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1722 + case SYMBOL_REF:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1723 + case LABEL_REF:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1724 + /* Addresses should always be loaded into A_REGS */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1725 + if (regclass >= A_REGS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1726 + return (A_REGS);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1727 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1728 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1729 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1730 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1731 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1732 + /* Check cases based on mode of rtx */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1733 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1734 + return Q_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1735 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1736 + /* Default: return whatever class reload suggested */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1737 + return regclass;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1738 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1739 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1740 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1741 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1742 + * Check a new declaration for the "section" attribute.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1743 + * If it exists, and the target section is "direct", then mark
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1744 + * the declaration (in RTL) to indicate special treatment.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1745 + * When the variable is referenced later, we test for this flag
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1746 + * and can emit special asm text to force the assembler to use
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1747 + * short instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1748 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1749 +static void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1750 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1751 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1752 + tree attr, id;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1753 + const char *name;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1754 + const char *decl_name;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1755 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1756 + /* We only care about variable declarations, not functions */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1757 + if (TREE_CODE (decl) != VAR_DECL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1758 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1759 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1760 + /* For debugging purposes only; grab the decl's name */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1761 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1762 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1763 + /* Give up if the decl doesn't have any RTL */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1764 + if (!DECL_RTL (decl))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1765 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1766 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1767 + /* See if it has a section attribute */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1768 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1769 + if (!attr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1770 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1771 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1772 + /* See if the section attribute has a value */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1773 + id = TREE_VALUE (TREE_VALUE (attr));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1774 + if (!id)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1775 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1776 + name = TREE_STRING_POINTER (id);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1777 + if (!name)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1778 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1779 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1780 + /* See if the value is 'direct'. If so, mark it. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1781 + if (!strcmp (name, "direct"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1782 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1783 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1784 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1785 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1786 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1787 + * Output code to perform a complex shift, for which there is no
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1788 + * direct support in the instruction set.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1789 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1790 + * shift1 is an instruction pattern for performing a 1-bit modification.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1791 + * This code wraps that pattern in a loop to perform the shift N times,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1792 + * where N is given by the address register in operands[2].
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1793 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1794 + * To support 16-bit shifts, shift2 can also be provided: it is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1795 + * a second instruction to be included in the loop. 8-bit shift
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1796 + * insns will pass NULL here.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1797 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1798 + * The insn length of shift1/shift2 is assumed to be 1 byte,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1799 + * which works in all of the cases it is needed so far.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1800 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1801 +static void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1802 +m6809_gen_register_shift (
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1803 + rtx *operands,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1804 + const char *shift1,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1805 + const char *shift2 )
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1806 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1807 + char beq_pattern[32];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1808 + char bra_pattern[32];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1809 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1810 + int shiftlen = (shift1 && shift2) ? 2 : 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1811 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1812 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1813 + int beq_offset = 2 + shiftlen + 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1814 + int bra_offset = shiftlen + 2 + cmplen + 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1815 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1816 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1817 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1818 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1819 + output_asm_insn ("pshs\t%2", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1820 + output_asm_insn ("lea%2\t-1,%2", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1821 + output_asm_insn ("cmp%2\t#-1", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1822 + output_asm_insn (beq_pattern, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1823 + if (shift1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1824 + output_asm_insn (shift1, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1825 + if (shift2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1826 + output_asm_insn (shift2, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1827 + output_asm_insn (bra_pattern, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1828 + output_asm_insn ("puls\t%2", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1829 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1830 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1831 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1832 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1833 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1834 +gen_rtx_const_high (rtx r)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1835 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1836 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1837 + signed char s = (signed char)v;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1838 + return gen_int_mode (s, QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1839 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1840 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1841 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1842 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1843 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1844 +gen_rtx_const_low (rtx r)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1845 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1846 + unsigned char v = INTVAL (r) & 0xFF;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1847 + signed char s = (signed char)v;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1848 + return gen_int_mode (s, QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1849 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1850 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1851 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1852 +/** Generate RTL to allocate/free bytes on the stack.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1853 + * CODE is given as MINUS when allocating and PLUS when freeing,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1854 + * to match the semantics of a downward-growing stack. SIZE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1855 + * is always given as a positive integer.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1856 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1857 +static rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1858 +gen_rtx_stack_adjust (enum rtx_code code, int size)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1859 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1860 + if (size <= 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1861 + return NULL_RTX;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1862 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1863 + if (code == MINUS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1864 + size = -size;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1865 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1866 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1867 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1868 + gen_int_mode (size, HImode)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1869 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1870 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1871 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1872 +/** Generate RTL to push/pop a set of registers. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1873 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1874 +gen_rtx_register_pushpop (int op, int regs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1875 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1876 + rtx nregs = gen_int_mode (regs, QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1877 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1878 + if (op == UNSPEC_PUSH_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1879 + return gen_register_push (nregs);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1880 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1881 + return gen_register_pop (nregs);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1882 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1883 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1884 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1885 +/* Given a register set REGS, where the bit positions correspond to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1886 + * hard register numbers, return another bitmask that represents the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1887 + * order in which those registers would be pushed/popped.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1888 + * Registers that are pushed first have higher bit positions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1889 + * The pop order is just the reverse bitmask.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1890 + * These values are the same as the bitmasks actually used in the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1891 + * machine instructions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1892 +static unsigned int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1893 +register_push_order (int regs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1894 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1895 + unsigned int order = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1896 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1897 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1898 + order |= 0x80;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1899 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1900 + order |= 0x40;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1901 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1902 + order |= 0x20;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1903 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1904 + order |= 0x10;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1905 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1906 + order |= 0x8;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1907 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1908 + order |= 0x4;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1909 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1910 + order |= 0x2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1911 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1912 + order |= 0x1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1913 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1914 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1915 + order |= (0x4 | 0x2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1916 + return order;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1917 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1918 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1919 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1920 +/* Returns nonzero if two consecutive push or pop instructions,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1921 + * as determined by the OP, can be merged into a single instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1922 + * The first instruction in the sequence pushes/pops REGS1; the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1923 + * second applies to REGS2.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1924 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1925 + * If true, the resulting instruction can use (regs1 | regs2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1926 + * safely.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1927 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1928 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1929 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1930 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1931 + /* Register sets must not overlap */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1932 + if (regs1 & regs2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1933 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1934 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1935 + if (op == UNSPEC_PUSH_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1936 + return (register_push_order (regs1) > register_push_order (regs2));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1937 + else if (op == UNSPEC_POP_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1938 + return (register_push_order (regs1) < register_push_order (regs2));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1939 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1940 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1941 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1942 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1943 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1944 +/** Emit instructions for making a library call.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1945 + * MODE is the mode of the operation.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1946 + * NAME is the library function name.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1947 + * OPERANDS is the rtx array provided by the recognizer.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1948 + * COUNT is the number of input operands to the call, and
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1949 + * should be 1 for a unary op or 2 for a binary op.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1950 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1951 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1952 +emit_libcall_insns (enum machine_mode mode,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1953 + const char *name,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1954 + rtx *operands,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1955 + int count)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1956 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1957 + /* Generate an rtx for the call target. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1958 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1959 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1960 + /* Emit the library call. Slightly different based
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1961 + on the number of operands */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1962 + if (count == 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1963 + emit_library_call (symbol, LCT_NORMAL, mode,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1964 + 2, operands[1], mode, operands[2], mode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1965 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1966 + emit_library_call (symbol, LCT_NORMAL, mode,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1967 + 1, operands[1], mode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1968 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1969 + /* The library call is expected to put its result
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1970 + in LIBCALL_VALUE, so need to copy it into the destination. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1971 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1972 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1973 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1974 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1975 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1976 + * A small helper function that writes out a single branch instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1977 + * OPCODE is the short name, e.g. "ble".
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1978 + * OPERANDS has the rtx for the target label.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1979 + * LONG_P is nonzero if we are emitting a long branch, and need to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1980 + * prepend an 'l' to the opcode name.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1981 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1982 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1983 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1984 + char pattern[64];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1985 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1986 + output_asm_insn (pattern, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1987 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1988 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1989 +/**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1990 + * Output a branch/conditional branch insn of the proper
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1991 + * length. code identifies the particular branch insn.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1992 + * operands holds the branch target in operands[0].
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1993 + * length says what the size of this insn should be.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1994 + * Based on the length, we know whether it should be a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1995 + * short (8-bit) or long (16-bit) branch.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1996 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1997 +const char *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1998 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
1999 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2000 + int shortform;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2001 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2002 + /* Decide whether or not to use the long or short form.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2003 + * Calculate automatically based on insn lengths. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2004 + shortform = ((length > 2) ? 0 : 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2005 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2006 + /* Determine the proper opcode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2007 + * Use the short (2-byte) opcode if the target is within
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2008 + * reach. Otherwise, use jmp (3-byte opcode), unless
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2009 + * compiling with -fpic, in which case we'll need to use
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2010 + * lbra (4-byte opcode).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2011 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2012 + switch (code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2013 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2014 + case LABEL_REF:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2015 + if (shortform)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2016 + output_branch_insn1 ("bra", operands, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2017 + else if (flag_pic)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2018 + output_branch_insn1 ("bra", operands, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2019 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2020 + output_branch_insn1 ("jmp", operands, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2021 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2022 + case EQ:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2023 + output_branch_insn1 ("beq", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2024 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2025 + case NE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2026 + output_branch_insn1 ("bne", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2027 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2028 + case GT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2029 + output_branch_insn1 ("bgt", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2030 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2031 + case GTU:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2032 + output_branch_insn1 ("bhi", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2033 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2034 + case LT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2035 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2036 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2037 + output_branch_insn1 ("bmi", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2038 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2039 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2040 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2041 + output_branch_insn1 ("blt", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2042 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2043 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2044 + case LTU:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2045 + output_branch_insn1 ("blo", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2046 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2047 + case GE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2049 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2050 + output_branch_insn1 ("bpl", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2051 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2052 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2053 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2054 + output_branch_insn1 ("bge", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2055 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2056 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2057 + case GEU:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2058 + output_branch_insn1 ("bhs", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2059 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2060 + case LE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2062 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2063 + output_branch_insn1 ("bmi", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2064 + output_branch_insn1 ("beq", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2065 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2066 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2067 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2068 + output_branch_insn1 ("ble", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2069 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2070 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2071 + case LEU:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2072 + output_branch_insn1 ("bls", operands, !shortform);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2073 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2074 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2075 + abort();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2076 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2077 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2078 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2079 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2080 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2081 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2082 +/** Returns the "cost" of an RTL expression.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2083 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2084 + * the cost of a fast 8-bit arithmetic instruction that operates on
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2085 + * a reg/mem or a reg/immed. Other costs are relative to this.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2086 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2087 + * Notes:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2088 + * - The cost of a REG is always zero; this cannot be changed.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2089 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2090 + * - On the 6809, instructions on two registers will nearly always take
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2091 + * longer than those that operate on a register and a constant/memory,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2092 + * because of the way the instruction set is structured.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2093 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2094 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2095 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2096 +static bool
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2097 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2098 + int *total, bool speed)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2099 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2100 + int has_const_arg = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2101 + HOST_WIDE_INT const_arg;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2102 + enum machine_mode mode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2103 + int nargs = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2104 + rtx op0, op1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2105 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2106 + /* Data RTXs return a value between 0-3, depending on complexity.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2107 + All of these are less than COSTS_N_INSNS(1). */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2108 + switch (code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2109 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2110 + case CC0:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2111 + case PC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2112 + *total = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2113 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2114 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2115 + case CONST_INT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2116 + if (X == const0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2117 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2118 + *total = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2119 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2120 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2121 + else if ((unsigned) INTVAL (X) < 077)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2122 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2123 + *total = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2124 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2125 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2126 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2127 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2128 + *total = 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2129 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2130 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2131 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2132 + case LABEL_REF: case CONST:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2133 + *total = 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2134 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2135 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2136 + case SYMBOL_REF:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2137 + /* References to memory are made cheaper if they have
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2138 + * the 'direct' mode attribute set */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2139 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2140 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2141 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2142 + case MEM:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2143 + /* See what form of address was given */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2144 + X = XEXP (X, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2145 + switch (GET_CODE (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2146 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2147 + case SYMBOL_REF:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2148 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2149 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2150 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2151 + case CONST_INT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2152 + *total = 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2153 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2154 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2155 + case MEM:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2156 + *total = COSTS_N_INSNS (1) + 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2157 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2158 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2159 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2160 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2161 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2162 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2163 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2164 + case CONST_DOUBLE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2165 + /* TODO : not sure about this value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2166 + *total = 3;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2167 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2168 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2169 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2170 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2171 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2172 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2173 + /* Decode the rtx */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2174 + mode = GET_MODE (X);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2175 + op0 = XEXP (X, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2176 + op1 = XEXP (X, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2177 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2178 + /* We don't implement anything in SImode or greater. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2179 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2180 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2181 + *total = COSTS_N_INSNS (100);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2182 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2183 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2184 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2185 + /* Figure out if there is a constant argument, and its value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2186 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2187 + || GET_RTX_CLASS (code) == RTX_COMM_ARITH)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2188 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2189 + nargs = 2;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2190 + if (GET_CODE (op1) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2191 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2192 + has_const_arg = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2193 + const_arg = INTVAL (op1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2194 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2195 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2196 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2197 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2198 + * Ignore soft registers, since these are really in memory.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2199 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2200 + * TODO: penalize HImode reg/reg for most operations, except maybe
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2201 + * additions since index registers allow for that.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2202 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2203 + * TODO: shifts by constant N do not always require N instructions;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2204 + * some of this can be done cheaper. The number of actual insns can be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2205 + * predicted well.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2206 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2207 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2208 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2209 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2210 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2211 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2212 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2213 + *total = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2214 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2215 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2216 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2217 + the estimated number of actual machine instructions needed to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2218 + perform the computation. Some small adjustments are made since
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2219 + some "instructions" are more complex than others. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2220 + switch (code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2221 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2222 + case PLUS: case MINUS: case COMPARE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2223 + /* 6809 handles these natively in QImode, and in HImode as long
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2224 + * as operand 1 is constant. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2225 + if (mode == QImode || (mode == HImode && has_const_arg))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2226 + *total += COSTS_N_INSNS (1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2227 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2228 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2229 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2230 + /* -1, 0, and 1 can be done using inherent instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2231 + * for PLUS and MINUS in QImode, so don't add extra cost. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2232 + if (has_const_arg
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2233 + && (mode == QImode || mode == HImode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2234 + && (const_arg == -1 || const_arg == 0 || const_arg == 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2235 + && (code == PLUS || code == MINUS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2236 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2237 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2238 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2239 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2240 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2241 + case AND: case IOR: case XOR:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2242 + case NEG: case NOT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2243 + /* 6809 handles these natively in QImode, but requires
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2244 + * splitting in HImode. Treat these as 2 insns. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2245 + *total += COSTS_N_INSNS (1) * GET_MODE_SIZE (mode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2246 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2247 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2248 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2249 + case ROTATE: case ROTATERT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2250 + /* 6809 can do shift/rotates of a QImode by a constant in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2251 + * 1 insn times the shift count, or in HImode by a constant
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2252 + * by splitting to 2 insns.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2253 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2254 + * Shift by a nonconstant will take significantly longer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2255 + * than any of these. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2256 + if (has_const_arg)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2257 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2258 + const_arg %= (GET_MODE_SIZE (mode) * 8);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2259 + if (const_arg == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2260 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2261 + *total += COSTS_N_INSNS(1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2262 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2263 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2264 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2265 + /* HImode shifts greater than 8 get optimized due
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2266 + * to register transfer from b to a; this cuts down the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2267 + * cost. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2268 + if (const_arg >= 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2269 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2270 + *total += COSTS_N_INSNS (1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2271 + const_arg -= 8;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2272 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2273 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2274 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2275 + if in HImode, minus the cost of the constant itself which
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2276 + will be added in later but really shouldn't be. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2277 + *total += COSTS_N_INSNS (const_arg) * GET_MODE_SIZE (mode) - 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2278 + return true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2279 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2280 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2281 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2282 + /* It may take up to 7 iterations of about 6-7 real
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2283 + * instructions, so make this expensive. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2284 + *total += COSTS_N_INSNS (50);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2285 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2286 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2287 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2288 + case MULT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2289 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2290 + /* Multiply is cheap when both arguments are 8-bits. They
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2291 + could be QImode, or QImode widened to HImode, or a constant
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2292 + that fits into 8-bits. As long as both operands qualify,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2293 + we can use a single mul instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2294 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2295 + Assume that fast multiply can be used, and change this if we find
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2296 + differently... */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2297 + int ok_for_qihi3 = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2298 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2299 + /* Check the first operand */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2300 + switch (GET_MODE (op0))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2301 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2302 + case QImode:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2303 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2304 + case HImode:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2305 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2306 + ok_for_qihi3 = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2307 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2308 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2309 + ok_for_qihi3 = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2310 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2311 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2312 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2313 + /* Likewise, check the second operand. This is where constants may appear. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2314 + switch (GET_MODE (op1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2315 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2316 + case QImode:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2317 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2318 + case HImode:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2319 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2320 + ok_for_qihi3 = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2321 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2322 + case VOIDmode:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2323 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2324 + ok_for_qihi3 = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2325 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2326 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2327 + ok_for_qihi3 = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2328 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2329 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2330 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2331 + /* Fast multiply takes about 4 times as many cycles as a normal
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2332 + arithmetic operation. Otherwise, it will take an expensive libcall. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2333 + if (ok_for_qihi3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2334 + *total += COSTS_N_INSNS (4);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2335 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2336 + *total = COSTS_N_INSNS (50);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2337 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2338 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2339 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2340 + case DIV: case UDIV: case MOD: case UMOD:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2341 + /* These all require more expensive libcalls. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2342 + *total += COSTS_N_INSNS (100);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2343 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2344 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2345 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2346 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2347 + /* These can normally be done with autoincrement, etc., so
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2348 + * don't charge for them. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2349 + case PRE_DEC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2350 + case PRE_INC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2351 + case POST_DEC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2352 + case POST_INC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2353 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2354 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2355 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2356 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2357 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2358 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2359 + /* Always return false, and let the caller gather the costs
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2360 + * of the operands */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2361 + return false;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2362 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2363 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2364 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2365 +static tree
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2366 +m6809_handle_fntype_attribute (tree *node, tree name,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2367 + tree args ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2368 + int flags ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2369 + bool *no_add_attrs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2370 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2371 + if (TREE_CODE (*node) != FUNCTION_TYPE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2372 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2373 + warning (WARNING_OPT "'%s' only valid for functions",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2374 + IDENTIFIER_POINTER (name));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2375 + *no_add_attrs = TRUE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2376 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2377 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2378 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2379 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2380 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2381 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2382 +static tree
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2383 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2384 + tree name ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2385 + tree args ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2386 + int flags ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2387 + bool *no_add_attrs ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2388 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2389 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2390 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2391 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2392 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2393 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2394 +static tree
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2395 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2396 + tree name ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2397 + tree args ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2398 + int flags ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2399 + bool *no_add_attrs ATTRIBUTE_UNUSED )
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2400 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2401 + return NULL_TREE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2402 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2403 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2404 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2405 +/* Table of valid machine attributes */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2406 +const struct attribute_spec m6809_attribute_table[] = { /*
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2407 +{ name, min, max, decl, type, fntype, handler } */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2408 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2409 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2410 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2411 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2412 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2413 +{ NULL, 0, 0, false, true, false, NULL },
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2414 +};
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2415 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2416 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2417 +/** Initialize builtin routines for the 6809. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2418 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2419 +m6809_init_builtins (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2420 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2421 + /* Create type trees for each function signature required.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2422 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2423 + * void_ftype_void = void f(void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2424 + * void_ftype_uchar = void f(unsigned char)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2425 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2426 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2427 + tree void_ftype_void =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2428 + build_function_type (void_type_node, void_list_node);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2429 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2430 + tree void_ftype_uchar =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2431 + build_function_type (void_type_node,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2432 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2433 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2434 + tree uchar_ftype_uchar2 =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2435 + build_function_type (unsigned_char_type_node,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2436 + tree_cons (NULL_TREE, unsigned_char_type_node,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2437 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2438 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2439 + /* Register each builtin function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2440 + add_builtin_function ("__builtin_swi", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2441 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2442 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2443 + add_builtin_function ("__builtin_swi2", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2444 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2445 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2446 + add_builtin_function ("__builtin_swi3", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2447 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2448 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2449 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2450 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2451 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2452 + add_builtin_function ("__builtin_sync", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2453 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2454 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2455 + add_builtin_function ("__builtin_nop", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2456 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2457 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2458 + add_builtin_function ("__builtin_blockage", void_ftype_void,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2459 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2460 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2461 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2462 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2463 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2464 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2465 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2466 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2467 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2468 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2469 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2470 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2471 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2472 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2473 + * refers to the operands of a builtin call, return an rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2474 + * that represents the nth operand, as denoted by OPNUM, which
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2475 + * is a zero-based integer. MODE gives the expected mode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2476 + * of the operand.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2477 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2478 + * This rtx is suitable for use in the emitted RTL for the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2479 + * builtin instruction. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2480 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2481 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2482 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2483 + tree arg;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2484 + rtx r;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2485 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2486 + arg = CALL_EXPR_ARG (arglist, opnum);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2487 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2488 + /* Convert the tree to RTL */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2489 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2490 + if (r == NULL_RTX)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2491 + return NULL_RTX;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2492 + return r;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2493 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2494 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2495 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2496 +/** Expand a builtin that was registered in init_builtins into
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2497 + * RTL. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2498 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2499 +m6809_expand_builtin (tree exp,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2500 + rtx target,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2501 + rtx subtarget ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2502 + enum machine_mode mode ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2503 + int ignore ATTRIBUTE_UNUSED )
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2504 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2505 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2506 + tree arglist = exp;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2507 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2508 + rtx r0, r1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2509 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2510 + switch (fcode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2511 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2512 + case M6809_SWI:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2513 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2514 + emit_insn (target = gen_m6809_swi (r0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2515 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2516 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2517 + case M6809_SWI2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2518 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2519 + emit_insn (target = gen_m6809_swi (r0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2520 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2521 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2522 + case M6809_SWI3:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2523 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2524 + emit_insn (target = gen_m6809_swi (r0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2525 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2526 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2527 + case M6809_CWAI:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2528 + r0 = m6809_builtin_operand (arglist, QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2529 + emit_insn (target = gen_m6809_cwai (r0));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2530 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2531 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2532 + case M6809_SYNC:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2533 + emit_insn (target = gen_m6809_sync ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2534 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2535 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2536 + case M6809_ADD_CARRY:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2537 + r0 = m6809_builtin_operand (arglist, QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2538 + r1 = m6809_builtin_operand (arglist, QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2539 + if (!target)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2540 + target = gen_reg_rtx (QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2541 + emit_insn (gen_addqi3_carry (target, r0, r1));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2542 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2543 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2544 + case M6809_SUB_CARRY:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2545 + r0 = m6809_builtin_operand (arglist, QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2546 + r1 = m6809_builtin_operand (arglist, QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2547 + if (!target)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2548 + target = gen_reg_rtx (QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2549 + emit_insn (gen_subqi3_carry (target, r0, r1));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2550 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2551 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2552 + case M6809_NOP:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2553 + emit_insn (target = gen_nop ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2554 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2555 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2556 + case M6809_BLOCKAGE:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2557 + emit_insn (target = gen_blockage ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2558 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2559 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2560 + case M6809_ADD_DECIMAL:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2561 + r0 = m6809_builtin_operand (arglist, QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2562 + r1 = m6809_builtin_operand (arglist, QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2563 + if (!target)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2564 + target = gen_reg_rtx (QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2565 + emit_insn (gen_addqi3_decimal (target, r0, r1));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2566 + return target;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2567 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2568 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2569 + warning (WARNING_OPT "unknown builtin expansion ignored");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2570 + return NULL_RTX;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2571 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2572 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2573 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2574 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2575 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2576 +/* Returns nonzero if 'x' represents a function that was declared
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2577 + * as __noreturn__. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2578 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2579 +noreturn_functionp (rtx x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2580 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2581 + tree decl = call_target_decl (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2582 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2583 + if (decl == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2584 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2585 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2586 + return TREE_THIS_VOLATILE (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2587 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2588 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2589 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2590 +const char *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2591 +far_function_type_p (tree type)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2592 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2593 + tree attr;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2594 + const char *page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2595 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2596 + /* Return whether or not this decl has the far attribute */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2597 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2598 + if (attr == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2599 + return NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2600 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2601 + /* If it is far, check for a value */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2602 + attr = TREE_VALUE (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2603 + if (attr == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2604 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2605 + warning (WARNING_OPT "far code page not specified, using local value");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2606 + return far_code_page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2607 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2608 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2609 + /* We have a TREE_LIST of attribute values, get the first one.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2610 + * It should be an INTEGER_CST. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2611 + attr = TREE_VALUE (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2612 + page = TREE_STRING_POINTER (attr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2613 + return page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2614 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2615 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2616 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2617 +/* For a far function, returns the identifier that states which page
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2618 + * it resides in. Otherwise, returns NULL for ordinary functions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2619 +const char *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2620 +far_functionp (rtx x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2621 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2622 + tree decl, decl_type;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2623 + const char *page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2624 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2625 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2626 + decl = call_target_decl (x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2627 + if (decl == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2628 + return NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2629 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2630 + /* See if the function has the new 'banked' attribute. These
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2631 + * are numeric instead of text */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2632 + page = m6809_get_decl_bank (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2633 + if (page)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2634 + return page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2635 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2636 + /* No, lookup the type of the function and see if the type
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2637 + * specifies far or not. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2638 + decl_type = TREE_TYPE (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2639 + if (decl_type == NULL_TREE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2640 + return NULL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2641 + return far_function_type_p (decl_type);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2642 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2643 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2644 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2645 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2646 +/** Outputs the assembly language for a far call. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2647 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2648 +output_far_call_insn (rtx *operands, int has_return)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2649 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2650 + static char page_data[64];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2651 + const char *called_page;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2652 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2653 + /* The logic is the same for functions whether or not there
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2654 + * is a return value. Skip over the return value in this
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2655 + * case, so that the call location is always operands[0]. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2656 + if (has_return)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2657 + operands++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2658 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2659 + /* Get the name of the page being called */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2660 + called_page = far_functionp (operands[0]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2661 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2662 +#if 0 /* TODO : broken logic */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2663 + /* See if the called page name is a 'bank' */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2664 + if (isdigit (*called_page))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2665 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2666 + /* New style banking */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2667 + if (!strcmp (called_page, current_bank_name))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2668 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2669 + /* Same page */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2670 + output_asm_insn ("jsr\t%0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2671 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2672 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2673 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2674 + /* Different page */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2675 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2676 + output_asm_insn ("\t.dw\t%0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2677 + sprintf (page_data, "\t.db\t%s", called_page);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2678 + output_asm_insn (page_data, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2679 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2680 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2681 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2682 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2683 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2684 + /* Are we calling a different page than we are running in? */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2685 + if (!strcmp (called_page, far_code_page))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2686 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2687 + /* Same page : no need to execute a far call */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2688 + if (flag_pic)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2689 + output_asm_insn ("lbsr\t%C0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2690 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2691 + output_asm_insn ("jsr\t%0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2692 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2693 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2694 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2695 + /* Different page : need to emit far call thunk */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2696 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2697 + /* First output a call to the thunk for making far calls. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2698 + if (flag_pic)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2699 + output_asm_insn ("lbsr\t__far_call_handler", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2700 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2701 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2702 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2703 + /* Now output the name of the call site */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2704 + output_asm_insn ("\t.dw\t%C0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2705 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2706 + /* Finally output the page number */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2707 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2708 + output_asm_insn (page_data, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2709 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2710 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2711 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2712 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2713 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2714 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2715 + tree fntype,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2716 + rtx libname ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2717 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2718 + cum = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2719 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2720 + /* For far functions, the current implementation does not allow for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2721 + * stack parameters. So note whenever the called function is far
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2722 + * and in a different page than the current one; such a function
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2723 + * should give an error if a stack parameter is generated. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2724 + if (fntype)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2725 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2726 + const char *called_page = far_function_type_p (fntype);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2727 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2728 + cum |= CUM_STACK_INVALID;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2729 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2730 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2731 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2732 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2733 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2734 + /* has variable arguments, cannot use registers */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2735 + cum |= (CUM_X_MASK | CUM_B_MASK | CUM_STACK_ONLY);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2736 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2737 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2738 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2739 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2740 + /* cannot use registers ; only use the stack */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2741 + cum |= (CUM_STACK_ONLY | CUM_X_MASK | CUM_B_MASK);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2742 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2743 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2744 + return cum;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2745 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2746 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2747 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2748 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2749 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2750 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2751 + if (*cump & CUM_STACK_INVALID)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2752 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2753 + *cump &= ~CUM_STACK_INVALID;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2754 + error ("far function needs stack, will not work");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2755 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2756 + return NULL_RTX;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2757 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2758 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2759 +void m6809_asm_trampoline_template(FILE *f)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2760 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2761 + fprintf(f, "ldy #0000\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2762 + fprintf(f, "jmp 0x0000\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2763 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2764 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2765 +/*
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2766 + * Trampoline output:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2767 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2768 + * ldu #&cxt 4 bytes --LDY- ?? ??
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2769 + * jmp fnaddr 3 bytes JMP ?? ??
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2770 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2771 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2772 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2773 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2774 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2775 + /* TODO - optimize by generating the entire trampoline code here,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2776 + * and removing the template altogether, since there are only two
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2777 + * bytes there that matter. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2778 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2779 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2780 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2781 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2782 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2783 +/** Echo the version of the compiler and the name of the source file
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2784 + * at the beginning of each assembler output file. asm_out_file
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2785 + * is a global FILE * pointing to the output stream. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2786 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2787 +m6809_asm_file_start (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2788 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2789 + const char *module_name;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2790 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2791 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2792 + __DATE__, __TIME__);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2793 + fprintf (asm_out_file, ";;; %s\n", version_string);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2794 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2795 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2796 + fprintf (asm_out_file, ";;; %s\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2797 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2798 + if (TARGET_EXPERIMENT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2799 + fprintf (asm_out_file, ";;; -mexperiment\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2800 + if (TARGET_WPC)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2801 + fprintf (asm_out_file, ";;; -mwpc\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2802 + if (TARGET_6309)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2803 + fprintf (asm_out_file, ";;; -m6309\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2804 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2805 + /* Print the name of the module, which is taken as the base name
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2806 + * of the input file.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2807 + * See the 'User-Defined Symbols' section of the assembler
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2808 + * documentation for the rules on valid symbols.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2809 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2810 + module_name = lbasename (main_input_filename);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2811 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2812 + fprintf (asm_out_file, "\t.module\t");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2813 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2814 + if (*module_name >= '0' && *module_name <= '9')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2815 + fprintf (asm_out_file, "_");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2816 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2817 + while (*module_name)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2818 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2819 + if ((*module_name >= '0' && *module_name <= '9')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2820 + || (*module_name >= 'A' && *module_name <= 'Z')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2821 + || (*module_name >= 'a' && *module_name <= 'z')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2822 + || *module_name == '$'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2823 + || *module_name == '.'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2824 + || *module_name == '_')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2825 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2826 + fprintf (asm_out_file, "%c", *module_name);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2827 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2828 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2829 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2830 + fprintf (asm_out_file, "_");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2831 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2832 + module_name++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2833 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2834 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2835 + fprintf (asm_out_file, "\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2836 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2837 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2838 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2839 +/** Returns true if prologue/epilogue code is required for the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2840 + * current function being compiled.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2841 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2842 + * This is just the inverse of whether the function is declared as
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2843 + * 'naked'.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2844 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2845 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2846 +prologue_epilogue_required (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2847 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2848 + return !m6809_current_function_has_type_attr_p ("naked")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2849 + && !m6809_current_function_has_type_attr_p ("noreturn");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2850 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2851 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2852 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2853 +/** Expand RTL for function entry */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2854 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2855 +emit_prologue_insns (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2856 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2857 + rtx insn;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2858 + unsigned int live_regs = m6809_get_live_regs ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2859 + unsigned int frame_size = get_frame_size ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2860 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2861 + /* Save all registers used, including the frame pointer */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2862 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2863 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2864 + insn = emit_insn (
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2865 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2866 + RTX_FRAME_RELATED_P (insn) = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2867 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2868 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2869 + /* Allocate space for local variables */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2870 + if (frame_size != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2871 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2872 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2873 + RTX_FRAME_RELATED_P (insn) = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2874 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2875 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2876 + /* Set the frame pointer if it is needed */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2877 + if (frame_pointer_needed)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2878 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2879 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2880 + RTX_FRAME_RELATED_P (insn) = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2881 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2882 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2883 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2884 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2885 +/** Expand RTL for function exit */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2886 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2887 +emit_epilogue_insns (bool sibcall_p)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2888 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2889 + unsigned int live_regs = m6809_get_live_regs ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2890 + unsigned int frame_size = get_frame_size ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2891 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2892 + if (frame_size != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2893 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2894 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2895 + if (sibcall_p)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2896 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2897 + if (live_regs)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2898 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2899 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2900 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2901 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2902 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2903 + emit_insn (
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2904 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT | live_regs));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2905 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2906 + if (m6809_current_function_has_type_attr_p ("interrupt"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2907 + emit_jump_insn (gen_return_rti ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2908 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2909 + emit_jump_insn (gen_return_rts ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2910 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2911 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2912 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2913 +#if 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2914 +/** Predefine some preprocessor names according to the currently
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2915 + * selected compiler options */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2916 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2917 +m6809_cpu_cpp_builtins (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2918 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2919 + if (TARGET_6309)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2920 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2921 + builtin_define_std ("__M6309__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2922 + builtin_define_std ("__m6309__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2923 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2924 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2925 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2926 + builtin_define_std ("__M6809__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2927 + builtin_define_std ("__m6809__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2928 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2929 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2930 + if (TARGET_BYTE_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2931 + builtin_define_std ("__int8__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2932 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2933 + builtin_define_std ("__int16__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2934 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2935 + switch (m6809_abi_version)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2936 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2937 + case M6809_ABI_VERSION_STACK:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2938 + builtin_define_std ("__regargs__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2939 + builtin_define_std ("__ABI_STACK__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2940 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2941 + case M6809_ABI_VERSION_REGS:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2942 + builtin_define_std ("__ABI_REGS__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2943 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2944 + case M6809_ABI_VERSION_BX:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2945 + builtin_define_std ("__ABI_BX__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2946 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2947 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2948 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2949 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2950 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2951 + if (TARGET_WPC)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2952 + builtin_define_std ("__WPC__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2953 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2954 + if (TARGET_DRET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2955 + builtin_define_std ("__DRET__");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2956 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2957 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2958 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2959 +#define MAX_ASM_ASCII_STRING 48
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2960 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2961 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2962 +m6809_output_ascii (FILE *fp, const char *str, unsigned long size)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2963 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2964 + unsigned long i;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2965 + bool use_ascii = true;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2966 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2967 + /* If the size is too large, then break this up into multiple
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2968 + outputs. The assembler can only output roughly 48 bytes at a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2969 + time. Note that if there are lots of escape sequences in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2970 + the string, this may fail. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2971 + if (size > MAX_ASM_ASCII_STRING)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2972 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2973 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2974 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2975 + size - MAX_ASM_ASCII_STRING);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2976 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2977 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2978 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2979 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2980 + for (i = 0; i < size; i++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2981 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2982 + int c = str[i] & 0377;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2983 + if (c >= 0x80)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2984 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2985 + use_ascii = false;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2986 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2987 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2988 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2989 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2990 + if (use_ascii)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2991 + fprintf (fp, "\t.ascii \"");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2992 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2993 + for (i = 0; i < size; i++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2994 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2995 + int c = str[i] & 0377;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2996 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2997 + if (use_ascii)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2998 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
2999 + /* Just output the plain character if it is printable,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3000 + otherwise output the escape code for the character.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3001 + The assembler recognizes the same C-style octal escape sequences,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3002 + except that it only supports 7-bit codes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3003 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3004 + putc (c, fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3005 + else switch (c)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3006 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3007 + case '\n':
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3008 +#ifndef TARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3009 + fputs ("\\n", fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3010 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3011 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3012 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3013 + case '\r':
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3014 + fputs ("\\r", fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3015 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3016 + case '\t':
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3017 + fputs ("\\t", fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3018 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3019 + case '\f':
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3020 + fputs ("\\f", fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3021 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3022 + case 0:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3023 + fputs ("\\0", fp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3024 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3025 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3026 + fprintf (fp, "\\%03o", c);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3027 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3028 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3029 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3030 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3031 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3032 + fprintf (fp, "\t.byte\t0x%02X\n", c);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3033 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3034 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3035 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3036 + if (use_ascii)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3037 + fprintf (fp, "\"\n");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3038 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3039 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3040 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3041 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3042 +m6809_output_quoted_string (FILE *asm_file, const char *string)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3043 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3044 + char c;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3045 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3046 + if (strlen (string) > MAX_ASM_ASCII_STRING)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3047 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3048 + /* The string length is too large. We'll have to truncate it.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3049 + This is only called from debugging functions, so it's usually
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3050 + not critical. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3051 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3052 + char truncated_string[MAX_ASM_ASCII_STRING+1];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3053 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3054 + /* Copy as many characters as we can. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3055 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3056 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3057 + string = truncated_string;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3058 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3059 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3060 + /* Copied from toplev.c */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3061 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3062 + putc ('\"', asm_file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3063 + while ((c = *string++) != 0) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3064 + if (ISPRINT (c)) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3065 + if (c == '\"' || c == '\\')
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3066 + putc ('\\', asm_file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3067 + putc (c, asm_file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3068 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3069 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3070 + fprintf (asm_file, "\\%03o", (unsigned char) c);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3071 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3072 + putc ('\"', asm_file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3073 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3074 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3075 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3076 +/** Output the assembly code for a shift instruction where the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3077 + * shift count is not constant. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3078 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3079 +m6809_output_shift_insn (int rtx_code, rtx *operands)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3080 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3081 + struct shift_opcode *op;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3082 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3083 + if (GET_CODE (operands[2]) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3084 + abort ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3085 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3086 + if (optimize_size && GET_MODE (operands[0]) == HImode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3087 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3088 + switch (rtx_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3089 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3090 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3091 + output_asm_insn ("jsr\t_ashlhi3", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3092 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3093 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3094 + output_asm_insn ("jsr\t_ashrhi3", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3095 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3096 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3097 + output_asm_insn ("jsr\t_lshrhi3", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3098 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3099 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3100 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3101 + else if (GET_MODE (operands[0]) == HImode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3102 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3103 + switch (rtx_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3104 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3105 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3106 + m6809_gen_register_shift (operands, "aslb", "rola");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3107 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3108 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3109 + m6809_gen_register_shift (operands, "asra", "rorb");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3110 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3111 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3112 + m6809_gen_register_shift (operands, "lsra", "rorb");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3113 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3114 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3115 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3116 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3117 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3118 + switch (rtx_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3119 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3120 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3121 + m6809_gen_register_shift (operands, "aslb", NULL);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3122 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3123 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3124 + m6809_gen_register_shift (operands, "asrb", NULL);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3125 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3126 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3127 + m6809_gen_register_shift (operands, "lsrb", NULL);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3128 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3129 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3130 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3131 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3132 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3133 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3134 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3135 +m6809_emit_move_insn (rtx dst, rtx src)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3136 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3137 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3138 + if (ACC_A_REG_P (dst))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3139 + emit_insn (gen_rtx_USE (VOIDmode, dst));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3140 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3141 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3142 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3143 +/** Split a complex shift instruction into multiple CPU
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3144 + * shift instructions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3145 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3146 +m6809_split_shift (enum rtx_code code, rtx *operands)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3147 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3148 + enum machine_mode mode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3149 + int count;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3150 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3151 + mode = GET_MODE (operands[0]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3152 + count = INTVAL (operands[2]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3153 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3154 + /* Handle a shift count outside the range of 0 .. N-1, where
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3155 + * N is the mode size in bits. We normalize the count, and
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3156 + * for negative counts we also invert the direction of the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3157 + * shift. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3158 + if ((count < 0) || (count >= 8 * GET_MODE_SIZE (mode)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3159 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3160 + if (count < 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3161 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3162 + count = -count;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3163 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3164 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3165 + count %= (8 * GET_MODE_SIZE (mode));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3166 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3167 + gen_rtx_fmt_ee (code, mode, operands[1],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3168 + gen_rtx_CONST_INT (VOIDmode, count)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3169 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3170 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3171 + /* Handle shift by zero explicitly as a no-op. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3172 + if (count == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3173 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3174 + emit_insn (gen_nop ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3175 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3176 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3177 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3178 + /* Decompose the shift by a constant N > 8 into two
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3179 + * shifts, first by 8 and then by N-8.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3180 + * This "speeds up" the process for large shifts that would be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3181 + * handled below, but allows for some optimization.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3182 + * In some cases shift by 8 can be implemented fast. If an
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3183 + * instruction to shift by 8 is defined, it will be used here;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3184 + * otherwise it will be further decomposed as below. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3185 + if (mode == HImode && count > 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3186 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3187 + rtx output = operands[0];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3188 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3189 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3190 + gen_rtx_fmt_ee (code, mode, operands[1],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3191 + gen_rtx_CONST_INT (VOIDmode, 8)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3192 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3193 + /* Unsigned shifts always produce a zero in either the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3194 + * upper or lower half of the output; then, that part
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3195 + * does not need to be shifted anymore. We modify the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3196 + * output and the subsequent instructions to operate in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3197 + * QImode only on the relevant part. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3198 + if (REG_P (output))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3199 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3200 + if (code == ASHIFT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3201 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3202 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3203 + mode = QImode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3204 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3205 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3206 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3207 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3208 + mode = QImode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3209 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3210 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3211 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3212 + m6809_emit_move_insn (output,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3213 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3214 + gen_rtx_CONST_INT (VOIDmode, count-8)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3215 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3216 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3217 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3218 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3219 + * (near to the maximum of 8) as a rotate and mask. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3220 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3221 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3222 + unsigned int mask;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3223 + unsigned int was_signed = (code == ASHIFTRT);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3224 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3225 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3226 + if (code == ROTATE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3227 + mask = (count == 6) ? 0x03 : 0x01;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3228 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3229 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3230 + count = 9 - count;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3231 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3232 + do {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3233 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3234 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3235 + } while (--count != 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3236 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3237 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3238 + gen_rtx_fmt_ee (AND, QImode, operands[1],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3239 + gen_rtx_CONST_INT (VOIDmode, mask)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3240 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3241 + if (was_signed)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3242 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3243 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3244 + if (ACC_A_REG_P (operands[0]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3245 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3246 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3247 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3248 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3249 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3250 + /* Decompose the shift by any constant N > 1 into a sequence
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3251 + * of N shifts.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3252 + * This is done recursively, by creating a shift by 1 and a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3253 + * shift by N-1, as long as N>1. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3254 + if (count > 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3255 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3256 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3257 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3258 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3259 + m6809_emit_move_insn (operands[0],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3260 + gen_rtx_fmt_ee (code, mode, operands[1],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3261 + gen_rtx_CONST_INT (VOIDmode, count-1)));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3262 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3263 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3264 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3265 + /* Decompose the single shift of a 16-bit quantity into two
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3266 + * CPU instructions, one for each 8-bit half.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3267 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3268 + if (mode == HImode && count == 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3269 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3270 + rtx first, second;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3271 + enum rtx_code rotate_code;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3272 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3273 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3274 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3275 + /* Split the operand into two 8-bit entities.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3276 + * FIRST is the one that will get shifted via a regular CPU
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3277 + * instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3278 + * SECOND is the one that will have the result of the first shift
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3279 + * rotated in.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3280 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3281 + * We initialize first and second as if we are doing a left shift,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3282 + * then swap the operands if it's a right shift.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3283 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3284 + if (REG_P (operands[0]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3285 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3286 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3287 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3288 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3289 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3290 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3291 + first = adjust_address (operands[0], QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3292 + second = adjust_address (operands[0], QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3293 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3294 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3295 + if (rotate_code == ROTATERT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3296 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3297 + rtx tmp; tmp = first; first = second; second = tmp;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3298 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3299 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3300 + /* Decompose into a shift and a rotate instruction. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3301 + m6809_emit_move_insn (first,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3302 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3303 + m6809_emit_move_insn (second,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3304 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3305 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3306 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3307 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3308 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3309 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3310 +/** Adjust register usage based on compile-time flags. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3311 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3312 +m6809_conditional_register_usage (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3313 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3314 + unsigned int soft_regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3315 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3316 +#ifdef CONFIG_SOFT_REGS_ALWAYS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3317 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3318 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3319 + if (!m6809_soft_reg_count)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3320 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3321 + m6809_soft_regs = atoi (m6809_soft_reg_count);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3322 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3323 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3324 + if (m6809_soft_regs == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3325 + return;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3326 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3327 + if (m6809_soft_regs > NUM_M_REGS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3328 + m6809_soft_regs = NUM_M_REGS;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3329 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3330 + /* Registers are marked FIXED by default. Free up if
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3331 + the user wishes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3332 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3333 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3334 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3335 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3336 + /* Mark the softregs as call-clobbered, so that they need
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3337 + * not be saved/restored on function entry/exit. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3338 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3339 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3340 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3341 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3342 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3343 +/** Return a RTX representing how to return a value from a function.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3344 + VALTYPE gives the type of the value, FUNC identifies the function
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3345 + itself.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3346 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3347 + In general, we only care about the width of the result. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3348 +rtx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3349 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3350 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3351 + unsigned int regno;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3352 + enum machine_mode mode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3353 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3354 + /* Get the mode (i.e. width) of the result. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3355 + mode = TYPE_MODE (valtype);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3356 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3357 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3358 + regno = HARD_Z_REGNUM;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3359 + else if (mode == QImode || (TARGET_DRET && mode == HImode))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3360 + regno = HARD_D_REGNUM;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3361 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3362 + regno = HARD_X_REGNUM;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3363 + return gen_rtx_REG (mode, regno);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3364 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3365 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3366 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3367 +/** Return 1 if REGNO is possibly needed to return the result
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3368 +of a function, 0 otherwise. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3369 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3370 +m6809_function_value_regno_p (unsigned int regno)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3371 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3372 + if (regno == HARD_Z_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3373 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3374 + else if ((TARGET_BYTE_INT || TARGET_DRET) && regno == HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3375 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3376 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3377 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3378 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3379 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3380 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3381 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3382 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3383 +#ifdef TRACE_PEEPHOLE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3384 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3385 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3386 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3387 + if (stage == PEEP_END)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3388 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3389 + printf ("%s: peephole %d pattern and predicate matched\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3390 + main_input_filename, peephole_id);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3391 + fflush (stdout);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3392 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3393 + else if (stage == PEEP_COND)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3394 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3395 + printf ("%s: peephole %d? at least pattern matched\n",
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3396 + main_input_filename, peephole_id);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3397 + fflush (stdout);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3398 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3399 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3400 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3401 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3402 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3403 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3404 + unsigned int stage ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3405 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3406 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3407 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3408 +#endif /* TRACE_PEEPHOLE */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3409 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3410 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3411 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3412 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3413 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3414 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3415 + /* Soft registers, as they are just memory, can really hold
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3416 + values of any type. However we restrict them to values of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3417 + size HImode or QImode to prevent exhausting them for larger
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3418 + values.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3419 + Word values cannot be placed into the first soft register,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3420 + as it is the low byte that is being placed there, which
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3421 + corrupts the (non-soft) register before it. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3422 + if (M_REGNO_P (regno))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3423 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3424 + switch (GET_MODE_SIZE (mode))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3425 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3426 + case 1:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3427 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3428 + case 2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3429 + return regno != SOFT_M0_REGNUM;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3430 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3431 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3432 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3433 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3434 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3435 + /* VOIDmode can be stored anywhere */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3436 + else if (mode == VOIDmode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3437 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3438 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3439 + /* Zero is a reserved register, but problems occur if we don't
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3440 + say yes here??? */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3441 + else if (regno == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3442 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3443 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3444 + /* For other registers, return true only if the requested size
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3445 + exactly matches the hardware size. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3446 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3447 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3448 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3449 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3450 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3451 + return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3452 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3453 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3454 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3455 +/* exp is the call expression. DECL is the called function,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3456 + * or NULL for an indirect call */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3457 +bool
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3458 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3459 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3460 + tree type, arg;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3461 + const char *name;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3462 + bool result = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3463 + int argcount = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3464 + int step = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3465 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3466 + /* If there is no DECL, it is an indirect call.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3467 + * Never optimize this??? */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3468 + if (decl == NULL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3469 + goto done;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3470 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3471 + /* Never allow an interrupt handler to be optimized this way. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3472 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3473 + goto done;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3474 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3475 + /* Skip sibcall if the type can't be found for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3476 + * some reason */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3477 + step++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3478 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3479 + type = TREE_TYPE (decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3480 + if (type == NULL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3481 + goto done;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3482 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3483 + /* Skip sibcall if the target is a far function */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3484 + step++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3485 + if (far_function_type_p (type) != NULL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3486 + goto done;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3487 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3488 + /* Skip sibcall if the called function's arguments are
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3489 + * variable */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3490 + step++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3491 + if (TYPE_ARG_TYPES (type) == NULL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3492 + goto done;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3493 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3494 + /* Allow sibcalls in other cases. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3495 + result = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3496 +done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3497 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3498 + return result;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3499 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3500 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3501 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3502 +/** Emit code for the 'casesi' pattern.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3503 + * This pattern is only used in 8-bit mode, and can be disabled
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3504 + * with -mold-case there as well. The rationale for this is to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3505 + * do a better job than the simpler but well-tested 'tablejump'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3506 + * method.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3507 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3508 + * For small jumptables, where the switch expression is an
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3509 + * 8-bit value, the lookup can be done more efficiently
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3510 + * using the "B,X" style index mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3511 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3512 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3513 + rtx table_label, rtx default_label)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3514 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3515 + enum machine_mode mode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3516 + rtx scaled;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3517 + rtx table_in_reg;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3518 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3519 + /* expr.c has to be patched so that it does not promote
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3520 + * the expression to SImode, but rather to HImode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3521 + * Fail now if that isn't the case. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3522 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3523 + error ("try_casesi promotion bug");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3524 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3525 + /* Determine whether or not we are going to work primarily in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3526 + * QImode or HImode. This depends on the size of the index
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3527 + * into the lookup table. QImode can only be used when the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3528 + * index is less than 0x40, since it will be doubled but
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3529 + * must remain unsigned. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3530 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3531 + mode = QImode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3532 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3533 + mode = HImode;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3534 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3535 + /* Convert to QImode if necessary */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3536 + if (mode == QImode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3537 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3538 + index = gen_lowpart_general (mode, index);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3539 + lower_bound = gen_lowpart_general (mode, lower_bound);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3540 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3541 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3542 + /* Translate from case value to table index by subtraction */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3543 + if (lower_bound != const0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3544 + index = expand_binop (mode, sub_optab, index, lower_bound,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3545 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3546 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3547 + /* Emit compare-and-jump to test for index out-of-range */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3548 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3549 + default_label);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3550 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3551 + /* Put the table address is in a register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3552 + table_in_reg = gen_reg_rtx (Pmode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3553 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3554 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3555 + /* Emit table lookup and jump */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3556 + if (mode == QImode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3557 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3558 + /* Scale the index */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3559 + scaled = gen_reg_rtx (QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3560 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3561 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3562 + /* Emit the jump */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3563 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3564 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3565 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3566 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3567 + /* Scale the index */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3568 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3569 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3570 + /* Emit the jump */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3571 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3572 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3573 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3574 + /* Copied from expr.c */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3575 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3576 + emit_barrier ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3577 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3578 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3579 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3580 +/** Output the assembly code for a 32-bit add/subtract. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3581 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3582 +m6809_output_addsi3 (int rtx_code, rtx *operands)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3583 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3584 + rtx xoperands[8];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3585 + rtx dst = operands[0];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3586 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3587 + /* Prepare the operands by splitting each SImode into two HImodes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3588 + that can be operated independently. The high word of operand 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3589 + is further divided into two QImode components for use with 'adc'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3590 + style instructions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3591 + xoperands[7] = operands[3];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3592 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3593 + xoperands[0] = adjust_address (dst, HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3594 + xoperands[3] = adjust_address (dst, HImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3595 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3596 +#if 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3597 + xoperands[2] = adjust_address (operands[1], HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3598 + xoperands[6] = adjust_address (operands[1], HImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3599 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3600 + /* Operand 2 may be a MEM or a CONST_INT */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3601 + if (GET_CODE (operands[2]) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3602 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3603 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3604 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3605 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3606 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3607 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3608 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3609 + xoperands[1] = adjust_address (operands[2], HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3610 + xoperands[4] = adjust_address (operands[2], QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3611 + xoperands[5] = adjust_address (operands[2], QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3612 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3613 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3614 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3615 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3616 +#if 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3617 + xoperands[1] = adjust_address (operands[1], HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3618 + xoperands[4] = adjust_address (operands[1], QImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3619 + xoperands[5] = adjust_address (operands[1], QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3620 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3621 + /* Operand 2 may be a MEM or a CONST_INT */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3622 + if (GET_CODE (operands[2]) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3623 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3624 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3625 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3626 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3627 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3628 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3629 + xoperands[2] = adjust_address (operands[2], HImode, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3630 + xoperands[6] = adjust_address (operands[2], HImode, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3631 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3632 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3633 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3634 + /* Output the assembly code. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3635 + if (rtx_code == PLUS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3636 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3637 + output_asm_insn ("ld%7\t%2", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3638 + output_asm_insn ("add%7\t%1", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3639 + output_asm_insn ("st%7\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3640 + output_asm_insn ("ld%7\t%6", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3641 + output_asm_insn ("adcb\t%5", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3642 + output_asm_insn ("adca\t%4", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3643 + output_asm_insn ("st%7\t%3", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3644 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3645 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3646 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3647 + output_asm_insn ("ld%7\t%2", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3648 + output_asm_insn ("sub%7\t%1", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3649 + output_asm_insn ("st%7\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3650 + output_asm_insn ("ld%7\t%6", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3651 + output_asm_insn ("sbcb\t%5", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3652 + output_asm_insn ("sbca\t%4", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3653 + output_asm_insn ("st%7\t%3", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3654 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3655 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3656 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3657 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3658 +#if 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3659 +/** Output the assembly code for a 32-bit shift.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3660 +Operands 0 and 1 must be the same rtx, forced by a matching
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3661 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3662 +"d" in case a temporary reg is needed. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3663 +void
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3664 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3665 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3666 + unsigned int count = INTVAL (operands[2]) % 32;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3667 + unsigned int size = 4; /* sizeof (SImode) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3668 + int s;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3669 + rtx xoperands[4];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3670 + int op;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3671 + int start, end, step;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3672 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3673 + /* Initialize */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3674 + if (rtx_code == ASHIFT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3675 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3676 + start = size-1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3677 + end = -1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3678 + step = -1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3679 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3680 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3681 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3682 + start = 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3683 + end = size;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3684 + step = 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3685 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3686 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3687 + xoperands[2] = operands[2];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3688 + xoperands[3] = operands[3];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3689 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3690 + if (count <= 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3691 + abort ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3692 + if (rtx_code == ROTATE || rtx_code == ROTATERT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3693 + abort ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3694 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3695 + /* Extract bit shifts over 16 bits by HImode moves. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3696 + if (count >= 16)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3697 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3698 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3699 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3700 + /* Extract bit shifts over 8 bits by QImode moves. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3701 + if (count >= 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3702 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3703 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3704 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3705 + /* Iterate over the number of bits to be shifted. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3706 + while (count > 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3707 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3708 + /* Each bit to be shifted requires 1 proper bit shift
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3709 + and 3 rotates. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3710 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3711 + /* First, do the arithmetic/logical shift. Left shifts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3712 + start from the LSB; right shifts start from the MSB. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3713 + xoperands[0] = adjust_address (operands[0], QImode, start);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3714 + switch (rtx_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3715 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3716 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3717 + output_asm_insn ("asl\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3718 + start--;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3719 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3720 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3721 + output_asm_insn ("asr\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3722 + start++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3723 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3724 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3725 + output_asm_insn ("lsr\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3726 + start++;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3727 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3728 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3729 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3730 + /* Next, rotate the other bytes */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3731 + for (s = start; s != end; s += step)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3732 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3733 + xoperands[0] = adjust_address (operands[0], QImode, s);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3734 + switch (rtx_code)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3735 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3736 + case ASHIFT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3737 + output_asm_insn ("rol\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3738 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3739 + case ASHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3740 + case LSHIFTRT:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3741 + output_asm_insn ("ror\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3742 + break;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3743 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3744 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3745 + count--;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3746 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3747 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3748 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3749 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3750 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3751 +power_of_two_p (unsigned int n)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3752 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3753 + return (n & (n-1)) == 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3754 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3755 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3756 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3757 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3758 +m6809_can_eliminate (int from, int to)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3759 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3760 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3761 + return !frame_pointer_needed;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3762 + return 1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3763 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3764 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3765 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3766 +int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3767 +m6809_initial_elimination_offset (int from, int to)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3768 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3769 + switch (from)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3770 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3771 + case ARG_POINTER_REGNUM:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3772 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3773 + case FRAME_POINTER_REGNUM:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3774 + return get_frame_size ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3775 + default:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3776 + gcc_unreachable ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3777 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3778 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3779 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3780 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3781 +bool
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3782 +m6809_frame_pointer_required (void)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3783 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3784 + return false;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3785 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3786 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3787 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3788 +/* Defines the target-specific hooks structure. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3789 +struct gcc_target targetm = TARGET_INITIALIZER;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3791 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3792 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2015-07-20 21:56:53.518727644 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3793 @@ -0,0 +1,1352 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3794 +/* Definitions of target machine for GNU compiler. MC6809 version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3795 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3796 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3797 + Space Astronomy Laboratory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3798 + University of Wisconsin at Madison
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3799 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3800 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3801 + ( msdoerfe@informatik.uni-erlangen.de )
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3802 + also added #pragma interrupt (inspired by gcc-6811)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3803 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3804 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3805 + (ebotcazou@multimania.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3806 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3807 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3808 + (ebotcazou@multimania.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3809 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3810 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3811 + (ebotcazou@multimania.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3812 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3813 + changes for gcc-3.1.1 by ???
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3814 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3815 + further changes for gcc-3.1.1 and beyond by Brian Dominy
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3816 + (brian@oddchange.com)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3817 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3818 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3819 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3820 +This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3821 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3822 +GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3823 +it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3824 +the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3825 +any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3826 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3827 +GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3828 +but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3829 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3830 +GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3831 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3832 +You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3833 +along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3834 +<http://www.gnu.org/licenses/>. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3835 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3836 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3837 +/* Helper macros for creating strings with macros */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3838 +#define C_STRING(x) C_STR(x)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3839 +#define C_STR(x) #x
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3840 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3841 +/* Certain parts of GCC include host-side includes, which is bad.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3842 + * Some things that get pulled in need to be undone.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3843 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3844 +#undef HAVE_GAS_HIDDEN
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3845 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3846 +/* Names to predefine in the preprocessor for this target machine. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3847 +/*#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3848 +#define TARGET_CPU_CPP_BUILTINS() do \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3849 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3850 + if (TARGET_6309) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3851 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3852 + builtin_define_std ("__M6309__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3853 + builtin_define_std ("__m6309__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3854 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3855 + else \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3856 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3857 + builtin_define_std ("__M6809__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3858 + builtin_define_std ("__m6809__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3859 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3860 + \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3861 + if (TARGET_BYTE_INT) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3862 + builtin_define_std ("__int8__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3863 + else \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3864 + builtin_define_std ("__int16__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3865 + \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3866 + switch (m6809_abi_version) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3867 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3868 + case M6809_ABI_VERSION_STACK: \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3869 + builtin_define_std ("__regargs__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3870 + builtin_define_std ("__ABI_STACK__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3871 + break; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3872 + case M6809_ABI_VERSION_REGS: \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3873 + builtin_define_std ("__ABI_REGS__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3874 + break; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3875 + case M6809_ABI_VERSION_BX: \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3876 + builtin_define_std ("__ABI_BX__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3877 + break; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3878 + default: \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3879 + break; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3880 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3881 + \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3882 + if (TARGET_WPC) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3883 + builtin_define_std ("__WPC__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3884 + \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3885 + if (TARGET_DRET) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3886 + builtin_define_std ("__DRET__"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3887 + } while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3888 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3889 +/* As an embedded target, we have no libc. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3890 +#ifndef inhibit_libc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3891 +#define inhibit_libc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3892 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3893 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3894 +/* Print subsidiary information on the compiler version in use. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3895 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3896 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3897 +/* Run-time compilation parameters selecting different hardware subsets. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3898 +/*extern int target_flags; */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3899 +extern short *reg_renumber; /* def in local_alloc.c */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3900 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3901 +/* Runtime current values of section names */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3902 +extern int section_changed;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3903 +extern char code_section_op[], data_section_op[], bss_section_op[];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3904 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3905 +#define WARNING_OPT 0,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3906 +/*extern const char *m6809_abi_version_ptr; */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3907 +extern unsigned int m6809_soft_regs;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3908 +extern unsigned int m6809_abi_version;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3909 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3910 +/* ABI versions */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3911 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3912 +#define M6809_ABI_VERSION_STACK 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3913 +#define M6809_ABI_VERSION_REGS 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3914 +#define M6809_ABI_VERSION_BX 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3915 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3916 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3917 +/* Allow $ in identifiers */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3918 +#define DOLLARS_IN_IDENTIFIERS 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3919 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3920 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3921 + Target machine storage layout
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3922 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3923 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3924 +/* Define this if most significant bit is lowest numbered
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3925 + in instructions that operate on numbered bit-fields. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3926 +#define BITS_BIG_ENDIAN 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3927 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3928 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3929 +#define BYTES_BIG_ENDIAN 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3930 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3931 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3932 +#define WORDS_BIG_ENDIAN 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3933 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3934 +/* Number of bits in an addressible storage unit */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3935 +#define BITS_PER_UNIT 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3936 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3937 +/* Width in bits of a "word", or the contents of a machine register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3938 + * Although the 6809 has a few byte registers, define this to 16-bits
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3939 + * since this is the natural size of most registers. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3940 +#define BITS_PER_WORD 16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3941 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3942 +/* Width of a word, in units (bytes). */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3943 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3944 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3945 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3946 +#define POINTER_SIZE 16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3947 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3948 +/* Allocation boundary (bits) for storing pointers in memory. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3949 +#define POINTER_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3950 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3951 +/* Allocation boundary (bits) for storing arguments in argument list. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3952 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3953 +#define PARM_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3954 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3955 +/* Boundary (bits) on which stack pointer should be aligned. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3956 +#define STACK_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3957 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3958 +/* Allocation boundary (bits) for the code of a function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3959 +#define FUNCTION_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3960 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3961 +/* Alignment of field after `int : 0' in a structure. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3962 +#define EMPTY_FIELD_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3963 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3964 +/* Every structure's size must be a multiple of this. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3965 +#define STRUCTURE_SIZE_BOUNDARY 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3966 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3967 +/* Largest mode size to use when putting an object, including
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3968 + * a structure, into a register. By limiting this to 16, no
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3969 + * 32-bit objects will ever be allocated to a pair of hard
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3970 + * registers. This is a good thing, since there aren't that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3971 + * many of them. 32-bit objects are only needed for floats
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3972 + * and "long long"s. Larger values have been tried and did not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3973 + * work. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3974 +#define MAX_FIXED_MODE_SIZE 16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3975 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3976 +/* No data type wants to be aligned rounder than this. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3977 +#define BIGGEST_ALIGNMENT 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3978 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3979 +/* Define this if move instructions will actually fail to work
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3980 + when given unaligned data. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3981 +#define STRICT_ALIGNMENT 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3982 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3983 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3984 + Standard register usage.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3985 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3986 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3987 +/* Register values as bitmasks.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3988 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3989 + * register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3990 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3991 +#define D_REGBIT (1 << HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3992 +#define X_REGBIT (1 << HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3993 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3994 +#define U_REGBIT (1 << HARD_U_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3995 +#define S_REGBIT (1 << HARD_S_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3996 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3997 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3998 +#define A_REGBIT (1 << HARD_A_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
3999 +#define B_REGBIT (1 << HARD_B_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4000 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4001 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4002 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4003 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4004 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4005 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4006 +/* Macros for dealing with set of registers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4007 + * A register set is just a bitwise-OR of all the register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4008 + * bitmask values. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4009 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4010 +/* Which registers can hold 8-bits */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4011 +#define BYTE_REGSET \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4012 + (Z_REGBIT | A_REGBIT | D_REGBIT | CC_REGBIT | DP_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4013 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4014 +/* Which registers can hold 16-bits.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4015 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4016 +#define WORD_REGSET \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4017 + (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT | SOFT_FP_REGBIT | SOFT_AP_REGBIT | RSVD1_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4018 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4019 +/* Returns nonzero if a given REGNO is in the REGSET. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4020 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4021 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4022 +/* Defines related to the number of soft registers supported.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4023 + * The actual number used may be less depending on -msoft-reg-count.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4024 + * If you change one of these, you should change them all. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4025 +#define NUM_M_REGS 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4026 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4027 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4028 +#define HARD_M_REGNUMS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4029 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4030 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4031 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4032 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4033 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4034 +/* Number of actual hardware registers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4035 + The hardware registers are assigned numbers for the compiler
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4036 + from 0 to just below FIRST_PSEUDO_REGISTER.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4037 + All registers that the compiler knows about must be given numbers,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4038 + even those that are not normally considered general registers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4039 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4040 + for some reason, GCC won't compile if that name is used here directly. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4041 +#ifdef SOFT_M0_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4042 +#if (SOFT_M0_REGNUM != 14)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4043 +#error "bad register numbering"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4044 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4045 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4046 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4047 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4048 +/* 1 for registers that have pervasive standard uses
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4049 + and are not available for the register allocator.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4050 + The psuedoregisters (M_REGS) are declared fixed here, but
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4051 + will be unfixed if -msoft-reg-count is seen later. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4052 +#define FIXED_REGISTERS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4053 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4054 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4055 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4056 +/* 1 for registers not available across function calls.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4057 + These must include the FIXED_REGISTERS and also any
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4058 + registers that can be used without being saved.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4059 + The latter must include the registers where values are returned
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4060 + and the register where structure-value addresses are passed.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4061 + Aside from that, you can include as many other registers as you like. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4062 +#define CALL_USED_REGISTERS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4063 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4064 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4065 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4066 +/* Return number of consecutive hard regs needed starting at reg REGNO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4067 + to hold something of mode MODE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4068 + For the 6809, we distinguish between word-length and byte-length
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4069 + registers. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4070 +#define HARD_REGNO_NREGS(REGNO, MODE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4071 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4072 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4073 + (GET_MODE_SIZE (MODE)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4074 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4075 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4076 +/* Value is 1 if hard register REGNO can hold a value
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4077 +of machine-mode MODE. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4078 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4079 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4080 +/* Value is 1 if it is a good idea to tie two pseudo registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4081 + when one has mode MODE1 and one has mode MODE2.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4082 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4083 + for any hard reg, then this must be 0 for correct output. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4084 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4085 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4086 +/* Specify the registers used for certain standard purposes.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4087 + The values of these macros are register numbers. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4088 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4089 +/* program counter if referenced as a register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4090 +#define PC_REGNUM HARD_PC_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4091 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4092 +/* Register to use for pushing function arguments. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4093 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4094 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4095 +/* Base register for access to local variables of the function.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4096 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4097 + * the elimination pass will convert these to STACK_POINTER_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4098 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4099 + * avoid tying up a hard register (U) for the frame pointer if
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4100 + * it can be eliminated entirely, making it available for use as
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4101 + * a general register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4102 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4103 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4104 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4105 +/* Define a table of possible eliminations.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4106 + * The idea is to try to avoid using hard registers for the argument
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4107 + * and frame pointers if they can be derived from the stack pointer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4108 + * instead, which already has a hard register reserved for it.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4109 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4110 + * The order of entries in this table will try to convert
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4111 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4112 + * references first, but if that fails, they will be converted to use
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4113 + * HARD_FRAME_POINTER_REGNUM.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4114 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4115 +#define ELIMINABLE_REGS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4116 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4117 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4118 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4119 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4120 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4121 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4122 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4123 +/* Define how to offset the frame or argument pointer to turn it
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4124 + * into a stack pointer reference. This is based on the way that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4125 + * the frame is constructed in the function prologue. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4126 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4127 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4128 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4129 +/* Base register for access to arguments of the function.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4130 + * This is only used prior to reload; no instructions will ever
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4131 + * be output referring to this register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4132 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4133 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4134 +/* Register in which static-chain is passed to a function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4135 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4136 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4137 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4138 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4139 +/* Order in which hard registers are allocated to pseudos.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4140 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4141 + * Since the D register is the only valid reg for 8-bit values
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4142 + * now, avoid using it for 16-bit values by putting it after all
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4143 + * other 16-bits.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4144 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4145 + * Prefer X first since the first 16-bit function argument goes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4146 + * there. We may be able to pass in to a subroutine without
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4147 + * a copy.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4148 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4149 + * Prefer U over Y since instructions using Y take one extra
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4150 + * byte, and thus one extra cycle to execute.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4151 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4152 +#define REG_ALLOC_ORDER \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4153 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4154 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4155 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4156 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4157 + 6, HARD_Z_REGNUM }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4158 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4159 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4160 + classes of registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4161 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4162 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4163 +/* Define the classes of registers for register constraints in the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4164 + machine description. Also define ranges of constants.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4165 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4166 + One of the classes must always be named ALL_REGS and include all hard regs.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4167 + If there is more than one class, another class must be named NO_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4168 + and contain no registers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4169 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4170 + The name GENERAL_REGS must be the name of a class (or an alias for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4171 + another name such as ALL_REGS). This is the class of registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4172 + that is allowed by "g" or "r" in a register constraint.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4173 + Also, registers outside this class are allocated only when
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4174 + instructions express preferences for them.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4175 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4176 + The classes must be numbered in nondecreasing order; that is,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4177 + a larger-numbered class must never be contained completely
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4178 + in a smaller-numbered class.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4179 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4180 + For any two classes, it is very desirable that there be another
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4181 + class that represents their union. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4182 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4183 +enum reg_class {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4184 + NO_REGS, /* The trivial class with no registers in it */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4185 + D_REGS, /* 16-bit (word (HI)) data (D) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4186 + ACC_A_REGS, /* The A register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4187 + ACC_B_REGS, /* The B register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4188 + X_REGS, /* The X register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4189 + Z_REGS, /* The Z (zero-bit) register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4190 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4191 + M_REGS, /* 8-bit (byte (QI)) soft registers */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4192 + CC_REGS, /* 8-bit condition code register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4193 + I_REGS, /* An index register (A,B,D) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4194 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4195 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4196 + S_REGS, /* 16-bit soft registers (FP, AP) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4197 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4198 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4199 + ALL_REGS, /* All registers */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4200 + LIM_REG_CLASSES
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4201 +};
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4202 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4203 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4204 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4205 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4206 + it is not an alias to ALL_REGS, but to G_REGS. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4207 +#define GENERAL_REGS G_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4208 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4209 +/* Give names of register classes as strings for dump file. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4210 +#define REG_CLASS_NAMES \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4211 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4212 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4213 + "ALL_REGS" }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4214 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4215 +/* Define which registers fit in which classes.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4216 + This is an initializer for a vector of HARD_REG_SET
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4217 + of length N_REG_CLASSES. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4218 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4219 +#define D_REGSET (D_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4220 +#define ACC_A_REGSET (A_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4221 +#define ACC_B_REGSET (D_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4222 +#define X_REGSET (X_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4223 +#define Z_REGSET (Z_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4224 +#define Q_REGSET (D_REGBIT | A_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4225 +#define M_REGSET (SOFT_M_REGBITS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4226 +#define CC_REGSET (CC_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4227 +#define I_REGSET (A_REGBIT | B_REGBIT | D_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4228 +#define T_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4229 +#define A_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4230 +#define S_REGSET (SOFT_FP_REGBIT | SOFT_AP_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4231 +#define P_REGSET (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4232 +#define G_REGSET \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4233 + (D_REGSET | Q_REGSET | I_REGSET | A_REGSET | M_REGSET | S_REGSET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4234 +#define ALL_REGSET (G_REGSET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4235 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4236 +#define REG_CLASS_CONTENTS { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4237 + {0}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4238 + {D_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4239 + {ACC_A_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4240 + {ACC_B_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4241 + {X_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4242 + {Z_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4243 + {Q_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4244 + {M_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4245 + {CC_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4246 + {I_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4247 + {T_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4248 + {A_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4249 + {S_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4250 + {P_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4251 + {G_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4252 + {ALL_REGSET}, \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4253 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4254 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4255 +/* The same information, inverted.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4256 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4257 + * these two sets of definitions are always consistent. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4258 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4259 +#define REGNO_REG_CLASS(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4260 + (D_REGNO_P (REGNO) ? D_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4261 + (Z_REGNO_P (REGNO) ? Z_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4262 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4263 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4264 + (X_REGNO_P (REGNO) ? X_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4265 + (Q_REGNO_P (REGNO) ? Q_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4266 + (M_REGNO_P (REGNO) ? M_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4267 + (CC_REGNO_P (REGNO) ? CC_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4268 + (I_REGNO_P (REGNO) ? I_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4269 + (T_REGNO_P (REGNO) ? T_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4270 + (A_REGNO_P (REGNO) ? A_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4271 + (S_REGNO_P (REGNO) ? S_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4272 + (P_REGNO_P (REGNO) ? P_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4273 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4274 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4275 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4276 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4277 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4278 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4279 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4280 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4281 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4282 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4283 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4284 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4285 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4286 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4287 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4288 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4289 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4290 +/* Macros that test an rtx 'X' to see if it's in a particular
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4291 + * register class. 'X' need not be a REG necessarily. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4292 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4293 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4294 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4295 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4296 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4297 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4298 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4299 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4300 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4301 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4302 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4303 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4304 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4305 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4306 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4307 +/* Redefine this in terms of BYTE_REGSET */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4308 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4309 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4310 +/* The class value for index registers, and the one for base regs. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4311 +#define INDEX_REG_CLASS I_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4312 +#define BASE_REG_CLASS A_REGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4313 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4314 +/* Get reg_class from a letter in the machine description. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4315 +#define REG_CLASS_FROM_LETTER(C) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4316 + (((C) == 'a' ? A_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4317 + ((C) == 'd' ? D_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4318 + ((C) == 'x' ? I_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4319 + ((C) == 't' ? M_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4320 + ((C) == 'c' ? CC_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4321 + ((C) == 'A' ? ACC_A_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4322 + ((C) == 'B' ? ACC_B_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4323 + ((C) == 'v' ? X_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4324 + ((C) == 'u' ? S_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4325 + ((C) == 'U' ? P_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4326 + ((C) == 'T' ? T_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4327 + ((C) == 'z' ? Z_REGS : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4328 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4329 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4330 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4331 + The letters I through O in a register constraint string
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4332 + can be used to stand for particular ranges of immediate operands.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4333 + This macro defines what the ranges are.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4334 + C is the letter, and VALUE is a constant value.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4335 + Return 1 if VALUE is in the range specified by C.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4336 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4337 + For the 6809, J, K, L are used for indexed addressing.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4338 + `I' is used for the constant 1.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4339 + `J' is used for the 5-bit offsets.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4340 + `K' is used for the 8-bit offsets.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4341 + `L' is used for the range of signed numbers that fit in 16 bits.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4342 + `M' is used for the exact value '8'.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4343 + `N' is used for the constant -1.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4344 + `O' is used for the constant 0.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4345 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4346 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4347 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4348 + ((C) == 'I' ? ((VALUE) == 1) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4349 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4350 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4351 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4352 + (C) == 'M' ? ((VALUE) == 8) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4353 + (C) == 'N' ? ((VALUE) == -1) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4354 + (C) == 'O' ? ((VALUE) == 0) : 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4355 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4356 +/* Similar, but for floating constants, and defining letters G and H.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4357 + No floating-point constants are valid on MC6809. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4358 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4359 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4360 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4361 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4362 +/* Given an rtx X being reloaded into a reg required to be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4363 + in class CLASS, return the class of reg to actually use.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4364 + In general this is just CLASS; but on some machines
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4365 + in some cases it is preferable to use a more restrictive class. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4366 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4367 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4368 +#define SMALL_REGISTER_CLASSES 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4369 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4370 +/* Return the maximum number of consecutive registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4371 + needed to represent mode MODE in a register of class CLASS. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4372 +#define CLASS_MAX_NREGS(CLASS, MODE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4373 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4374 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4375 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4376 + Stack layout; function entry, exit and calling.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4377 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4378 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4379 +/* Define this if pushing a word on the stack
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4380 + makes the stack pointer a smaller address. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4381 +#define STACK_GROWS_DOWNWARD
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4382 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4383 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4384 +/* Define this if the nominal address of the stack frame
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4385 + is at the high-address end of the local variables;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4386 + that is, each additional local variable allocated
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4387 + goes at a more negative offset in the frame. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4388 +#define FRAME_GROWS_DOWNWARD 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4389 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4390 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4391 +/* Offset within stack frame to start allocating local variables at.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4392 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4393 + first local allocated. Otherwise, it is the offset to the BEGINNING
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4394 + of the first local allocated. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4395 +#define STARTING_FRAME_OFFSET 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4396 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4397 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4398 +/* Always push stack arguments for now. Accumulation is not yet working. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4399 +#define PUSH_ROUNDING(BYTES) (BYTES)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4400 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4401 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4402 +/* Offset of first parameter from the argument pointer register value.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4403 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4404 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4405 +#define FIRST_PARM_OFFSET(FNDECL) 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4406 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4407 +/* Value is 1 if returning from a function call automatically
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4408 + pops the arguments described by the number-of-args field in the call.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4409 + FUNTYPE is the data type of the function (as a tree),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4410 + or for a library call it is an identifier node for the subroutine name. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4411 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4412 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4413 +/* Define how to find the value returned by a function.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4414 + VALTYPE is the data type of the value (as a tree).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4415 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4416 + otherwise, FUNC is 0. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4417 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4418 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4419 +/* Define how to find the value returned by a library function
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4420 + assuming the value has mode MODE. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4421 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4422 +/* All return values are in the X-register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4423 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4424 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4425 +/* Define this if using the nonreentrant convention for returning
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4426 + structure and union values. No; it is inefficient and buggy. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4427 +#undef PCC_STATIC_STRUCT_RETURN
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4428 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4429 +/* 1 if N is a possible register number for a function value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4430 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4431 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4432 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4433 + more than one register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4434 +#define NEEDS_UNTYPED_CALL 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4435 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4436 +/* 1 if N is a possible register number for function argument passing. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4437 +#define FUNCTION_ARG_REGNO_P(N) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4438 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4439 + (((N) == HARD_D_REGNUM) || ((N) == HARD_X_REGNUM)) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4440 + 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4441 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4442 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4443 + Argument Lists
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4444 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4445 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4446 +/* Cumulative arguments are tracked in a single integer,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4447 + * which is the number of bytes of arguments scanned so far,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4448 + * plus which registers have already been used. The register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4449 + * info is kept in some of the upper bits */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4450 +#define CUMULATIVE_ARGS unsigned int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4451 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4452 +#define CUM_STACK_ONLY 0x80000000
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4453 +#define CUM_X_MASK 0x40000000
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4454 +#define CUM_B_MASK 0x20000000
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4455 +#define CUM_STACK_INVALID 0x10000000
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4456 +#define CUM_STACK_MASK 0xFFFFFFF
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4457 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4458 +#define CUM_ADVANCE_8BIT(cum) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4459 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) |= CUM_B_MASK))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4460 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4461 +#define CUM_ADVANCE_16BIT(cum) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4462 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) |= CUM_X_MASK))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4463 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4464 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4465 + for a call to a function whose data type is FNTYPE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4466 + For a library call, FNTYPE is 0.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4467 + N_NAMED was added in gcc 3.4 and is not used currently. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4468 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4469 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4470 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4471 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4472 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4473 + : (unsigned) int_size_in_bytes (TYPE))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4474 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4475 +/* Update the data in CUM to advance over an argument
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4476 + of mode MODE and data type TYPE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4477 + (TYPE is null for libcalls where that information may not be available.) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4478 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4479 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4480 + CUM_ADVANCE_8BIT (CUM) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4481 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4482 + CUM_ADVANCE_16BIT (CUM) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4483 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4484 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4485 +/* Define where to put the arguments to a function.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4486 + Value is zero to push the argument on the stack,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4487 + or a hard register rtx in which to store the argument.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4488 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4489 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4490 + For the 6809, the first 8-bit function argument can be placed into B,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4491 + and the first 16-bit arg can go into X. All other arguments
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4492 + will be pushed onto the stack.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4493 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4494 + Command-line options can adjust this behavior somewhat.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4495 + */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4496 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4497 + ((MODE == VOIDmode) ? NULL_RTX : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4498 + ((MODE == BLKmode) || (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4499 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY | CUM_B_MASK))) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4500 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4501 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY | CUM_X_MASK))) ? \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4502 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4503 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4504 +/* Output assembler code to FILE to increment profiler label # LABELNO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4505 + for profiling a function entry. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4506 +#define FUNCTION_PROFILER(FILE, LABELNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4507 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4508 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4509 +/* Stack pointer must be correct on function exit */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4510 +#define EXIT_IGNORE_STACK 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4511 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4512 +/*****************************************************************************
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4513 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4514 +** Trampolines for Nested Functions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4515 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4516 +*****************************************************************************/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4517 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4518 +/* Length in units of the trampoline for entering a nested function. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4519 +#define TRAMPOLINE_SIZE 7
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4520 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4521 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4522 + Addressing modes,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4523 + and classification of registers for them.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4524 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4525 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4526 +/* 6809 has postincrement and predecrement addressing modes */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4527 +#define HAVE_POST_INCREMENT 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4528 +#define HAVE_PRE_DECREMENT 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4529 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4530 +/* Whether or not to use index registers is configurable.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4531 + * Experiments show that things work better when this is off, so
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4532 + * that's the way it is for now. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4533 +#undef USE_INDEX_REGISTERS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4534 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4535 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4536 +/* Macros to check register numbers against specific register classes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4537 +#define REG_VALID_FOR_BASE_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4538 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4539 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4540 +/* MC6809 index registers do not allow scaling, */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4541 +/* but there is "accumulator-offset" mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4542 +#ifdef USE_INDEX_REGISTERS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4543 +#define REG_VALID_FOR_INDEX_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4544 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4545 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4546 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4547 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4548 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4549 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4550 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4551 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4552 + || REG_VALID_FOR_BASE_P (REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4553 + || (REGNO) == FRAME_POINTER_REGNUM \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4554 + || (REGNO) == HARD_FRAME_POINTER_REGNUM \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4555 + || (REGNO) == ARG_POINTER_REGNUM \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4556 + || (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4557 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4558 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4559 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4560 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4561 + || REG_VALID_FOR_INDEX_P (REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4562 + || (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4563 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4564 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4565 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4566 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4567 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4568 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4569 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4570 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4571 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4572 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4573 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4574 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4575 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4576 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4577 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4578 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4579 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4580 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4581 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4582 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4583 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4584 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4585 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4586 +#ifndef REG_OK_STRICT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4587 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4588 +#ifdef USE_INDEX_REGISTERS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4589 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4590 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4591 +#define REG_OK_FOR_INDEX_P(X) 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4592 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4593 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4594 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4595 +#ifdef USE_INDEX_REGISTERS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4596 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4597 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4598 +#define REG_OK_FOR_INDEX_P(X) 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4599 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4600 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4601 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4602 +/* Maximum number of registers that can appear in a valid memory address */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4603 +#ifdef USE_INDEX_REGISTERS
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4604 +#define MAX_REGS_PER_ADDRESS 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4605 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4606 +#define MAX_REGS_PER_ADDRESS 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4607 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4608 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4609 +/* 1 if X is an rtx for a constant that is a valid address.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4610 + * We allow any constant, plus the sum of any two constants (this allows
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4611 + * offsetting a symbol ref) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4612 +#define CONSTANT_ADDRESS_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4613 + ((CONSTANT_P (X)) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4614 + || ((GET_CODE (X) == PLUS) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4615 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4616 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4617 +/* Nonzero if the constant value X is a legitimate general operand.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4618 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4619 +/* Any single-word constant is ok; the only contexts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4620 + allowing general_operand of mode DI or DF are movdi and movdf. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4621 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4622 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4623 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4624 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4625 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4626 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4627 + Test for valid memory addresses
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4628 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4629 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4630 + that is a valid memory address for an instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4631 + The MODE argument is the machine mode for the MEM expression
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4632 + that wants to use this address. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4633 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4634 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4635 + Valid addresses are either direct or indirect (MEM) versions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4636 + of the following forms.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4637 + constant N
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4638 + register ,X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4639 + constant indexed N,X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4640 + accumulator indexed D,X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4641 + auto_increment ,X++
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4642 + auto_decrement ,--X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4643 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4644 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4645 +#define REGISTER_ADDRESS_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4646 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4647 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4648 +#define EXTENDED_ADDRESS_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4649 + CONSTANT_ADDRESS_P (X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4650 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4651 +#define LEGITIMATE_BASE_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4652 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4653 + || (GET_CODE (X) == SIGN_EXTEND \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4654 + && GET_CODE (XEXP (X, 0)) == REG \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4655 + && GET_MODE (XEXP (X, 0)) == HImode \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4656 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4657 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4658 +#define LEGITIMATE_OFFSET_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4659 + (CONSTANT_ADDRESS_P (X) || (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4660 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4661 +/* 1 if X is the sum of a base register and an offset. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4662 +#define INDEXED_ADDRESS(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4663 + ((GET_CODE (X) == PLUS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4664 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4665 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4666 + || (GET_CODE (X) == PLUS \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4667 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4668 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4669 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4670 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4671 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4672 +#define STACK_PUSH_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4673 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4674 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4675 +#define STACK_POP_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4676 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4677 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4678 +#define PUSH_POP_ADDRESS_P(X) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4679 + (((GET_CODE (X) == PRE_DEC) || (GET_CODE (X) == POST_INC)) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4680 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4681 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4682 +/* Go to ADDR if X is a valid address. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4683 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4684 +{ \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4685 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4686 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4687 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4688 + if (INDEXED_ADDRESS (X)) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4689 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4690 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4691 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4692 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4693 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4694 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4695 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4696 + Address Fix-up
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4697 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4698 +/* Go to LABEL if ADDR (a legitimate address expression)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4699 + has an effect that depends on the machine mode it is used for.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4700 + In the latest GCC, this case is already handled by the core code
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4701 + so no action is required here. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4702 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4703 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4704 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4705 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4706 + Miscellaneous Parameters
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4707 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4708 +/* Specify the machine mode that this machine uses
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4709 + for the index in the tablejump instruction. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4710 +#define CASE_VECTOR_MODE Pmode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4711 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4712 +/* Define this as 1 if `char' should by default be signed; else as 0. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4713 +#define DEFAULT_SIGNED_CHAR 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4714 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4715 +/* This flag, if defined, says the same insns that convert to a signed fixnum
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4716 + also convert validly to an unsigned one. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4717 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4718 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4719 +/* Max number of bytes we can move from memory to memory/register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4720 + in one reasonably fast instruction. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4721 +#define MOVE_MAX 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4722 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4723 +/* Int can be 8 or 16 bits (default is 16) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4724 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4725 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4726 +/* Short is always 16 bits */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4727 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4728 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4729 +/* Size (bits) of the type "long" on target machine */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4730 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4731 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4732 +/* Size (bits) of the type "long long" on target machine */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4733 +#define LONG_LONG_TYPE_SIZE 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4734 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4735 +/* Size (bits) of the type "char" on target machine */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4736 +#define CHAR_TYPE_SIZE 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4737 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4738 +/* Size (bits) of the type "float" on target machine */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4739 +#define FLOAT_TYPE_SIZE 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4740 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4741 +/* Size (bits) of the type "double" on target machine.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4742 + * Note that the C standard does not require that doubles
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4743 + * hold any more bits than float. Since the 6809 has so few
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4744 + * registers, we cannot really support more than 32-bits. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4745 +#define DOUBLE_TYPE_SIZE 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4746 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4747 +/* Size (bits) of the type "long double" on target machine */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4748 +#define LONG_DOUBLE_TYPE_SIZE 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4749 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4750 +/* Define the type used for "size_t". With a 64KB address space,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4751 + * only a 16-bit value here makes sense. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4752 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4753 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4754 +/* Likewise, the difference between two pointers is also a 16-bit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4755 + * signed value. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4756 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4757 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4758 +/* Nonzero if access to memory by bytes is slow and undesirable. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4759 +#define SLOW_BYTE_ACCESS 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4760 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4761 +/* Define if shifts truncate the shift count
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4762 + which implies one can omit a sign-extension or zero-extension
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4763 + of a shift count. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4764 +#define SHIFT_COUNT_TRUNCATED 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4765 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4766 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4767 + is done just by pretending it is already truncated. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4768 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4769 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4770 +/* It is as good to call a constant function address as to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4771 + call an address kept in a register. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4772 +#define NO_FUNCTION_CSE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4773 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4774 +/* Specify the machine mode that pointers have.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4775 + After generation of rtl, the compiler makes no further distinction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4776 + between pointers and any other objects of this machine mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4777 +#define Pmode HImode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4778 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4779 +/* A function address in a call instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4780 + is a byte address (for indexing purposes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4781 + so give the MEM rtx a byte's mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4782 +#define FUNCTION_MODE HImode
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4783 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4784 +/* Define the cost of moving a value from a register in CLASS1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4785 + * to CLASS2, of a given MODE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4786 + *
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4787 + * On the 6809, hard register transfers are all basically equivalent.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4788 + * But soft register moves are treated more like memory moves. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4789 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4790 + (((CLASS1 == M_REGS) || (CLASS2 == M_REGS)) ? 4 : 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4791 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4792 +/* Define the cost of moving a value between a register and memory. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4793 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4794 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4795 +/* Check a `double' value for validity for a particular machine mode. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4796 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4797 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4798 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4799 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4800 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4801 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4802 + machine-dependent
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4803 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4804 +/* Tell final.c how to eliminate redundant test instructions. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4805 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4806 +/* Here we define machine-dependent flags and fields in cc_status
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4807 + (see `conditions.h'). */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4808 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4809 +/* Store in cc_status the expressions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4810 + that the condition codes will describe
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4811 + after execution of an instruction whose pattern is EXP.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4812 + Do not alter them if the instruction would not alter the cc's. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4813 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4814 +/* On the 6809, most of the insns to store in an address register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4815 + fail to set the cc's. However, in some cases these instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4816 + can make it possibly invalid to use the saved cc's. In those
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4817 + cases we clear out some or all of the saved cc's so they won't be used. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4818 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4819 +#define NOTICE_UPDATE_CC(EXP, INSN) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4820 + notice_update_cc((EXP), (INSN))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4821 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4822 +/*****************************************************************************
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4823 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4824 +** pragma support
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4825 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4826 +*****************************************************************************/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4827 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4828 +#if 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4829 +#define REGISTER_TARGET_PRAGMAS() \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4830 +do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4831 + extern void pragma_section PARAMS ((cpp_reader *)); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4832 + c_register_pragma (0, "section", pragma_section); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4833 +} while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4834 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4835 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4836 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4837 +/*--------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4838 + ASSEMBLER FORMAT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4839 +--------------------------------------------------------------*/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4840 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4841 +#define FMT_HOST_WIDE_INT "%ld"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4842 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4843 +/* Output to assembler file text saying following lines
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4844 + may contain character constants, extra white space, comments, etc. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4845 +#define ASM_APP_ON ";----- asm -----\n"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4846 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4847 +/* Output to assembler file text saying following lines
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4848 + no longer contain unusual constructs. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4849 +#define ASM_APP_OFF ";--- end asm ---\n"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4850 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4851 +/* Use a semicolon to begin a comment. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4852 +#define ASM_COMMENT_START "; "
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4853 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4854 +/* Output assembly directives to switch to section 'name' */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4855 +#undef TARGET_ASM_NAMED_SECTION
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4856 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4857 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4858 +#undef TARGET_HAVE_NAMED_SECTION
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4859 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4860 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4861 +/* Output before read-only data. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4862 +#define TEXT_SECTION_ASM_OP (code_section_op)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4863 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4864 +/* Output before writable data. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4865 +#define DATA_SECTION_ASM_OP (data_section_op)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4866 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4867 +/* Output before uninitialized data. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4868 +#define BSS_SECTION_ASM_OP (bss_section_op)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4869 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4870 +/* Support the ctors and dtors sections for g++. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4871 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4872 +#undef CTORS_SECTION_ASM_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4873 +#define CTORS_SECTION_ASM_OP "\t.area .ctors"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4874 +#undef DTORS_SECTION_ASM_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4875 +#define DTORS_SECTION_ASM_OP "\t.area .dtors"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4876 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4877 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4878 +#undef DO_GLOBAL_CTORS_BODY
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4879 +#undef DO_GLOBAL_DTORS_BODY
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4880 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4881 +#define HAS_INIT_SECTION
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4882 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4883 +/* This is how to output an assembler line
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4884 + that says to advance the location counter
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4885 + to a multiple of 2**LOG bytes. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4886 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4887 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4888 + if ((LOG) > 1) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4889 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4890 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4891 +/* The .set foo,bar construct doesn't work by default */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4892 +#undef SET_ASM_OP
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4893 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4894 + do \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4895 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4896 + fputc ('\t', FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4897 + assemble_name (FILE, LABEL1); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4898 + fputs (" = ", FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4899 + assemble_name (FILE, LABEL2); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4900 + fputc ('\n', FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4901 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4902 + while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4903 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4904 +/* How to refer to registers in assembler output.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4905 + This sequence is indexed by compiler's hard-register-number (see above). */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4906 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4907 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4908 +#define REGISTER_NAMES { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4909 + [HARD_D_REGNUM]= "d", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4910 + [HARD_X_REGNUM]= "x", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4911 + [HARD_Y_REGNUM]= "y", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4912 + [HARD_U_REGNUM]= "u", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4913 + [HARD_S_REGNUM]= "s", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4914 + [HARD_PC_REGNUM]= "pc", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4915 + [HARD_A_REGNUM]= "a", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4916 + [HARD_B_REGNUM]= "b", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4917 + [HARD_CC_REGNUM]= "cc",\
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4918 + [HARD_DP_REGNUM]= "dp", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4919 + [SOFT_FP_REGNUM]= "soft_fp", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4920 + [SOFT_AP_REGNUM]= "soft_ap", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4921 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4922 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4923 + [HARD_RSVD1_REGNUM] = "-", \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4924 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4925 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4926 +/*****************************************************************************
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4927 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4928 +** Debug Support
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4929 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4930 +*****************************************************************************/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4931 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4932 +/* Default to DBX-style debugging */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4933 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4934 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4935 +#define DBX_DEBUGGING_INFO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4936 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4937 +#define DEFAULT_GDB_EXTENSIONS 0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4938 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4939 +#define ASM_STABS_OP ";\t.stabs\t"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4940 +#define ASM_STABD_OP ";\t.stabd\t"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4941 +#define ASM_STABN_OP ";\t.stabn\t"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4942 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4943 +#define DBX_CONTIN_LENGTH 54
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4944 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4945 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4946 +do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4947 + const char *p = FILENAME; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4948 + while ((p = strchr (p, '/')) != NULL) { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4949 + p = FILENAME = p+1; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4950 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4951 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4952 + output_quoted_string (ASMFILE, FILENAME); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4953 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4954 + assemble_name (ASMFILE, ltext_label_name); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4955 + fputc ('\n', ASMFILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4956 + switch_to_section (text_section); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4957 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4958 +} while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4959 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4960 +/* With -g, GCC sometimes outputs string literals that are longer than
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4961 + * the assembler can handle. Without actual debug support, these are
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4962 + * not really required. Redefine the function to output strings to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4963 + * output as much as possible. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4964 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4965 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4966 +/*****************************************************************************
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4967 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4968 +** Output and Generation of Labels
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4969 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4970 +*****************************************************************************/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4971 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4972 +/* Prefixes for various assembly-time objects */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4973 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4974 +#define REGISTER_PREFIX ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4975 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4976 +#define LOCAL_LABEL_PREFIX ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4977 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4978 +#define USER_LABEL_PREFIX "_"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4979 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4980 +#define IMMEDIATE_PREFIX "#"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4981 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4982 +/* This is how to output the definition of a user-level label named NAME,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4983 + such as the label on a static function or variable NAME. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4984 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4985 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4986 +do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4987 + if (section_changed) { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4988 + fprintf (FILE, "\n%s\n\n", code_section_op); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4989 + section_changed = 0; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4990 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4991 + assemble_name (FILE, NAME); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4992 + fputs (":\n", FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4993 +} while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4994 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4995 +/* This is how to output the label for a function definition. It
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4996 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4997 + other properties. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4998 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
4999 + m6809_declare_function_name (FILE,NAME,DECL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5000 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5001 +/* This is how to output a command to make the user-level label
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5002 + named NAME defined for reference from other files. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5003 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5004 +#define GLOBAL_ASM_OP "\t.globl "
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5005 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5006 +/* This is how to output a reference to a user label named NAME. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5007 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5008 + fprintf (FILE, "_%s", NAME)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5009 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5010 +/* This is how to output a reference to a symbol ref
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5011 + * Check to see if the symbol is in the direct page */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5012 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5013 +{ \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5014 + print_direct_prefix (FILE, sym); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5015 + assemble_name (FILE, XSTR (sym, 0)); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5016 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5017 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5018 +/* External references aren't necessary, so don't emit anything */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5019 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5020 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5021 +/* This is how to store into the string LABEL
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5022 + the symbol_ref name of an internal numbered label where
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5023 + PREFIX is the class of label and NUM is the number within the class.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5024 + This is suitable for output with `assemble_name'. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5025 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5026 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5027 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5028 +/* This is how to output an assembler line defining an `int' constant. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5029 +#define ASM_OUTPUT_INT(FILE,VALUE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5030 +( fprintf (FILE, "\t.word "), \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5031 + output_addr_const (FILE, (VALUE)), \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5032 + fprintf (FILE, "\n"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5033 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5034 +/* Likewise for `char' and `short' constants. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5035 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5036 +( fprintf (FILE, "\t.word "), \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5037 + output_addr_const (FILE, (VALUE)), \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5038 + fprintf (FILE, "\n"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5039 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5040 +/* This is how to output a string. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5041 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5042 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5043 +/* This is how to output an insn to push a register on the stack.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5044 + It need not be very fast code. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5045 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5046 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5047 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5048 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5049 +/* This is how to output an insn to pop a register from the stack.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5050 + It need not be very fast code. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5051 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5052 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5053 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5054 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5055 +/* This is how to output an element of a case-vector that is absolute. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5056 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5057 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5058 + fprintf (FILE, "\t.word L%u\n", VALUE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5059 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5060 +/* This is how to output an element of a case-vector that is relative. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5061 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5062 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5063 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5064 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5065 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5066 +/*****************************************************************************
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5067 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5068 +** Assembler Commands for Alignment
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5069 +**
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5070 +*****************************************************************************/
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5071 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5072 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5073 + * So use the .byte and .word directives instead of .blkb */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5074 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5075 + do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5076 + int __size = SIZE; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5077 + while (__size > 0) { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5078 + if (__size >= 2) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5079 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5080 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5081 + __size -= 2; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5082 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5083 + else \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5084 + { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5085 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5086 + __size--; \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5087 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5088 + } \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5089 + } while (0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5090 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5091 +/* This says how to output an assembler line
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5092 + to define a global common symbol. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5093 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5094 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5095 + do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5096 + switch_to_section (bss_section); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5097 + fputs ("\t.globl\t", FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5098 + assemble_name ((FILE), (NAME)); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5099 + fputs ("\n", FILE); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5100 + assemble_name ((FILE), (NAME)); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5101 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5102 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5103 +/* This says how to output an assembler line
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5104 + to define a local common symbol. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5105 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5106 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5107 +do { \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5108 + switch_to_section (bss_section); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5109 + assemble_name ((FILE), (NAME)); \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5110 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5111 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5112 +/* Store in OUTPUT a string (made with alloca) containing
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5113 + an assembler-name for a local static variable named NAME.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5114 + LABELNO is an integer which is different for each call. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5115 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5116 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5117 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5118 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5119 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5120 +/* Print an instruction operand X on file FILE.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5121 + CODE is the code from the %-spec for printing this operand.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5122 + If `%z3' was used to print operand 3, then CODE is 'z'. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5123 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5124 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5125 +/* Print a memory operand whose address is X, on file FILE. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5126 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5127 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5128 +/* Don't let stack pushes build up too much. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5129 +#define MAX_PENDING_STACK 8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5130 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5131 +/* Define values for builtin operations */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5132 +enum m6809_builtins
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5133 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5134 + M6809_SWI,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5135 + M6809_SWI2,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5136 + M6809_SWI3,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5137 + M6809_CWAI,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5138 + M6809_SYNC,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5139 + M6809_ADD_CARRY,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5140 + M6809_SUB_CARRY,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5141 + M6809_ADD_DECIMAL,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5142 + M6809_NOP,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5143 + M6809_BLOCKAGE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5144 +};
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5145 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5146 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5147 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5148 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2015-07-20 22:05:21.702720231 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5149 @@ -0,0 +1,2358 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5150 +;; GCC machine description for Motorola 6809
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5151 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5152 +;; 2009 Free Software Foundation, Inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5153 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5154 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5155 +;; by William Astle (lost@l-w.ca).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5156 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5157 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5158 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5159 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5160 +;; This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5161 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5162 +;; GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5163 +;; it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5164 +;; the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5165 +;; any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5166 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5167 +;; GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5168 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5169 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5170 +;; GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5171 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5172 +;; You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5173 +;; along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5174 +;; <http://www.gnu.org/licenses/>.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5175 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5176 +;; General information:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5177 +;; --------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5178 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5179 +;; versions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5180 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5181 +;; * The 'A' and 'B' registers are treated as a single register by the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5182 +;; register allocator; hence, the instruction templates assume that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5183 +;; both can be modified if either one is available for use. No
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5184 +;; attempt is made to split instructions to refer to a particular half
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5185 +;; of the register. It is always referred to as the 'D' register, even
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5186 +;; in QImode (when it will be displayed as 'B').
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5187 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5188 +;; * There is full support for proper branch instruction generation,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5189 +;; based on instruction lengths. However, many instruction patterns
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5190 +;; are still overloaded to emit lots of real instructions, which can
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5191 +;; make the length calculation difficult; in those cases, I've tried
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5192 +;; to be pessimistic and assume the worst-case.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5193 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5194 +;; * The instruction type attributes are only defined for branch
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5195 +;; vs. non branch instructions for now, since there is seemingly no
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5196 +;; reason to define these for other types anyway.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5197 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5198 +;; * The limited number of total registers presents the greatest
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5199 +;; challenge. There are 'soft registers' -- memory locations
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5200 +;; used to simulate real regs -- which can be helpful.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5201 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5202 +;; * Position-independent code (PIC) is supported and has been tested
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5203 +;; but not to the extent of absolute code generation.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5204 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5205 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5206 +;; as UNSPEC instructions, and can be accessed from C code using
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5207 +;; __builtin_xxxx() style functions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5208 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5209 +;; What still needs to be done:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5210 +;; ----------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5211 +;; * Replace remaining instances of (define_peephole) with
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5212 +;; (define_peephole2), or remove them completely if they are not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5213 +;; matching anyway. Add more peepholes for things actually encountered.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5214 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5215 +;; * Indexing addressing can lead to crashes in complex functions when
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5216 +;; register pressure is high. Only the 'D' register can actually be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5217 +;; used as an index register, and its demand by other instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5218 +;; can sometimes mean that it is impossible to satisfy constraints.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5219 +;; Currently, indexing is completely disabled to avoid these types
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5220 +;; of problems, although code is slightly more inefficient in some
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5221 +;; working cases.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5222 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5223 +;; * 32-bit math is terribly inefficient.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5224 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5225 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5226 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5227 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5228 +;;- Constants
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5229 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5230 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5231 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5232 +; Define constants for hard register numbers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5233 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5234 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5235 + (HARD_RSVD1_REGNUM 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5236 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5237 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5238 + (HARD_Z_REGNUM 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5239 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5240 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5241 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5242 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5243 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5244 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5245 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5246 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5247 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5248 +; The range in which a short branch insn can be used.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5249 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5250 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5251 + (MIN_SHORT_BRANCH_OFFSET -127)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5252 + (MAX_SHORT_BRANCH_OFFSET 128)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5253 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5254 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5255 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5256 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5257 +; The lengths of various types of real 6809 instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5258 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5259 +; By default, ordinary insns are 4 bytes long. This is often not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5260 +; right, and the insn patterns below will redefine this to the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5261 +; correct value.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5262 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5263 +; Branch instruction lengths (conditional and unconditionals) are
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5264 +; well known and declared here. The short insns are used when the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5265 +; offset is within the range declared above (between MIN_SHORT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5266 +; and MAX_SHORT) ; otherwise the long form is used.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5267 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5268 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5269 + (DEFAULT_INSN_LENGTH 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5270 + (SHORT_CBRANCH_LENGTH 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5271 + (LONG_CBRANCH_LENGTH 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5272 + (SHORT_BRANCH_LENGTH 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5273 + (LONG_BRANCH_LENGTH 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5274 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5275 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5276 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5277 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5278 +; Constants for insn cycle counts.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5279 +; Note that these counts all assume 1-byte opcodes. 2-byte
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5280 +; opcodes require 1 extra cycles for fetching the extra byte.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5281 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5282 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5283 + ;; The default insn length, when it cannot be calculated.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5284 + ;; Take a conservative approach and estimate high.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5285 + (DEFAULT_INSN_CYCLES 10)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5286 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5287 + ;; Cycle counts for ALU and load operations.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5288 + (ALU_INHERENT_CYCLES 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5289 + (ALU_IMMED_CYCLES 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5290 + (ALU_DIRECT_CYCLES 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5291 + (ALU_INDEXED_BASE_CYCLES 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5292 + (ALU_EXTENDED_CYCLES 5)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5293 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5294 + ;; If an ALU operation is on a 16-bit register (D), then
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5295 + ;; add this number of cycles to the total count.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5296 + (ALU_16BIT_CYCLES 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5297 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5298 + ;; A load of a 16-bit register incurs this extra amount.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5299 + (LOAD_16BIT_CYCLES 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5300 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5301 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5302 + (MEM_DIRECT_CYCLES 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5303 + (MEM_INDEXED_BASE_CYCLES 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5304 + (MEM_EXTENDED_CYCLES 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5305 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5306 + ;; Cycle count for any reg-reg transfer (regardless of size)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5307 + (EXG_CYCLES 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5308 + (TFR_CYCLES 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5309 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5310 + ;; Cycle count for a condition code update (andcc/orcc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5311 + (CC_CYCLES 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5312 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5313 + (JMP_DIRECT_CYCLES 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5314 + (JMP_INDEXED_BASE_CYCLES 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5315 + (JMP_EXTENDED_CYCLES 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5316 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5317 + (JSR_DIRECT_CYCLES 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5318 + (JSR_INDEXED_BASE_CYCLES 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5319 + (JSR_EXTENDED_CYCLES 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5320 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5321 + (LEA_BASE_CYCLES 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5322 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5323 + ;; Cycle count for a psh/pul operations. Add to this the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5324 + ;; total number of bytes moved for the correct count.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5325 + (PSH_PUL_CYCLES 5)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5326 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5327 + ;; Miscellaneous cycle counts
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5328 + (CWAI_CYCLES 20)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5329 + (MUL_CYCLES 11)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5330 + (NOP_CYCLES 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5331 + (RTI_CYCLES 15)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5332 + (RTS_CYCLES 5)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5333 + (SWI_CYCLES 20)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5334 + (SYNC_CYCLES 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5335 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5336 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5337 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5338 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5339 +; An enumeration of values for each "unspec"; i.e. unspecified
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5340 +; instruction. These represent insns that are meaningful on the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5341 +; 6809 but which have no intrinsic meaning to GCC itself.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5342 +; These insns can be generated explicitly using the __builtin_xxx
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5343 +; syntax; they are also implicitly generated by the backend
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5344 +; as needed to implement other insns.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5345 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5346 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5347 + (UNSPEC_BLOCKAGE 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5348 + (UNSPEC_PUSH_RS 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5349 + (UNSPEC_POP_RS 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5350 + (UNSPEC_SWI 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5351 + (UNSPEC_CWAI 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5352 + (UNSPEC_ADD_CARRY 5)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5353 + (UNSPEC_SUB_CARRY 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5354 + (UNSPEC_SYNC 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5355 + (UNSPEC_ADD_DECIMAL 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5356 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5357 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5358 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5359 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5360 +;;- Predicates
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5361 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5362 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5363 +(include "predicates.md")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5364 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5365 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5366 +;;- Attributes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5367 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5368 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5369 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5370 +;; The type attribute is used to distinguish between different
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5371 +;; types of branch instructions, so that their lengths can be
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5372 +;; calculated correctly.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5373 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5374 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5375 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5376 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5377 +;; The length of a branch instruction is calculated based on how
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5378 +;; far away the branch target is. Lengths of other insns default
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5379 +;; to 4. set_attr is used in instruction templates to specify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5380 +;; the length when it is known exactly. When not sure, err on
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5381 +;; the high side to avoid compile errors.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5382 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5383 +(define_attr "length" ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5384 + (cond [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5385 + (eq_attr "type" "branch")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5386 + (if_then_else (lt (minus (match_dup 0) (pc))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5387 + (const_int MIN_SHORT_BRANCH_OFFSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5388 + (const_int LONG_BRANCH_LENGTH)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5389 + (if_then_else (gt (minus (match_dup 0) (pc))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5390 + (const_int MAX_SHORT_BRANCH_OFFSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5391 + (const_int LONG_BRANCH_LENGTH)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5392 + (const_int SHORT_BRANCH_LENGTH)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5393 + (eq_attr "type" "cbranch")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5394 + (if_then_else (lt (minus (match_dup 0) (pc))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5395 + (const_int MIN_SHORT_BRANCH_OFFSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5396 + (const_int LONG_CBRANCH_LENGTH)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5397 + (if_then_else (gt (minus (match_dup 0) (pc))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5398 + (const_int MAX_SHORT_BRANCH_OFFSET))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5399 + (const_int LONG_CBRANCH_LENGTH)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5400 + (const_int SHORT_CBRANCH_LENGTH)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5401 + ] (const_int DEFAULT_INSN_LENGTH)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5402 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5403 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5404 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5405 +;; The default attributes for 'asm' statements.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5406 +;; The default length is the longest possible single 6809 instruction,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5407 +;; which is 5 bytes. GCC will automatically multiply this by the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5408 +;; number of real insns contained in an asm statement.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5409 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5410 +(define_asm_attributes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5411 + [(set_attr "length" "5")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5412 + (set_attr "type" "unknown")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5413 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5414 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5415 +;; An attribute for the number of cycles that it takes an instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5416 +;; to execute.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5417 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5418 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5419 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5420 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5421 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5422 +;;- Instruction patterns. When multiple patterns apply,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5423 +;;- the first one in the file is chosen.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5424 +;;-
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5425 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5426 +;;-
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5427 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5428 +;;- for most instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5429 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5430 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5431 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5432 +;;- Test
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5433 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5434 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5435 +;; cmpx is 3 bytes, not 4
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5436 +(define_insn "*tsthi_x"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5437 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5438 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5439 + "cmpx\t#0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5440 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5441 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5442 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5443 +(define_insn "*tsthi_d"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5444 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5445 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5446 + "subd\t#0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5447 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5448 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5449 +(define_insn "*tsthi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5450 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5451 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5452 + "cmp%0\t#0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5453 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5454 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5455 +(define_insn "*bitqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5456 + [(set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5457 + (and:QI (match_operand:QI 0 "register_operand" "%q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5458 + (match_operand:QI 1 "general_operand" "mi")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5459 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5460 + "bit%0\t%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5461 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5462 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5463 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5464 +(define_insn "tstqi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5465 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5466 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5467 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5468 + tst%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5469 + tst\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5470 + [(set_attr "length" "1,3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5471 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5472 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5473 +;;- Compare instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5474 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5475 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5476 +;; - cmphi for register to memory or register compares
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5477 +(define_insn "cmphi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5478 + [(set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5479 + (compare
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5480 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5481 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5482 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5483 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5484 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5485 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5486 + return "cmp%0\t,s++\t;cmphi:";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5487 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5488 + if (GET_CODE (operands[0]) == REG)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5489 + return "cmp%0\t%1\t;cmphi:";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5490 + else {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5491 + cc_status.flags |= CC_REVERSED;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5492 + return "cmp%1\t%0\t;cmphi:(R)";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5493 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5494 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5495 + [(set_attr "length" "5,5,7")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5496 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5497 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5498 +(define_insn "cmpqi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5499 + [(set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5500 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5501 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5502 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5503 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5504 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5505 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5506 + if (operands[1] == const0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5507 + return "tst%0\t;cmpqi:(ZERO)";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5508 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5509 + return "cmp%0\t%1\t;cmpqi:";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5510 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5511 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5512 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5513 + cc_status.flags |= CC_REVERSED;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5514 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5515 + if (operands[0] == const0_rtx)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5516 + return "tst%1\t;cmpqi:(RZERO)";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5517 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5518 + return "cmp%1\t%0\t;cmpqi:(R)";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5519 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5520 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5521 + [(set_attr "length" "1,3,2,1,3,2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5522 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5523 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5524 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5525 +;;- Compare/branch pattern
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5526 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5527 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5528 +(define_expand "cbranchhi4"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5529 + [(set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5530 + (compare
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5531 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5532 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5533 + (set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5534 + (if_then_else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5536 + (label_ref (match_operand 3 "" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5537 + (pc)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5538 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5539 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5540 +)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5541 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5542 +(define_expand "cbranchqi4"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5543 + [(set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5544 + (compare
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5545 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5546 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5547 + (set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5548 + (if_then_else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5549 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5550 + (label_ref (match_operand 3 "" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5551 + (pc)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5552 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5553 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5554 +)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5555 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5556 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5557 +;;- Move
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5558 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5559 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5560 +; this looks good (obviously not finished) but I still see 'movsi'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5561 +; places in udivsi3 where it's broken
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5562 +; (define_insn "pushsi1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5563 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5564 +; (match_operand:SI 0 "general_operand" "o"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5565 +; (set (reg:HI HARD_S_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5566 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5567 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5568 +; "; pushsi %0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5569 +; [(set_attr "length" "12")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5570 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5571 +; (define_insn "popsi1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5572 +; [(set (match_operand:SI 0 "general_operand" "=o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5573 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5574 +; (set (reg:HI HARD_S_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5575 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5576 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5577 +; "; popsi %0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5578 +; [(set_attr "length" "12")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5579 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5580 +; (define_insn "movsi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5581 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5582 +; (match_operand:SI 1 "general_operand" " oi"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5583 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5584 +; "; movsi %0 <- %1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5585 +; [(set_attr "length" "1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5586 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5587 +; this doesn't work
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5588 +; (define_expand "movsi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5589 +; [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5590 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5591 +; (match_operand:SI 1 "general_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5592 +; (clobber (match_scratch:HI 2 ""))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5593 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5594 +; {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5595 +; rtx insn;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5596 +; if (STACK_PUSH_P (operands[0]) || STACK_POP_P (operands[1]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5597 +; {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5598 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5599 +; }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5600 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5601 +; DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5602 +; })
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5603 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5604 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5605 +(define_expand "movhi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5606 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5607 + (match_operand:HI 1 "general_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5608 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5609 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5610 + /* One of the ops has to be in a register prior to reload */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5611 + if (!register_operand (operand0, HImode) &&
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5612 + !register_operand (operand1, HImode))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5613 + operands[1] = copy_to_mode_reg (HImode, operand1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5614 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5615 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5616 +;;; Try a splitter to handle failure cases where we try to move
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5617 +;;; an immediate constant (zero usually) directly to memory.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5618 +;;; This absolutely requires an intermediate register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5619 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5620 + [(set (match_operand:HI 0 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5621 + (match_operand:HI 1 "immediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5622 + (clobber (match_operand:HI 2 "register_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5623 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5624 + [(set (match_dup 2) (match_dup 1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5625 + (set (match_dup 0) (match_dup 2))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5626 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5627 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5628 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5629 +;;; This would be a nice method for loading from a word array,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5630 +;;; but it is never generated because the combiner cannot merge
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5631 +;;; more than 3 instructions (there are four here). This is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5632 +;;; perhaps better done via a peephole.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5633 +(define_insn "*movhi_array_load"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5634 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5635 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5636 + (match_operand:HI 2 "immediate_operand" "i"))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5637 + (clobber (match_scratch:HI 3 "=X"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5638 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5639 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5640 + [(set_attr "length" "7")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5641 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5642 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5643 +;;; Optimize the move of a byte to the stack using the pshs instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5644 +;;; instead of a store with pre-increment.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5645 +(define_insn "movhi_push"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5646 + [(set (match_operand:HI 0 "push_operand" "=m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5647 + (match_operand:HI 1 "register_operand" "U"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5648 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5649 + "pshs\t%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5650 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5651 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5652 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5653 +(define_insn "*movhi_pic_symbolref"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5654 + [(set (match_operand:HI 0 "register_operand" "=a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5655 + (match_operand:HI 1 "symbolic_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5656 + "flag_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5657 + "lea%0\t%c1,pcr"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5658 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5659 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5660 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5661 +(define_insn "*movhi_1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5662 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5663 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5664 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5665 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5666 + lea%0\t,%1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5667 + tfr\t%1,%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5668 + tfr\t%1,%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5669 + ld%0\t%1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5670 + st%1\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5671 + [(set_attr "length" "2,2,2,*,*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5672 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5673 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5674 +;;; Generated by the combiner to merge an address calculation with
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5675 +;;; a byte load. We can use the 'abx' instruction here.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5676 +(define_insn "*movqi_array_load"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5677 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5678 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5679 + (match_operand:HI 2 "immediate_operand" "i"))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5680 + (clobber (match_scratch:HI 3 "=X"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5681 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5682 + "ldx\t%2\;abx\;ld%0\t,x"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5683 + [(set_attr "length" "6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5684 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5685 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5686 +;;; Optimize the move of a byte to the stack using the pshs instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5687 +;;; instead of a store with pre-increment.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5688 +(define_insn "movqi_push"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5689 + [(set (match_operand:QI 0 "push_operand" "=m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5690 + (match_operand:QI 1 "register_operand" " q"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5691 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5692 + "pshs\t%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5693 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5694 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5695 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5696 +;;; Optimize the move of a byte from the stack using the puls instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5697 +;;; instead of a store with post-decrement.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5698 +(define_insn "movqi_pop"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5699 + [(set (match_operand:QI 0 "register_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5700 + (match_operand:QI 1 "pop_operand" "m"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5701 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5702 + "puls\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5703 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5704 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5705 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5706 +;;- load low byte of 16-bit data into 8-bit register/memory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5707 +(define_insn "*mov_lsb"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5710 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5711 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5712 + \t;movlsbqihi: D->B
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5713 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5714 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5715 + stb\t%0\t;movlsbqihi: R:%1 -> %0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5716 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5717 + [(set_attr "length" "0,*,2,*,6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5718 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5719 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5720 +;;- load high byte of 16-bit data into 8-bit register/memory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5721 +(define_insn "*mov_msb"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5722 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5723 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5724 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5725 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5726 + tfr\ta,b\t;movmsbqihi: D->B
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5727 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5728 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5729 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5730 + sta\t%0\t;movmsbqihi: R:%1 -> %0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5731 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5732 + [(set_attr "length" "2,1,4,*,*,6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5733 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5734 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5735 +(define_insn "*movqi_boolean"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5736 + [(set (reg:QI HARD_Z_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5737 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5738 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5739 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5740 + tst%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5741 + andcc\t#~4
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5742 + orcc\t#4
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5743 + tst\t%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5744 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5745 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5746 +(define_insn "movqi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5747 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5748 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5749 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5750 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5751 + tfr\t%1,%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5752 + clr%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5753 + clr\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5754 + ld%0\t%1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5755 + st%1\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5756 + tfr\tcc,%0\;and%0\t#4
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5757 + tst%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5758 + [(set_attr "length" "2,1,3,*,*,4,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5759 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5760 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5761 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5762 +;;- Swap registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5763 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5764 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5765 +; Note: 8-bit swap is never needed so it is not defined.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5766 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5767 +(define_insn "swaphi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5768 + [(set (match_operand:HI 0 "register_operand" "+r")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5769 + (match_operand:HI 1 "register_operand" "+r"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5770 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5771 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5772 + "exg\t%1,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5773 + [(set_attr "length" "2")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5774 + (set (attr "cycles") (const_int EXG_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5775 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5776 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5777 +(define_insn "bswaphi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5778 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5779 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5780 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5781 + "exg\ta,b"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5782 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5783 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5784 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5785 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5786 +;;- Extension and truncation insns.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5787 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5788 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5789 +(define_insn "extendqihi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5790 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5791 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5792 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5793 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5794 + [(set_attr "length" "1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5795 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5796 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5797 +(define_insn "zero_extendqihi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5798 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5799 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5800 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5801 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5802 + [(set_attr "length" "1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5803 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5804 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5805 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5806 +;;- All kinds of add instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5807 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5808 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5809 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5810 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5811 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5812 +;; so it is MUCH less efficient. Define this one ourselves.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5813 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5814 +;; TODO - can't always get 'd' for the clobber... allow other registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5815 +;; as well and use exg d,R ... exg R,d around the code sequence to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5816 +;; use others, at a price. Also consider libcall for this when
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5817 +;; optimizing for size.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5818 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5819 +(define_insn "addsi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5820 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5821 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5822 + (match_operand:SI 2 "general_operand" " oi")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5823 + (clobber (match_scratch:HI 3 "=d"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5824 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5825 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5826 + m6809_output_addsi3 (PLUS, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5827 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5828 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5829 + [(set_attr "length" "21")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5830 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5831 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5832 +; Increment of a 16-bit MEM by 1 can be done without a register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5833 +(define_insn "*addhi_mem_1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5834 + [(set (match_operand:HI 0 "memory_operand" "=m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5835 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5836 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5837 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5838 + rtx xoperands[2];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5839 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5840 + xoperands[0] = operands[0];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5841 + xoperands[1] = adjust_address (operands[0], QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5842 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5843 + output_asm_insn ("inc\t%1", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5844 + output_asm_insn ("bne\t__IL%=", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5845 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5846 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5847 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5848 + [(set_attr "length" "7")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5849 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5850 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5851 +; Decrement of a 16-bit MEM by 1 can be done without a register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5852 +(define_insn "*addhi_mem_minus1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5853 + [(set (match_operand:HI 0 "memory_operand" "=m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5854 + (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int -1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5855 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5856 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5857 + rtx xoperands[2];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5858 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5859 + xoperands[0] = operands[0];
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5860 + xoperands[1] = adjust_address (operands[0], QImode, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5861 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5862 + output_asm_insn ("tst\t%1", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5863 + output_asm_insn ("bne\t__IL%=", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5864 + output_asm_insn ("dec\t%0", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5865 + output_asm_insn ("__IL%=:", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5866 + output_asm_insn ("dec\t%1", xoperands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5867 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5868 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5869 + [(set_attr "length" "7")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5870 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5871 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5872 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5873 +; using the LEAX B,Y addressing mode, where X and Y are both
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5874 +; index registers. This will only get generated via the peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5875 +; which removes a sign extension.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5876 +(define_insn "*addhi_b"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5877 + [(set (match_operand:HI 0 "index_register_operand" "=a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5878 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5879 + (match_operand:QI 2 "register_operand" "q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5880 + ))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5881 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5882 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5883 + [(set_attr "length" "*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5884 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5885 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5886 +; Splitter for addhi pattern #5 below
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5887 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5888 + [(set (match_operand:HI 0 "index_register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5889 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5890 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5891 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5892 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5893 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5894 + (set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5895 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5896 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5897 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5898 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5899 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5900 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5901 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5902 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5903 +; Splitter for addhi pattern #7 below
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5904 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5905 + [(set (match_operand:HI 0 "index_register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5906 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5907 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5908 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5909 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5910 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5911 + (set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5912 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5913 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5914 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5915 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5916 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5917 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5918 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5919 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5920 +; TODO - this is ugly. During RTL generation, we don't know what registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5921 +; are available, so the multiple-insn sequences can only be solved
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5922 +; via 'define_split's during matching. See andhi3 for an example.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5923 +; Keep the constraints with ? modifiers to help reload pick the right
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5924 +; registers.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5925 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5926 +; The forms are:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5927 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5928 +; to avoid this even happening...)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5929 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5930 +; now, is this a better way?)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5931 +; 3. Best choice: 'addd'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5932 +; 4. Next best choice: 'lea'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5933 +; 5. Hybrid of 3 and 4
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5934 +; 6. Same as 4, not bad
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5935 +; 7. BAD, no D register at all
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5936 +; 8. 'lea', as good as 4.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5937 +(define_insn "addhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5938 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5939 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5940 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5941 + ))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5942 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5943 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5944 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5945 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5946 + add%0\t%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5947 + lea%0\t%1,%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5948 + #
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5949 + lea%0\t%2,%1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5950 + #
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5951 + lea%0\t%a2,%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5952 + [(set_attr "length" "2,6,*,*,7,*,7,*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5953 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5954 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5955 +(define_insn "addqi3_carry"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5956 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5957 + (unspec:QI [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5958 + (match_operand:QI 1 "whole_general_operand" "%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5959 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5960 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5961 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5962 + [(set_attr "length" "*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5963 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5964 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5965 +; TODO: specifying 'A' for the first constraint, to force into the A register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5966 +; is not working because of the way registers are currently set up. This will
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5967 +; take some work to get right. Thus the second alternative as a backup.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5968 +(define_insn "addqi3_decimal"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5969 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5970 + (unspec:QI [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5971 + (match_operand:QI 1 "general_operand" "%0,0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5972 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5973 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5974 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5975 + adda\t%2\;daa
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5976 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5977 + [(set_attr "length" "5,9")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5978 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5979 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5980 +(define_insn "addqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5981 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5982 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5983 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5984 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5985 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5986 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5987 + inc%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5988 + dec%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5989 + inc\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5990 + dec\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5991 + add%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5992 + [(set_attr "length" "1,1,1,3,3,*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5993 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5994 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5995 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5996 +;;- Subtract instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5997 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5998 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
5999 +(define_insn "subsi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6000 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6001 + (minus:SI (match_operand:SI 1 "general_operand" " o")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6002 + (match_operand:SI 2 "general_operand" " oi")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6003 + (clobber (match_scratch:HI 3 "=d"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6004 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6005 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6006 + m6809_output_addsi3 (MINUS, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6007 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6008 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6009 + [(set_attr "length" "21")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6010 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6011 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6012 +(define_insn "subhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6013 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6014 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6015 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6016 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6017 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6018 + sub%0\t%2\t;subhi: R:%0 -= %2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6019 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6020 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6021 + [(set_attr "length" "*,5,3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6022 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6023 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6024 +(define_insn "subqi3_carry"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6025 + [(set (match_operand:QI 0 "register_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6026 + (unspec:QI [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6027 + (match_operand:QI 1 "whole_general_operand" "%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6028 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6029 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6030 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6031 + [(set_attr "length" "*")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6032 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6033 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6034 +(define_insn "subqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6035 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6036 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6037 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6038 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6039 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6040 + dec%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6041 + sub%0\t%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6042 + dec%0\;neg%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6043 + sub%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6044 + [(set_attr "length" "1,3,2,3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6045 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6046 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6047 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6048 +;;- Multiply instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6049 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6050 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6051 +; TODO - merge these two instructions, using 'extend_operator' to match
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6052 +; either signed or zero extension. Everything else is the same.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6053 +(define_insn "mulqihi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6054 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6055 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6056 + (match_operand:QI 2 "general_operand" "tmK")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6057 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6058 + "lda\t%2\t;mulqihi3\;mul"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6059 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6060 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6061 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6062 +(define_insn "umulqihi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6063 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6064 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6065 + (match_operand:QI 2 "general_operand" "tmK")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6066 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6067 + "lda\t%2\t;umulqihi3\;mul"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6068 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6069 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6070 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6071 +; Expand a 16x16 multiplication into either a libcall or a shift.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6072 +; If the second operand is a small constant, use the above form.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6073 +; Otherwise, do a libcall.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6074 +(define_expand "mulhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6075 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6076 + (mult:HI (match_operand:HI 1 "general_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6077 + (match_operand:HI 2 "nonmemory_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6078 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6079 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6080 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6081 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6082 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6083 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6084 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6085 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6086 +;;- Divide instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6087 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6088 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6089 +(define_expand "divhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6090 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6091 + (div:HI (match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6092 + (match_operand:HI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6093 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6094 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6095 + emit_libcall_insns (HImode, "divhi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6096 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6097 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6098 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6099 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6100 +(define_expand "divqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6101 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6102 + (div:QI (match_operand:QI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6103 + (match_operand:QI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6104 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6105 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6106 + emit_libcall_insns (QImode, "divqi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6107 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6108 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6109 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6110 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6111 +(define_expand "udivhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6112 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6113 + (udiv:HI (match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6114 + (match_operand:HI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6115 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6116 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6117 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6118 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6119 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6120 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6121 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6122 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6123 +;;- mod
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6124 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6125 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6126 +(define_expand "modhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6127 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6128 + (mod:HI (match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6129 + (match_operand:HI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6130 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6131 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6132 + emit_libcall_insns (HImode, "modhi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6133 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6134 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6135 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6136 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6137 +(define_expand "modqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6138 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6139 + (mod:QI (match_operand:QI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6140 + (match_operand:QI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6141 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6142 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6143 + emit_libcall_insns (QImode, "modqi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6144 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6145 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6146 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6147 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6148 +(define_expand "umodhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6149 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6150 + (umod:HI (match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6151 + (match_operand:HI 2 "register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6152 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6153 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6154 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6155 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6156 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6157 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6158 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6159 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6160 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6161 +;;- and, or, xor common patterns
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6162 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6163 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6164 +; Split a bitwise HImode into two QImode instructions, with one of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6165 +; the sources in a pushable register. The register is pushed onto
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6166 +; the stack and memory pop operands (,s+) are used in the QI forms.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6167 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6168 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6169 + (match_operator:HI 3 "logical_bit_operator"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6170 + [(match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6171 + (match_operand:HI 2 "register_operand" "")]))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6172 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6173 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6174 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6175 + [(reg:QI HARD_A_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6177 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6178 + [(reg:QI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6179 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6180 + (use (reg:QI HARD_A_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6181 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6182 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6183 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6184 +; Split a bitwise HImode into two QImode instructions, with one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6185 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6186 +; reference. This requires dereferencing the pointer into a
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6187 +; temporary register (X), which must be saved/restored around the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6188 +; compute instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6189 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6190 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6191 + (match_operator:HI 3 "logical_bit_operator"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6192 + [(match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6193 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6194 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6195 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6196 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6197 + (set (match_dup 4) (match_dup 2))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6198 + (set (match_dup 4) (mem:HI (match_dup 4)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6199 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6200 + [(reg:QI HARD_A_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6201 + (mem:QI (post_inc:QI (match_dup 4)))]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6202 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6203 + [(reg:QI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6204 + (mem:QI (post_inc:QI (match_dup 4)))]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6205 + (use (reg:QI HARD_A_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6206 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6207 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6208 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6209 + /* Use X for a temporary index register */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6210 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6211 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6212 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6213 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6214 +; Split a bitwise HImode into two QImode instructions. This is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6215 +; the common case. This handles splitting when neither of the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6216 +; above two cases applies.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6217 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6218 + [(set (match_operand:HI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6219 + (match_operator:HI 3 "logical_bit_operator"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6220 + [(match_operand:HI 1 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6221 + (match_operand:HI 2 "general_operand" "")]))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6222 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6223 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6224 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6225 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6226 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6227 + (use (reg:QI HARD_A_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6228 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6229 + if (GET_CODE (operands[2]) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6230 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6231 + operands[4] = gen_rtx_const_high (operands[2]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6232 + operands[5] = gen_rtx_const_low (operands[2]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6233 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6234 + else if ((GET_CODE (operands[2]) == MEM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6235 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6236 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6237 + FAIL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6238 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6239 + else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6240 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6241 + operands[4] = gen_highpart (QImode, operands[2]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6242 + operands[5] = gen_lowpart (QImode, operands[2]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6243 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6244 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6245 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6246 +; Below are the specific cases for each of the operators.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6247 +; The QImode versions are the simplest and can be implemented
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6248 +; directly on the hardware. The HImode cases are all output
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6249 +; using one of the above splitting techniques.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6250 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6251 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6252 +;;- and
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6253 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6254 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6255 +(define_insn "andhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6256 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6257 + (and:HI (match_operand:HI 1 "register_operand" "%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6258 + (match_operand:HI 2 "general_operand" "mnU")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6259 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6260 + "#")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6261 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6262 +;; it is not clear that this is correct
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6263 +(define_insn "*andqi_2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6264 + [(set
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6265 + (match_operand:QI 0 "register_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6266 + (and:QI (match_operand:QI 1 "register_operand" "q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6267 + (match_operand 2 "const_int_operand" "i")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6268 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6269 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6270 + if (GET_CODE (operands[2]) == CONST_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6271 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6272 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6273 + return "and%0 %3";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6274 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6275 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6276 + return "and%0 %2";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6277 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6278 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6279 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6280 +(define_insn "andqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6281 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6282 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6283 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6284 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6285 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6286 + clr%0\t;andqi(ZERO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6287 + \t;andqi(-1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6288 + and%0\t%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6289 + and%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6290 + [(set_attr "length" "1,0,3,2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6291 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6292 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6293 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6294 +;;- or
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6295 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6296 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6297 +(define_insn "iorhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6298 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6299 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6300 + (match_operand:HI 2 "general_operand" "mnU")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6301 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6302 + "#")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6303 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6304 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6305 +(define_insn "iorqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6306 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6307 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6308 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6309 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6310 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6311 + \t;iorqi(ZERO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6312 + or%0\t%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6313 + or%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6314 + [(set_attr "length" "0,3,2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6315 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6316 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6317 +;;- xor
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6318 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6319 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6320 +(define_insn "xorhi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6321 + [(set (match_operand:HI 0 "register_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6322 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6323 + (match_operand:HI 2 "general_operand" "mnU")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6324 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6325 + "#")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6326 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6327 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6328 +(define_insn "xorqi3"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6329 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6330 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6331 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6332 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6333 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6334 + \t;xorqi(ZERO)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6335 + com%0\t;xorqi(-1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6336 + eor%0\t%2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6337 + eor%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6338 + [(set_attr "length" "0,1,3,2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6339 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6340 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6341 +;;- Two's Complements
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6342 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6343 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6344 +(define_insn "neghi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6345 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6346 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6347 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6348 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6349 + nega\;negb\;sbca\t#0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6350 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6351 + [(set_attr "length" "5,9")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6352 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6353 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6354 +(define_insn "negqi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6355 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6356 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6357 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6358 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6359 + neg%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6360 + neg\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6361 + [(set_attr "length" "1,3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6362 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6363 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6364 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6365 +;;- One's Complements
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6366 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6367 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6368 +(define_insn "one_cmplhi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6369 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6370 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6371 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6372 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6373 + coma\;comb
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6374 + com\t%0\;com\t%L0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6375 + exg\td,%0\;coma\;comb\;exg\td,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6376 + [(set_attr "length" "2,6,6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6377 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6378 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6379 +(define_insn "one_cmplqi2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6380 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6381 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6382 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6383 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6384 + com%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6385 + com\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6386 + [(set_attr "length" "1,3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6387 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6388 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6389 +;;- Shifts/rotates
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6390 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6391 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6392 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6393 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6394 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6395 +(define_mode_iterator bit_mode [QI HI])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6396 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6397 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6398 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6399 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6400 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6401 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6402 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6403 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6404 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6405 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6406 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6407 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6408 +; Individual instructions implemented in the CPU.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6409 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6410 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6411 +(define_insn "*ashift1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6412 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6413 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6414 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6415 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6416 + asl\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6417 + asl%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6418 + [(set_attr "length" "3,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6419 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6420 +(define_insn "*lshiftrt1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6421 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6422 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6423 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6424 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6425 + lsr\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6426 + lsr%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6427 + [(set_attr "length" "3,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6428 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6429 +(define_insn "*ashiftrt1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6430 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6431 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6432 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6433 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6434 + asr\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6435 + asr%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6436 + [(set_attr "length" "3,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6437 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6438 +(define_insn "*rotate1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6439 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6440 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6441 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6442 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6443 + rol\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6444 + rol%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6445 + [(set_attr "length" "3,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6446 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6447 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6448 +(define_insn "*rotatert1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6449 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6450 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6451 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6452 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6453 + ror\t%0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6454 + ror%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6455 + [(set_attr "length" "3,1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6456 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6457 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6458 +; A shift by 8 for D reg can be optimized by just moving
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6459 +; between the A/B halves, and then zero/sign extending or
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6460 +; filling in zeroes.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6461 +; Because GCC does not understand that 'A' and 'D' refer to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6462 +; the same storage location, we must use 'USE' throughout
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6463 +; to prevent deletion of 'unnecessary' instructions.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6464 +; Similar optimization for MEM would require a scratch register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6465 +; so is not done here.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6466 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6467 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6468 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6469 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6470 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6471 + (use (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6472 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6473 + (use (reg:QI HARD_A_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6474 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6475 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6476 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6477 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6478 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6479 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6480 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6481 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6482 + (use (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6483 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6484 + (use (reg:QI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6485 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6486 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6487 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6488 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6489 +(define_split
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6490 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6491 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6492 + [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6493 + (use (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6494 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6495 + (use (reg:QI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6496 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6497 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6498 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6499 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6500 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6501 +; On the WPC hardware, there is a shift register that can be used
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6502 +; to compute (1<<n) efficiently in two instructions. Note that this
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6503 +; form only works when using -mint8 though, because C will promote
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6504 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6505 +(define_insn "ashlqi3_wpc"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6506 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6507 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6508 + (match_operand:QI 2 "general_operand" "q")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6509 + "TARGET_WPC"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6510 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6511 + [(set_attr "length" "6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6512 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6513 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6514 +; Internal instructions for shifting by a constant.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6515 +; Two forms are provided, one for QImode, one for HImode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6516 +; These are always split into the above instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6517 +; (except for QImode forms that directly match one of the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6518 +; above instructions, in which the condition will not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6519 +; allow the splitter to match).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6520 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6521 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6522 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6523 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6524 + (match_operand:HI 2 "immediate_operand" "n")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6525 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6526 + "#"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6527 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6528 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6529 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6530 + m6809_split_shift (<bit_code:CODE>, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6531 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6532 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6533 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6534 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6535 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6536 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6537 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6538 + (match_operand:QI 2 "immediate_operand" "n")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6539 + "INTVAL (operands[2]) > 1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6540 + "#"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6541 + "&& reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6542 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6543 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6544 + m6809_split_shift (<bit_code:CODE>, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6545 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6546 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6547 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6548 +; Internal instructions for shifting by a nonconstant.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6549 +; These expand into complex assembly.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6550 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6551 +(define_insn "<bit_code:bit_code_name>hi3_reg"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6552 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6553 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6554 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6555 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6556 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6557 + m6809_output_shift_insn (<bit_code:CODE>, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6558 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6559 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6560 + [(set_attr "length" "20")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6561 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6562 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6563 +(define_insn "<bit_code:bit_code_name>qi3_reg"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6564 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6565 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6566 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6567 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6568 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6569 + m6809_output_shift_insn (<bit_code:CODE>, operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6570 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6571 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6572 + [(set_attr "length" "16")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6573 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6574 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6575 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6576 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6577 +;;- Jumps and transfers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6578 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6579 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6580 +;;; The casesi pattern is normally *not* defined; see 'tablejump' instead.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6581 +(define_expand "casesi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6582 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6583 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6584 + (match_operand:HI 2 "immediate_operand" "") ; total range
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6585 + (match_operand 3 "" "") ; table label
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6586 + (match_operand 4 "" "")] ; out of range label
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6587 + "TARGET_BYTE_INT && TARGET_CASESI"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6588 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6589 + m6809_do_casesi (operands[0], operands[1], operands[2],
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6590 + operands[3], operands[4]);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6591 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6592 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6593 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6594 +(define_insn "tablejump_short_offset"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6595 + [(set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6596 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6597 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6598 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6599 + "jmp\t[b,x]\t;tablejump_short_offset"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6600 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6601 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6602 +(define_insn "tablejump_long_offset"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6603 + [(set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6604 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6605 + (match_operand:HI 0 "register_operand" "d"))))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6606 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6607 + "jmp\t[d,x]\t;tablejump_long_offset"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6608 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6609 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6610 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6611 + ;; A tablejump operation gives the address in operand 0, with the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6612 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6613 + ;; shows the arguments as GCC presents them. For a register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6614 + ;; operand, the assembly code is straightforward. For a MEM,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6615 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6616 + ;; and one for PIC mode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6617 + (define_expand "tablejump"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6618 + [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6619 + (set (pc) (match_operand:HI 0 "" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6620 + (use (label_ref (match_operand 1 "" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6621 + (clobber (match_scratch:HI 2 ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6622 + ])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6623 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6624 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6625 + })
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6626 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6627 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6628 +(define_insn "*tablejump_reg"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6629 + [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6630 + (set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6631 + (match_operand:HI 0 "register_operand" "a"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6632 + (use (label_ref (match_operand 1 "" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6633 + (clobber (match_scratch:HI 2 ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6634 + ])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6635 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6636 + "jmp\t,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6637 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6638 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6639 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6640 +(define_insn "*tablejump_symbol"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6641 + [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6642 + (set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6643 + (mem:HI
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6644 + (plus:HI (match_operand:HI 0 "register_operand" "a")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6645 + (label_ref (match_operand 1 "" "")))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6646 + (use (label_ref (match_dup 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6647 + (clobber (match_scratch:HI 2 ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6648 + ])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6649 + "!flag_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6650 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6651 + output_asm_insn ("jmp\t[%a1,%0]", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6652 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6653 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6654 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6655 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6656 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6657 +(define_insn "*tablejump_symbol_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6658 + [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6659 + (set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6660 + (mem:HI
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6661 + (plus:HI (match_operand:HI 0 "register_operand" "d")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6662 + (label_ref (match_operand 1 "" "")))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6663 + (use (label_ref (match_dup 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6664 + (clobber (match_scratch:HI 2 "=&a"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6665 + ])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6666 + "flag_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6667 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6668 + output_asm_insn ("lea%2\t%a1,pcr", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6669 + output_asm_insn ("ld%0\t%0,%2", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6670 + output_asm_insn ("jmp\t%0,%2", operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6671 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6672 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6673 + [(set_attr "length" "8")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6674 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6675 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6676 +(define_insn "indirect_jump"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6677 + [(set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6678 + (match_operand:HI 0 "register_operand" "a"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6679 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6680 + "jmp\t,%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6681 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6682 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6683 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6684 +(define_insn "jump"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6685 + [(set (pc) (label_ref (match_operand 0 "" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6686 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6687 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6688 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6689 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6690 + [(set (attr "type") (const_string "branch"))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6691 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6692 +; Output assembly for a condition branch instruction.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6693 +(define_insn "*cond_branch"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6694 + [(set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6695 + (if_then_else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6696 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6697 + (label_ref (match_operand 0 "" "")) (pc)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6698 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6699 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6700 + return output_branch_insn ( GET_CODE(operands[1]),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6701 + operands, get_attr_length (insn));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6702 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6703 + [(set (attr "type") (const_string "cbranch"))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6704 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6705 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6706 +; Similar to above, but for a condition branch instruction that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6707 +; had its operands reversed at some point.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6708 +(define_insn "*cond_branch_reverse"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6709 + [(set (pc)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6710 + (if_then_else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6711 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6712 + (pc) (label_ref (match_operand 0 "" ""))))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6713 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6714 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6715 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6716 + operands, get_attr_length (insn));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6717 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6718 + [(set (attr "type") (const_string "cbranch"))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6719 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6720 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6721 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6722 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6723 +;;- Calls
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6724 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6725 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6726 +;; Generate a call instruction for a function that does not
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6727 +;; return a value. The expander is used during RTL generation.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6728 +;; The instructions below are used during matching; only one
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6729 +;; of them will be used, depending on the type of function
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6730 +;; being called. The different conditions are:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6731 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6732 +;; 1) far_functionp - is this a far function? Those need
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6733 +;; to be output as indirect calls through a far-function
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6734 +;; handler.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6735 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6736 +;; 2) noreturn_functionp - if the function does not return,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6737 +;; we can use a 'jmp' instead of a 'jsr' to call it.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6738 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6739 +;; 3) is PIC mode enabled? If so, we'll always use
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6740 +;; relative calls (lbsr or lbra).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6741 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6742 +;; Note: not all combinations are fully supported, especially
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6743 +;; relating to PIC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6744 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6745 +;; The 'bsr' instruction is never generated.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6746 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6747 +(define_expand "call"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6748 + [(call (match_operand:HI 0 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6749 + (match_operand:HI 1 "general_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6750 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6751 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6752 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6753 +(define_insn "*call_nopic_far"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6754 + [(call (match_operand:HI 0 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6755 + (match_operand:HI 1 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6756 + "far_functionp (operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6757 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6758 + output_far_call_insn (operands, 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6759 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6760 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6761 + [(set_attr "length" "6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6762 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6763 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6764 +; PIC forms come first, and should only match
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6765 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6766 +(define_insn "*call_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6767 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6768 + (match_operand:HI 1 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6769 + "flag_pic && !noreturn_functionp (operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6770 + "lbsr\t%C0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6771 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6772 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6773 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6774 +(define_insn "*call_nopic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6775 + [(call (match_operand:HI 0 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6776 + (match_operand:HI 1 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6777 + "!noreturn_functionp (operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6778 + "jsr\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6779 + [(set_attr "length" "3")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6780 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6781 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6782 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6783 +(define_insn "*call_noreturn_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6784 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6785 + (match_operand:HI 1 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6786 + "flag_pic && noreturn_functionp (operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6787 + "lbra\t%C0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6788 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6789 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6790 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6791 +(define_insn "*call_noreturn_nopic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6792 + [(call (match_operand:HI 0 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6793 + (match_operand:HI 1 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6794 + "noreturn_functionp (operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6795 + "jmp\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6796 + [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6797 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6798 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6799 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6800 +;; Same as above, but for functions that do return a value.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6801 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6802 +(define_expand "call_value"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6803 + [(set (match_operand 0 "" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6804 + (call (match_operand:HI 1 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6805 + (match_operand:HI 2 "general_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6806 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6807 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6808 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6809 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6810 +(define_insn "*call_value_far"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6811 + [(set (match_operand 0 "" "=gz")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6812 + (call (match_operand:HI 1 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6813 + (match_operand:HI 2 "general_operand" "g")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6814 + "far_functionp (operands[1])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6815 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6816 + output_far_call_insn (operands, 1);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6817 + return "";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6818 +}
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6819 + [(set_attr "length" "6")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6820 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6821 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6822 +(define_insn "*call_value_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6823 + [(set (match_operand 0 "" "=gz")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6824 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6825 + (match_operand:HI 2 "general_operand" "g")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6826 + "flag_pic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6827 + "lbsr\t%C1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6828 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6829 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6830 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6831 +(define_insn "*call_value_nopic"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6832 + [(set (match_operand 0 "" "=gz")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6833 + (call (match_operand:HI 1 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6834 + (match_operand:HI 2 "general_operand" "g")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6835 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6836 + "jsr\t%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6837 + [(set_attr "length" "3")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6838 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6839 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6840 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6841 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6842 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6843 +;; How to generate an untyped call.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6844 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6845 +(define_expand "untyped_call"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6846 + [(parallel [(call (match_operand 0 "" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6847 + (const_int 0))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6848 + (match_operand 1 "" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6849 + (match_operand 2 "" "")])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6850 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6851 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6852 + int i;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6853 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6854 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6855 + for (i=0; i < XVECLEN (operands[2], 0); i++)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6856 + {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6857 + rtx set = XVECEXP (operands[2], 0, i);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6858 + emit_move_insn (SET_DEST (set), SET_SRC (set));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6859 + }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6860 + emit_insn (gen_blockage ());
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6861 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6862 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6863 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6864 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6865 +(define_expand "sibcall"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6866 + [(parallel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6867 + [(call (match_operand:HI 0 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6868 + (match_operand:HI 1 "immediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6869 + (use (reg:HI HARD_PC_REGNUM))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6870 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6871 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6872 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6873 +(define_insn "*sibcall_1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6874 + [(parallel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6875 + [(call (match_operand:HI 0 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6876 + (match_operand:HI 1 "immediate_operand" "i"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6877 + (use (reg:HI HARD_PC_REGNUM))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6878 + "SIBLING_CALL_P(insn)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6879 + "jmp\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6880 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6881 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6882 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6883 +(define_expand "sibcall_value"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6884 + [(parallel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6885 + [(set (match_operand 0 "" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6886 + (call (match_operand:HI 1 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6887 + (match_operand:HI 2 "immediate_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6888 + (use (reg:HI HARD_PC_REGNUM))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6889 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6890 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6891 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6892 +(define_insn "*sibcall_value_1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6893 + [(parallel
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6894 + [(set (match_operand 0 "" "=gz")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6895 + (call (match_operand:HI 1 "memory_operand" "m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6896 + (match_operand:HI 2 "immediate_operand" "i")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6897 + (use (reg:HI HARD_PC_REGNUM))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6898 + "SIBLING_CALL_P(insn)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6899 + "jmp\t%1"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6900 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6901 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6902 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6903 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6904 +;;- Function Entry and Exit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6905 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6906 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6907 +;; On entry to a function, the stack frame looks as follows:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6908 +;; - return address (pushed by the caller)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6909 +;; - saved registers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6910 +;; - local variable storage
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6911 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6912 +;; If the function does not modify the stack after that, then
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6913 +;; any of these can be accessed directly as an offset from
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6914 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6915 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6916 +;; and all references to the stack frame will use that as a base instead.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6917 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6918 +(define_expand "prologue"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6919 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6920 + "prologue_epilogue_required ()"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6921 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6922 + emit_prologue_insns ();
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6923 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6924 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6925 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6926 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6927 +;; The function epilogue does exactly the reverse of the prologue,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6928 +;; deallocating local variable space, restoring saved registers,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6929 +;; and returning.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6930 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6931 +;; For the 6809, the return may be 'rti' if the function was
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6932 +;; declared as an interrupt function, but is normally 'rts'.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6933 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6934 +;; Also, as an optimization, the register restore and the 'rts'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6935 +;; can be combined into a single instruction, by adding 'PC' to the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6936 +;; list of registers to be restored. This is only done if there are
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6937 +;; any saved registers, as 'rts' is more efficient by itself.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6938 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6939 +(define_expand "epilogue"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6940 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6941 + "prologue_epilogue_required ()"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6942 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6943 + emit_epilogue_insns (false);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6944 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6945 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6946 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6947 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6948 +(define_expand "sibcall_epilogue"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6949 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6950 + "prologue_epilogue_required ()"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6951 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6952 + emit_epilogue_insns (true);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6953 + DONE;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6954 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6955 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6956 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6957 +;; The RTS instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6958 +(define_insn "return_rts"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6959 + [(return)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6960 + (use (reg:HI HARD_PC_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6961 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6962 + && m6809_get_live_regs () == 0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6963 + "rts"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6964 + [(set_attr "length" "1")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6965 + (set (attr "cycles") (const_int RTS_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6966 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6967 +(define_insn "return_puls_pc"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6968 + [(return)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6969 + (use (reg:HI HARD_PC_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6970 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6971 + && m6809_get_live_regs () != 0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6972 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6973 + [(set_attr "length" "1")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6974 + (set (attr "cycles") (const_int RTS_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6975 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6976 +;; The RTI instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6977 +(define_insn "return_rti"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6978 + [(return)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6979 + (use (reg:HI HARD_PC_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6980 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6981 + "rti"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6982 + [(set_attr "length" "1")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6983 + (set (attr "cycles") (const_int RTI_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6984 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6985 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6986 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6987 +;;- Unspecified instructions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6988 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6989 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6990 +;; An instruction that has the effect of an unspec_volatile, but
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6991 +;; which doesn't require emitting any assembly code.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6992 +(define_insn "blockage"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6993 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6994 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6995 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6996 + [(set_attr "length" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6997 + (set (attr "cycles") (const_int 0))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6998 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
6999 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7000 +;; Say how to push multiple registers onto the stack, using
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7001 +;; the 6809 'pshs' instruction. The operand is a regset
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7002 +;; specifying which registers to push.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7003 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7004 +;; The operand mode is not given intentionally, so as to allow
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7005 +;; any possible integer mode for the regset.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7006 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7007 +;; See below for a peephole that can combine consecutive push
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7008 +;; instructions that qualify for merging.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7009 +(define_insn "register_push"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7010 + [(use (reg:HI HARD_S_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7011 + (unspec_volatile
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7012 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7013 + (clobber (reg:HI HARD_S_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7014 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7015 + "pshs\t%R0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7016 + [(set_attr "length" "2")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7017 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7018 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7019 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7020 +;; Say how to pop multiple registers from the stack, using
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7021 +;; the 6809 'puls' instruction. The operand is the register
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7022 +;; bitset value.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7023 +(define_insn "register_pop"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7024 + [(use (reg:HI HARD_S_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7025 + (unspec_volatile
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7026 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7027 + (clobber (reg:HI HARD_S_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7028 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7029 + "puls\t%R0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7030 + [(set_attr "length" "2")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7031 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7032 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7033 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7034 +(define_insn "m6809_swi"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7035 + [(unspec_volatile
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7036 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7037 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7038 + "@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7039 + swi
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7040 + swi%c0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7041 + [(set_attr "length" "1,2")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7042 + (set (attr "cycles") (const_int SWI_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7043 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7044 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7045 +;; Generate the CWAI instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7046 +(define_insn "m6809_cwai"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7047 + [(unspec_volatile
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7048 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7049 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7050 + "cwai\t%0"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7051 + [(set_attr "length" "2")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7052 + (set (attr "cycles") (const_int CWAI_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7053 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7054 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7055 +;; Generate the SYNC instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7056 +(define_insn "m6809_sync"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7057 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7058 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7059 + "sync"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7060 + [(set_attr "length" "1")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7061 + (set (attr "cycles") (const_int SYNC_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7062 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7063 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7064 +;; Generate the NOP instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7065 +(define_insn "nop"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7066 + [(const_int 0)]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7067 + ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7068 + "nop"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7069 + [(set_attr "length" "1")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7070 + (set (attr "cycles") (const_int NOP_CYCLES))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7071 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7072 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7073 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7074 +;;- Peepholes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7075 +;;--------------------------------------------------------------------
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7076 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7077 +;;; Each peephole has an ID that is used for debugging.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7078 +;;; Each peephole condition is bracketed by calls to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7079 +;;; m6809_match_peephole2() also for debugging.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7080 +(define_constants [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7081 + (PEEP_END 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7082 + (PEEP_COND 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7083 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7084 + (PEEP_STACK_STORE_INC 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7085 + (PEEP_STACK_CLEAR_INC 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7086 + (PEEP_LSRB_ADCB 2)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7087 + (PEEP_ABX 3)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7088 + (PEEP_ABX2 4)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7089 + (PEEP_INDEXED_INC 5)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7090 + (PEEP_MEM_DEC 6)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7091 + (PEEP_MEM_INC 7)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7092 + (PEEP_MEM_DEC_CMP 8)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7093 + (PEEP_PUSH2 9)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7094 + (PEEP_STORE_IMPLIES_CC 10)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7095 + (PEEP_DEC_IMPLIES_CC 11)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7096 + (PEEP_LEAB 12)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7097 + (PEEP_LDX_INDIRECT 13)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7098 + (PEEP_POP_JUNK 14)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7099 +])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7100 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7101 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7102 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7103 +;;; function prologue needs to allocate stack space and 'b' is placed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7104 +;;; into that local right away. Combine the stack allocation with the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7105 +;;; store using preincrement mode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7106 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7107 + [(set (reg:HI HARD_S_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7108 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7109 + (set (mem:QI (reg:HI HARD_S_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7110 + (match_operand:QI 0 "register_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7111 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7112 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7113 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7114 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7115 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7116 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7117 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7118 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7119 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7120 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7121 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7122 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7123 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7124 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7125 +;;; Merge two consecutive push instructions into a single register_push.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7126 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7127 + [(set (match_operand 0 "push_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7128 + (match_operand 1 "register_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7129 + (set (match_operand 2 "push_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7130 + (match_operand 3 "register_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7131 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7132 + && reload_completed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7133 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7134 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7135 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7136 + [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7137 + (use (reg:HI HARD_S_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7138 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7139 + (clobber (reg:HI HARD_S_REGNUM))])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7140 + (use (match_dup 1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7141 + (use (match_dup 3))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7142 +{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7143 + operands[4] = gen_rtx_CONST_INT (QImode,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7144 + (1 << REGNO (operands[1])) | (1 << REGNO (operands[3])));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7145 +})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7146 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7147 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7148 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7149 +;;; notation, so that it may be combined with an adjacent regset.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7150 +;;; TBD - this doesn't compile some code cleanly.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7151 +;(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7152 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7153 +; (reg:HI HARD_X_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7154 +; "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7155 +; [(parallel [
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7156 +; (use (reg:HI HARD_S_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7157 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7158 +; (clobber (reg:HI HARD_S_REGNUM))])]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7159 +;{
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7160 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7161 +;})
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7162 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7163 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7164 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7165 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7166 +;;; won't overflow when q=0xFF.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7167 +;;; TODO : this form isn't accounting for promotion when
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7168 +;;; using 16-bit ints.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7169 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7170 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7171 + [(set (reg:QI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7172 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7173 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7174 + "lsrb\;adcb\t#0; peephole"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7175 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7176 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7177 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7178 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7179 +;; Optimize the case of following a register store with a test
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7180 +;; of reg or mem just moved.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7181 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7182 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7183 + [(set (match_operand:HI 0 "memory_operand" "=m")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7184 + (match_operand:HI 1 "register_operand" "r"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7185 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7186 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7187 + && (operands[2] == operands[0] || operands[2] == operands[1])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7188 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7189 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7190 + [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7191 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7192 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7193 +;; Optimize a pair of SET instructions in which the second insn
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7194 +;; is the reverse of the first one. I.e.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7195 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7196 +;; A = B
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7197 +;; ----> A = B
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7198 +;; B = A
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7199 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7200 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7201 +;; But don't do this if either is a VOLATILE MEM.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7202 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7203 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7204 + (match_operand:HI 1 "nonimmediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7205 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7206 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7207 + [(set (match_dup 0) (match_dup 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7208 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7209 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7210 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7211 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7212 + (match_operand:QI 1 "nonimmediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7213 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7214 + "!MEM_P (operands[0]) || !MEM_P (operands[1]) || (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7215 + [(set (match_dup 0) (match_dup 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7216 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7217 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7218 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7219 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7220 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7221 +;; if B and X can be used. Two patterns are provided to catch both
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7222 +;; X=X+D and X=D+X.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7223 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7224 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7225 + [(set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7226 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7227 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7228 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7229 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7230 + "abx"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7231 + [(set_attr "length" "1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7232 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7233 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7234 + [(set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7235 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7236 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7237 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7238 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7239 + "abx"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7240 + [(set_attr "length" "1")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7241 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7242 +;;; Likewise, handle when B is scaled by 2 prior to the add.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7243 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7244 +;;; time, in only 3 cycles.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7245 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7246 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7247 + [(set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7248 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7249 + (set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7250 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7251 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7252 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7253 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7254 + "abx\;abx"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7255 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7256 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7257 +(define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7258 + [(set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7259 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7260 + (set (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7261 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7262 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7263 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7264 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7265 + "abx\;abx"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7266 + [(set_attr "length" "2")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7267 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7268 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7269 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7270 +;; Work around a compiler bug that generates bad code when copying
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7271 +;; between 32-bit memory addresses after a libcall. The problem seen is
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7272 +;; that the source is MEM (REG X), but X is used as the reload register.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7273 +;; The second half of the copy therefore fails.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7274 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7275 +;; The solution is to switch the reload register to D, since that is guaranteed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7276 +;; not to be in use right after a libcall.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7277 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7278 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7279 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7280 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7281 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7282 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7283 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7284 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7285 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7286 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7287 + (set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7288 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7289 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7290 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7291 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7292 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7293 +;; Turn "and then test" into a "bit test" operation.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7294 +;; Provide variants for immediate and memory sources
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7295 +;; This is the most used peephople.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7296 +; (define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7297 +; [(set (match_operand:QI 0 "register_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7298 +; (and:QI (match_operand:QI 1 "register_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7299 +; (match_operand:QI 2 "immediate_operand" "i")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7300 +; (set (cc0) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7301 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7302 +; "bit%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7303 +; [(set_attr "length" "3")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7304 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7305 +; (define_peephole
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7306 +; [(set (match_operand:QI 0 "register_operand" "=q")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7307 +; (and:QI (match_operand:QI 1 "register_operand" "0")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7308 +; (match_operand:QI 2 "memory_operand" "m")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7309 +; (set (cc0) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7310 +; ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7311 +; "bit%0\t%2"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7312 +; [(set_attr "length" "4")])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7313 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7314 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7315 +;; Turn a "decrement, then test" sequence into just a "decrement".
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7316 +;; The test can be omitted, since it is implicitly done.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7317 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7318 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7319 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7320 + (match_operand:QI 2 "immediate_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7321 + (set (cc0) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7322 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7323 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7324 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7325 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7326 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7327 +;; Merge an indexed register increment with a previous usage.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7328 +;; This is usually done automatically, but not always
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7329 +;; The 'use' should be optional; in all cases where this has been
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7330 +;; seen, it is required though.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7331 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7332 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7333 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7334 + (use (match_dup 0))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7335 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7336 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7337 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7338 + (use (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7339 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7340 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7341 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7342 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7343 +;;; the indirect mode.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7344 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7345 + [(set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7346 + (mem:HI (match_operand:HI 0 "general_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7347 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7348 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7349 + [(set (reg:HI HARD_X_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7350 + (mem:HI (mem:HI (match_dup 0))))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7351 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7352 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7353 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7354 +;;; Reorder a store followed by a unary operation on that memory
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7355 +;;; so that the unary is performed and then the store. Consider
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7356 +;;; a binary shift operation, which will be decomposed into
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7357 +;;; identical single shifts, also.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7358 +;;; TODO - recognize more than just 'ashift' here.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7359 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7360 + [(set (match_operand:QI 0 "memory_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7361 + (match_operand:QI 1 "register_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7362 + (set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7363 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7364 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7365 + [(set (match_dup 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7366 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7367 + (set (match_dup 0) (match_dup 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7368 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7369 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7370 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7371 +;;; is done first, then use the REG instead of the MEM.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7372 +;;;(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7373 +;;; [(set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7374 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7375 +;;; (set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7376 +;;; (match_operand:QI 1 "memory_operand" ""))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7377 +;;; "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7378 +;;; [(set (match_dup 0) (match_dup 1))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7379 +;;; (set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7380 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7381 +;;; "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7382 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7383 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7384 +;;; Replace sex; leaX d,Y with leaX b,Y.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7385 +;;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7386 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7387 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7388 + (set (match_operand:HI 0 "index_register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7389 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7390 + (reg:HI HARD_D_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7391 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7392 + [(set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7393 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7394 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7395 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7396 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7397 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7398 + (set (match_operand:HI 0 "index_register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7399 + (plus:HI (reg:HI HARD_D_REGNUM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7400 + (match_operand:HI 1 "index_register_operand" "")))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7401 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7402 + [(set (match_dup 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7403 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7404 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7405 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7406 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7407 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7408 +;;; register is not needed, then the load will get deleted
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7409 +;;; automatically, but it may be needed for comparisons.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7410 +;;; Same for incb/inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7411 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7412 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7413 + (match_operand:QI 1 "nonimmediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7414 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7415 + (set (match_dup 1) (match_dup 0))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7416 + (set (cc0) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7417 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7418 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7419 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7420 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7421 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7422 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7423 +;;; register is not needed, then the load will get deleted
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7424 +;;; automatically, but it may be needed for comparisons.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7425 +;;; Same for incb/inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7426 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7427 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7428 + (match_operand:QI 1 "nonimmediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7429 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7430 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7431 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7432 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7433 + (set (match_dup 0) (match_dup 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7434 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7435 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7436 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7437 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7438 + (match_operand:QI 1 "nonimmediate_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7439 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7440 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7441 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7442 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7443 + (set (match_dup 0) (match_dup 1))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7444 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7445 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7446 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7447 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7448 +;;; that the branch can never occur because of the limited range of B.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7449 +;;; N must be a power of two for this to make sense. This helps with
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7450 +;;; the default cases of switch statements on a value (x & N).
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7451 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7452 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7453 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7454 + (set (cc0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7455 + (compare (match_dup 0) (match_dup 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7456 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7457 + ]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7458 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7459 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7460 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7461 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7462 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7463 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7464 +;;; <mem> must be offsettable for the instruction to match.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7465 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7466 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7467 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7468 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7469 + "reload_completed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7470 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7471 + && peep2_reg_dead_p (3, operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7472 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7473 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7474 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7475 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7476 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7477 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7478 + (set (match_dup 1) (match_dup 0))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7479 + "reload_completed
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7480 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7481 + && peep2_reg_dead_p (3, operands[0])"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7482 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7483 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7484 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7485 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7486 +;;; Replace a load or store using an indexed register, followed by an increment of that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7487 +;;; register, with the combined form using autoincrement.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7488 +(define_peephole2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7489 + [(set (match_operand:QI 0 "register_operand" "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7490 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7491 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7492 + "reload_completed"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7493 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7494 + "")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7495 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7496 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7497 +;;- mode:emacs-lisp
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7498 +;;- comment-start: ";;- "
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7499 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7500 +;;- eval: (modify-syntax-entry ?[ "(]")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7501 +;;- eval: (modify-syntax-entry ?] ")[")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7502 +;;- eval: (modify-syntax-entry ?{ "(}")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7503 +;;- eval: (modify-syntax-entry ?} "){")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7504 +;-; vim: set ts=2:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7505 +;-; vim: set expandtab:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7506 +;-; vim: set filetype=lisp:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7507 +;;- End:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7508 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7509 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7510 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7511 @@ -0,0 +1,98 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7512 +; Options for the M6809 port of the compiler
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7513 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7514 +; Copyright (C) 2005 Free Software Foundation, Inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7515 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7516 +; This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7517 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7518 +; GCC is free software; you can redistribute it and/or modify it under
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7519 +; the terms of the GNU General Public License as published by the Free
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7520 +; Software Foundation; either version 2, or (at your option) any later
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7521 +; version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7522 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7523 +; GCC is distributed in the hope that it will be useful, but WITHOUT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7524 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7525 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7526 +; License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7527 +;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7528 +; You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7529 +; along with GCC; see the file COPYING. If not, write to the Free
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7530 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7531 +; 02110-1301, USA.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7532 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7533 +margcount
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7534 +Target Mask(ARGCOUNT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7535 +Push argument count
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7536 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7537 +mint8
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7538 +Target RejectNegative Mask(BYTE_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7539 +Use 8-bit integers
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7540 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7541 +mint16
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7542 +Target RejectNegative
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7543 +Use 16-bit integers InverseMask(BYTE_INT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7544 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7545 +mreg-args
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7546 +Target Mask(REG_ARGS)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7547 +Use registers for function arguments
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7548 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7549 +mshort_size
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7550 +Target RejectNegative Mask(SMALL_SIZE_T)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7551 +Use 8-bit size_t
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7552 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7553 +mlong_size
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7554 +Target RejectNegative InverseMask(SMALL_SIZE_T)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7555 +Use 16-bit size_t
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7556 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7557 +mdirect
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7558 +Target Mask(DIRECT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7559 +Enable direct addressing
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7560 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7561 +mwpc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7562 +Target RejectNegative Mask(WPC)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7563 +Enable WPC platform extensions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7564 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7565 +mexperiment
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7566 +Target RejectNegative Mask(EXPERIMENT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7567 +Enable current experimental feature
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7568 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7569 +m6309
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7570 +Target RejectNegative Mask(6309)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7571 +Enable Hitachi 6309 extensions
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7572 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7573 +mcasesi
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7574 +Target RejectNegative Mask(CASESI)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7575 +Enable the casesi pattern
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7576 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7577 +mfar-code-page=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7578 +Target RejectNegative Joined Var(far_code_page_option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7579 +Sets the far code page value for this compilation unit
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7580 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7581 +mcode-section=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7582 +Target RejectNegative Joined Var(code_section_ptr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7583 +Sets the name of the section for code
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7584 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7585 +mdata-section=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7586 +Target RejectNegative Joined Var(data_section_ptr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7587 +Sets the name of the section for initialized data
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7588 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7589 +mbss-section=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7590 +Target RejectNegative Joined Var(bss_section_ptr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7591 +Sets the name of the section for uninitialized data
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7592 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7593 +mabi_version=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7594 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7595 +Sets the calling convention
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7596 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7597 +msoft-reg-count=
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7598 +Target RejectNegative Joined Var(m6809_soft_reg_count)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7599 +Sets the number of soft registers that can be used
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7600 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7601 +mdret
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7602 +Target RejectNegative Mask(DRET)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7603 +Put function call results in D, not X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7604 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7605 +mfar-stack-param
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7606 +Target Mask(FAR_STACK_PARAM)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7607 +Enable stack parameters to a farcall
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7608 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7609 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7610 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7611 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7612 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7613 @@ -0,0 +1,94 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7614 +/* GCC for 6809 : machine-specific function prototypes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7615 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7616 +This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7617 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7618 +GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7619 +it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7620 +the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7621 +any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7622 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7623 +GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7624 +but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7625 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7626 +GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7627 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7628 +You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7629 +along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7630 +<http://www.gnu.org/licenses/>. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7631 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7632 +#ifndef __M6809_PROTOS_H__
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7633 +#define __M6809_PROTOS_H__
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7634 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7635 +void print_options (FILE *file);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7636 +void m6809_cpu_cpp_builtins (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7637 +void m6809_override_options (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7638 +void m6809_init_builtins (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7639 +unsigned int m6809_get_live_regs (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7640 +const char * m6809_get_regs_printable (unsigned int regs);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7641 +unsigned int m6809_get_regs_size (unsigned int regs);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7642 +int m6809_function_has_type_attr_p (tree decl, const char *);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7643 +int m6809_current_function_has_type_attr_p (const char *);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7644 +int prologue_epilogue_required (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7645 +int noreturn_functionp (rtx x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7646 +void output_function_prologue (FILE *file, int size);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7647 +void output_function_epilogue (FILE *file, int size);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7648 +int check_float_value (enum machine_mode mode, double *d, int overflow);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7649 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7650 +void m6809_asm_file_start (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7651 +void m6809_output_ascii (FILE *fp, const char *str, unsigned long size);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7652 +void m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7653 +void m6809_reorg (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7654 +int m6809_current_function_is_void (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7655 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7656 +int m6809_function_value_regno_p (unsigned int regno);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7657 +void emit_prologue_insns (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7658 +void emit_epilogue_insns (bool);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7659 +void m6809_conditional_register_usage (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7660 +void m6809_output_quoted_string (FILE *asm_file, const char *string);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7661 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7662 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7663 +int power_of_two_p (unsigned int n);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7664 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7665 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7666 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7667 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7668 +int m6809_single_operand_operator (rtx exp);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7669 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7670 +#ifdef TREE_CODE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7671 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7672 +#endif /* TREE_CODE */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7673 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7674 +#ifdef RTX_CODE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7675 +void print_direct_prefix (FILE *file, rtx addr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7676 +void print_operand (FILE *file, rtx x, int code);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7677 +void print_operand_address (FILE *file, rtx addr);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7678 +void notice_update_cc (rtx exp, rtx insn);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7679 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7680 +rtx gen_rtx_const_high (rtx r);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7681 +rtx gen_rtx_const_low (rtx r);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7682 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7683 +void emit_libcall_insns (enum machine_mode mode, const char *name, rtx *operands, int count);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7684 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7685 +void output_far_call_insn (rtx *operands, int has_return);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7686 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7687 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7688 +const char * far_functionp (rtx x);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7689 +rtx m6809_function_value (const tree valtype, const tree func);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7690 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7691 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7692 +const char * m6809_get_decl_bank (tree decl);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7693 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7694 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7695 +const char * far_function_type_p (tree type);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7696 +void m6809_asm_trampoline_template(FILE *f);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7697 +bool m6809_frame_pointer_required (void);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7698 +int m6809_can_eliminate (int from, int to);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7699 +int m6809_initial_elimination_offset (int from, int to);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7700 +void m6809_emit_move_insn (rtx dst, rtx src);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7701 +void m6809_split_shift (enum rtx_code code, rtx *operands);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7702 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7703 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7704 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7705 +#endif /* RTX_CODE */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7706 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7707 +#endif /* __M6809_PROTOS_H__ */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7708 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7709 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7710 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7711 @@ -0,0 +1,78 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7712 +;; Predicate definitions for Motorola 6809
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7713 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7714 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7715 +;; This file is part of GCC.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7716 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7717 +;; GCC is free software; you can redistribute it and/or modify
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7718 +;; it under the terms of the GNU General Public License as published by
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7719 +;; the Free Software Foundation; either version 3, or (at your option)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7720 +;; any later version.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7721 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7722 +;; GCC is distributed in the hope that it will be useful,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7723 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7724 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7725 +;; GNU General Public License for more details.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7726 +;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7727 +;; You should have received a copy of the GNU General Public License
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7728 +;; along with GCC; see the file COPYING3. If not see
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7729 +;; <http://www.gnu.org/licenses/>.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7730 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7731 +;; whole_register_operand is like register_operand, but it
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7732 +;; does not allow SUBREGs.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7733 +(define_predicate "whole_register_operand"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7734 + (and (match_code "reg")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7735 + (match_operand 0 "register_operand")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7736 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7737 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7738 +;; A predicate that matches any index register. This can be used in nameless
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7739 +;; patterns and peepholes which need a 16-bit reg, but not D.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7740 +(define_predicate "index_register_operand"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7741 + (and (match_code "reg")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7742 + (match_test "REGNO (op) == HARD_X_REGNUM || REGNO (op) == HARD_Y_REGNUM || REGNO (op) == HARD_U_REGNUM")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7743 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7744 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7745 +;; match only X
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7746 +(define_predicate "register_operand_x"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7747 + (and (match_code "reg")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7748 + (match_test "REGNO (op) == HARD_X_REGNUM")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7749 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7750 +;; match only D
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7751 +(define_predicate "register_operand_d"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7752 + (and (match_code "reg")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7753 + (match_test "REGNO (op) == HARD_D_REGNUM")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7754 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7755 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7756 +;; Likwise, a replacement for general_operand which excludes
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7757 +;; SUBREGs.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7758 +(define_predicate "whole_general_operand"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7759 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7760 + (match_operand 0 "general_operand")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7761 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7762 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7763 +(define_predicate "add_general_operand"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7764 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7765 + (match_operand 0 "general_operand")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7766 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7767 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7768 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7769 +(define_predicate "shift_count_operand"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7770 + (and (match_code "const_int")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7771 + (and (match_operand 0 "const_int_operand")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7772 + (match_test "INTVAL (op) == 1 || INTVAL (op) == 8"))))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7773 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7774 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7775 +;; A predicate that matches any bitwise logical operator. This
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7776 +;; allows for a single RTL pattern to be used for multiple operations.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7777 +(define_predicate "logical_bit_operator"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7778 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7779 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7780 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7781 +;; A predicate that matches any shift or rotate operator. This
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7782 +;; allows for a single RTL pattern to be used for multiple operations.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7783 +(define_predicate "shift_rotate_operator"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7784 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7785 + (match_code "rotate") (match_code "rotatert")))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7786 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7787 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7788 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7789 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7791 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7792 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7793 @@ -0,0 +1,6 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7794 +# For a few minor differences in code generation on the CoCo...
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7795 +T_CFLAGS = -DTARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7796 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7797 +# For doing the startup differently on the CoCo...
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7798 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7799 +# vim: set filetype=make:
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7800 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7801 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7802 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7803 @@ -0,0 +1,64 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7804 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7805 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7806 +RANLIB_FOR_TARGET = true
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7807 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7808 +# Stubs for libgcc defined by m6809 are here
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7809 +LIB1ASMSRC = m6809/libgcc1.s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7810 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7811 +# Here are the functions that are implemented within libgcc1.s
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7812 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7813 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7814 + _ashlhi3 _ashrhi3 _lshrhi3
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7815 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7816 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7817 +# although the compile breaks without it. -DDF=SF is required to set
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7818 +# the size of "double" to the same as the size of a "float".
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7819 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7820 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7821 +LIB2ADDEH =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7822 +LIB2ADDEHSTATIC =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7823 +LIB2ADDEHSHARED =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7824 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7825 +LIBGCC2_DEBUG_CFLAGS =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7826 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7827 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7828 +# Multilib information
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7829 +# This creates multiple versions of libgcc.a for each set of incompatible
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7830 +# -mxxx options.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7831 +MULTILIB_OPTIONS = fpic mdret
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7832 +MULTILIB_DIRNAMES =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7833 +MULTILIB_MATCHES =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7834 +MULTILIB_EXCEPTIONS =
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7835 +EXTRA_MULTILIB_PARTS = crt0.o
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7836 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7837 +LIBGCC = stmp-multilib
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7838 +INSTALL_LIBGCC = install-multilib
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7839 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7840 +# We want fine grained libraries, so use the new code to build the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7841 +# floating point emulation libraries.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7842 +FPBIT = fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7843 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7844 +fp-bit.c: $(srcdir)/config/fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7845 + echo '#define FLOAT' > fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7846 + echo '#define FLOAT_ONLY' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7847 + echo '#define CMPtype HItype' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7848 + echo '#define SMALL_MACHINE' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7849 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7850 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7851 + echo '#endif' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7852 + echo '#define DI SI' >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7853 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7854 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7855 +# crt0.o is built from the following source file
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7856 +CRT0_S = $(srcdir)/config/m6809/crt0.S
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7857 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7858 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7859 +# Flags to use when building crt0.o
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7860 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7861 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7862 +# Assemble startup files.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7863 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7864 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7865 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7866 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7867 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7868 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7869 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7870 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7871 @@ -0,0 +1 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7872 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7873 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7874 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7875 +++ gcc-4.6.4/gcc/config.gcc 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7876 @@ -375,6 +375,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7877 cpu_type=m32r
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7878 extra_options="${extra_options} g.opt"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7879 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7880 +m6809-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7881 + cpu_type=m6809
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7882 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7883 m68k-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7884 extra_headers=math-68881.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7885 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7886 @@ -1706,6 +1709,12 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7887 thread_file='posix'
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7888 fi
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7889 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7890 +m6809-coco-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7891 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7892 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7893 +m6809-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7894 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7895 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7896 # m68hc11 and m68hc12 share the same machine description.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7897 m68hc11-*-*|m6811-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7898 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7899 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7900 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7901 +++ gcc-4.6.4/gcc/gcse.c 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7902 @@ -833,7 +833,6 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7903 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7904 if (max_distance == 0)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7905 return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7906 -
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7907 gcc_assert (max_distance > 0);
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7908 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7909 else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7910 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7911 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7912 +++ gcc-4.6.4/gcc/libgcc2.c 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7913 @@ -485,6 +485,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7914 #endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7915
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7916 #ifdef L_bswapsi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7917 +#if MIN_UNITS_PER_WORD > 1
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7918 SItype
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7919 __bswapsi2 (SItype u)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7920 {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7921 @@ -494,7 +495,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7922 | (((u) & 0x000000ff) << 24));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7923 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7924 #endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7925 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7926 #ifdef L_bswapdi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7927 +#if LONG_LONG_TYPE_SIZE > 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7928 DItype
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7929 __bswapdi2 (DItype u)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7930 {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7931 @@ -508,6 +511,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7932 | (((u) & 0x00000000000000ffull) << 56));
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7933 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7934 #endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7935 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7936 #ifdef L_ffssi2
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7937 #undef int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7938 int
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7939 @@ -1280,7 +1284,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7940 UDWtype
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7941 __fixunssfDI (SFtype a)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7942 {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7943 -#if LIBGCC2_HAS_DF_MODE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7944 +#if LIBGCC2_HAS_DF_MODE || (FLT_MANT_DIG >= W_TYPE_SIZE)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7945 /* Convert the SFtype to a DFtype, because that is surely not going
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7946 to lose any bits. Some day someone else can write a faster version
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7947 that avoids converting to DFtype, and verify it really works right. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7948 @@ -1298,7 +1302,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7949
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7950 /* Assemble result from the two parts. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7951 return ((UDWtype) hi << W_TYPE_SIZE) | lo;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7952 -#elif FLT_MANT_DIG < W_TYPE_SIZE
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7953 +#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7954 if (a < 1)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7955 return 0;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7956 if (a < Wtype_MAXp1_F)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7957 @@ -1334,8 +1338,6 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7958 return (DWtype)counter << shift;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7959 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7960 return -1;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7961 -#else
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7962 -# error
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7963 #endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7964 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7965 #endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7966 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7967 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7968 +++ gcc-4.6.4/gcc/longlong.h 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7969 @@ -528,6 +528,11 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7970 : "cbit")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7971 #endif /* __M32R__ */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7972
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7973 +#if defined (__m6309__) || defined (__m6809__)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7974 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7975 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7976 +#endif
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7977 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7978 #if defined (__mc68000__) && W_TYPE_SIZE == 32
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7979 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7980 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7981 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7982 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7983 +++ gcc-4.6.4/gcc/Makefile.in 2015-07-20 19:44:52.770843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7984 @@ -2003,14 +2003,14 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7985
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7986 # Compile the start modules crt0.o and mcrt0.o that are linked with
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7987 # every program
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7988 -$(T)crt0.o: s-crt0 ; @true
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7989 -$(T)mcrt0.o: s-crt0; @true
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7990 +crt0.o: s-crt0 ; @true
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7991 +mcrt0.o: s-crt0; @true
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7992
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7993 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7994 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7995 - -o $(T)crt0.o -c $(CRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7996 + -o crt0.o -c $(CRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7997 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7998 - -o $(T)mcrt0.o -c $(MCRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
7999 + -o mcrt0.o -c $(MCRT0_S)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8000 $(STAMP) s-crt0
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8001 #
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8002 # Compiling object files from source files.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8003 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8004 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8005 +++ gcc-4.6.4/gcc/opth-gen.awk 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8006 @@ -121,7 +121,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8007 END {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8008 print "/* This file is auto-generated by opth-gen.awk. */"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8009 print ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8010 -print "#ifndef OPTIONS_H"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8011 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8012 print "#define OPTIONS_H"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8013 print ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8014 print "#include \"flag-types.h\""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8015 @@ -432,18 +432,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8016
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8017 for (i = 0; i < n_opts; i++) {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8018 opt = opt_args("InverseMask", flags[i])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8019 - if (opt ~ ",") {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8020 - vname = var_name(flags[i])
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8021 - macro = "OPTION_"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8022 - mask = "OPTION_MASK_"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8023 - if (vname == "") {
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8024 - vname = "target_flags"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8025 - macro = "TARGET_"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8026 - mask = "MASK_"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8027 - }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8028 - print "#define " macro nth_arg(1, opt) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8029 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8030 - }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8031 + if (opt ~ ",")
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8032 + print "#define TARGET_" nth_arg(1, opt) \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8033 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8034 }
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8035 print ""
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8036
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8037 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8038 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8039 +++ gcc-4.6.4/gcc/tree.h 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8040 @@ -3563,6 +3563,8 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8041 TI_UINTDI_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8042 TI_UINTTI_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8043
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8044 + TI_UINT8_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8045 + TI_UINT16_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8046 TI_UINT32_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8047 TI_UINT64_TYPE,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8048
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8049 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8050 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8051 +++ gcc-4.6.4/gcc/version.c 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8052 @@ -21,16 +21,16 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8053
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8054 /* This is the location of the online document giving instructions for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8055 reporting bugs. If you distribute a modified version of GCC,
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8056 - please configure with --with-bugurl pointing to a document giving
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8057 - instructions for reporting bugs to you, not us. (You are of course
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8058 - welcome to forward us bugs reported to you, if you determine that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8059 - they are not bugs in your modifications.) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8060 + please change this to refer to a document giving instructions for
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8061 + reporting bugs to you, not us. (You are of course welcome to
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8062 + forward us bugs reported to you, if you determine that they are
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8063 + not bugs in your modifications.) */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8064
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8065 -const char bug_report_url[] = BUGURL;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8066 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8067
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8068 /* The complete version string, assembled from several pieces.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8069 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8070 Makefile. */
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8071
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8072 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8073 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw)";
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8074 const char pkgversion_string[] = PKGVERSION;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8075 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8076 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8077 +++ gcc-4.6.4/libgcc/config.host 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8078 @@ -371,6 +371,8 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8079 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8080 m32rle-*-linux*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8081 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8082 +m6809*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8083 + ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8084 m68hc11-*-*|m6811-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8085 ;;
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8086 m68hc12-*-*|m6812-*-*)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8087 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8088 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8089 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8090 @@ -23,7 +23,7 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8091 #$(info $o$(objext): -DL$($o-label) $($o-opt))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8092
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8093 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8094 - $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8095 + $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8096
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8097 ifeq ($(enable_shared),yes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8098 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8099 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8100 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8101 +++ gcc-4.6.4/libgcc/Makefile.in 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8102 @@ -374,8 +374,8 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8103 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8104 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8105 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8106 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8107 - $(vis_hide)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8108 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8109 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8110 libgcc-objects += $(lib2funcs-o)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8111
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8112 ifeq ($(enable_shared),yes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8113 @@ -410,8 +410,9 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8114 # Build LIB2_DIVMOD_FUNCS.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8115 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8116 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8117 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8118 - -fexceptions -fnon-call-exceptions $(vis_hide)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8119 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8120 + $(gcc_compile) -DL$* -c $*.c \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8121 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8122 libgcc-objects += $(lib2-divmod-o)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8123
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8124 ifeq ($(enable_shared),yes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8125 @@ -443,7 +444,8 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8126 ifneq ($(FPBIT),)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8127 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8128 $(fpbit-o): %$(objext): $(FPBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8129 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8130 + ln -sf $(FPBIT) $*.c && \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8131 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8132 libgcc-objects += $(fpbit-o)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8133
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8134 ifeq ($(enable_shared),yes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8135 @@ -458,7 +460,8 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8136 ifneq ($(DPBIT),)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8137 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8138 $(dpbit-o): %$(objext): $(DPBIT)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8140 + ln -sf $(DPBIT) $*.c && \
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8142 libgcc-objects += $(dpbit-o)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8143
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8144 ifeq ($(enable_shared),yes)
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8145 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8146 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8147 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8148 @@ -0,0 +1,14 @@
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8149 +This is a port of gcc6809 which is designed to work with the lwtools
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8150 +cross-assembler and linker package. You will need several scripts from that
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8151 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8152 +this. Instructions for building are present in the lwtools package.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8153 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8154 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8155 +Dominy (brian@oddchange.com) with some significant renovations to make it
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8156 +work with gcc 4.6.1.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8157 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8158 +There is no guarantee that it will work for any particular purpose you
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8159 +choose to put it to.
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8160 +
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8161 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
b4d0eafc5bfe Fix code generation error in gcc6809
William Astle <lost@l-w.ca>
parents:
diff changeset
8162 +contact the main GCC developers!