annotate extra/gcc6809lw-4.6.4-6.patch @ 418:3832a68d83ef

Fix internal compiler error on "var2 = var1 + 1" patterns This appears to be the correct fix. It was provided by Tormod Volden (debian.tormod@gmail.com). The final commit is substantially different from Tormod's submission mostly due to housecleaning (removing the old patches and updating the README). Tormod's comments follow. The original addhi_mem_1 "insn" instruction pattern /matches/ two memory operands, just with the /constraint/ that these are the same location. A pattern match tells the compiler "you should be able to use this, but you might have to work on it to meet the constraints". For typical constraints on registers the compiler can add "reloads", moving stuff between registers or from memory, until the constraints are met and the instruction can be used. However, in this case, no amount of reloads can make two memory locations the same if they already weren't, so the compiler breaks down and cries "unable to generate reloads". It seems this issue only appears if optimization is enabled. The proof is in gcc's reload.c and is left as an exercise to the reader. Limiting the matching pattern to identical memory operands avoids these situations, while allowing the common "var++" cases. References: The pattern/constraints difference is explained in https://gcc.gnu.org/onlinedocs/gccint/Simple-Constraints.html#index-other-register-constraints-3335
author William Astle <lost@l-w.ca>
date Tue, 29 Mar 2016 21:21:49 -0600
parents
children f18cc0c87a7e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
418
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4 @@ -313,7 +313,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5 c6x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6 basic_machine=tic6x-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8 - m6811 | m68hc11 | m6812 | m68hc12 | picochip)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
9 + m6809 | m6811 | m68hc11 | m6812 | m68hc12 | picochip)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
10 # Motorola 68HC11/12.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
11 basic_machine=$basic_machine-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
12 os=-none
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
13 @@ -354,7 +354,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
14 | i*86-* | i860-* | i960-* | ia64-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
15 | ip2k-* | iq2000-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
16 | lm32-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
17 - | m32c-* | m32r-* | m32rle-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
18 + | m32c-* | m32r-* | m32rle-* | m6809-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
19 | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
20 | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
21 | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
22 @@ -509,6 +509,10 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
23 basic_machine=arm-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
24 os=-cegcc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
25 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
26 + coco)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
27 + basic_machine=coco
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
28 + os=-none
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
29 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
30 convex-c1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
31 basic_machine=c1-convex
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
32 os=-bsd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
36 @@ -3439,6 +3439,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
37 m32r-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
38 noconfigdirs="$noconfigdirs ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
39 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
40 + m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
42 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
43 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
45 libgloss_dir=m68hc11
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
49 @@ -885,6 +885,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
50 m32r-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
51 noconfigdirs="$noconfigdirs ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
52 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
53 + m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
55 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
56 m68hc11-*-*|m6811-*-*|m68hc12-*-*|m6812-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
58 libgloss_dir=m68hc11
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
62 @@ -2561,7 +2561,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
63 call sequence.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
64 Also do the adjustments before a throwing call, otherwise
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
65 exception handling can fail; PR 19225. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
66 - if (pending_stack_adjust >= 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
67 + if (pending_stack_adjust >= 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
68 || (pending_stack_adjust > 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
69 && (flags & ECF_MAY_BE_ALLOCA))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
70 || (pending_stack_adjust > 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
74 @@ -0,0 +1,173 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
75 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
77 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
78 +;;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
79 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
80 +;;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
81 +;;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
82 +;;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
83 +;;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
84 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
85 +;;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
88 +;;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
89 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
90 +;;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
91 +;;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
92 +;;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
93 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
94 + /* Declare external for main() */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
95 + .globl _main
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
96 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
97 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
98 +/* The startup is heavily dependent on the type of machine and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
99 +OS environment that is available at the start point.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
100 +For the most part, the general idea is the same across machines,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
101 +but the implementation is vastly different. This is managed via
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
102 +conditional compiles throughout the startup code for each of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
103 +supported machines. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
105 +#ifdef TARGET_COCO /* CoCo memory map */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
106 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
107 +#define COCO_RAMROM_MODE 0xFFDE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
108 +#define COCO_ALLRAM_MODE 0xFFDF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
109 +#define COCO_PAGE1 0xFFD5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
110 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
111 +/* SAM M1 and M0 adjusts the memory size */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
112 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
113 +#define BASIC_WARMSTART_FLAG 0x0071
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
114 +#define BASIC_START 0xA027
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
115 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
116 +#define __STACK_TOP 0x6800
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
117 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
118 +#else /* Simulator (default) memory map */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
119 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
120 +#define SIM_EXIT_REG 0xFF01
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
121 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
122 +#define __STACK_TOP 0xFE00
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
123 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
124 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
125 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
126 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
127 + .area .data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
128 + .area .ctors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
129 + .area .dtors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
130 + .area .bss
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
131 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
133 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
134 + ;;; __exit : Exit point from the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
135 + ;;; For simulation, this writes to a special I/O register that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
136 + ;;; the simulator interprets as end-of-program.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
137 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
139 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
140 + .globl __exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
141 +__exit:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
142 +#ifdef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
143 + ;; Go back to ROM/RAM mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
144 + sta COCO_RAMROM_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
145 + clr BASIC_WARMSTART_FLAG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
146 + jmp BASIC_START
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
147 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
148 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
149 + stb SIM_EXIT_REG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
150 + bra __exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
151 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
152 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
153 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
155 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
156 + ;;; __start : Entry point to the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
157 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
159 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
160 + .globl __start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
161 +__start:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
162 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
163 +#ifdef HAVE_DIRECT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
164 + ;; Initialize the direct page pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
165 + lda #<s_.direct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
166 + tfr a,dp
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
167 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
168 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
169 +#ifdef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
170 + ;; Turn off interrupts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
171 + orcc #(0x10|0x40)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
172 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
173 + ;; Setup All RAM Mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
174 + sta COCO_ALLRAM_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
175 +#endif /* TARGET_COCO */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
176 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
177 + ;; Initialize the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
178 + lds #__STACK_TOP - 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
180 + ;; Call any "initializer" functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
181 + ldu #s_.ctors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
182 +__ctors_loop:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
183 + ldy ,u++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
184 + cmpy #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
185 + beq __ctors_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
186 + jsr ,y
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
187 + bra __ctors_loop
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
188 +__ctors_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
189 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
190 + ;; Enable interrupts on the simulator
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
191 +#ifndef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
192 + andcc #~(0x10|0x40)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
193 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
194 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
195 + ;; Set up the environment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
196 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
197 + ;; Set up argc/argv arrays
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
198 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
199 + ;; Call the main function. The exit code will
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
200 + ;; be returned in the X register, unless compiled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
201 + ;; with -mdret, in which case it comes back in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
202 + jsr _main
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
203 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
204 + ;; Call any finalizer functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
205 + ldu #s_.dtors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
206 +__dtors_loop:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
207 + ldy ,u++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
208 + cmpy #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
209 + beq __dtors_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
210 + jsr ,y
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
211 + bra __dtors_loop
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
212 +__dtors_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
213 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
214 + ;; If main returns, then invoke _exit() to stop the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
215 + ;; The C library doesn't support -mdret yet, so move the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
216 + ;; argument first.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
217 +#ifdef __DRET__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
218 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
219 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
220 + jmp _exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
221 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
222 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
223 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
224 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
225 + ;;; __crt0_vector : Default handler for interrupts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
226 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
227 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
228 +___crt0_vector:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
229 + ;; The default behavior is to simply ignore all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
230 + ;; non-reset interrupts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
231 + rti
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
232 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
233 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
234 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
235 + ;;; vector : The interrupt vector table
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
237 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
238 + .area vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
239 +vectors:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
240 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
241 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
242 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
243 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
244 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
245 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
246 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
247 + .word __start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
251 @@ -0,0 +1,511 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
252 +/* libgcc routines for m6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
253 + Copyright (C) 2006 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
254 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
255 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
257 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
258 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
259 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
260 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
261 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
262 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
263 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
265 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
266 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
267 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
268 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
269 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
270 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
271 +/* As a special exception, if you link this library with other files,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
272 + some of which are compiled with GCC, to produce an executable,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
273 + this library does not by itself cause the resulting executable
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
274 + to be covered by the GNU General Public License.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
275 + This exception does not however invalidate any other reasons why
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
276 + the executable file might be covered by the GNU General Public License. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
277 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
278 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
279 +#define SIGFPE jmp _abort
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
280 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
281 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
282 + ; Shift functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
283 + ; On input, D is value to be shifted, and X has shift count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
284 + ; Result is also in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
285 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
286 +#ifdef L_ashlhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
287 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
288 + .globl _ashlhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
289 +_ashlhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
290 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
291 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
292 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
293 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
294 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
295 + aslb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
296 + rola
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
297 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
298 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
299 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
300 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
301 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
302 +#ifdef L_ashrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
303 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
304 + .globl _ashrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
305 +_ashrhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
306 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
307 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
308 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
309 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
310 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
311 + asra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
312 + rorb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
313 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
314 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
315 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
316 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
317 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
318 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
319 +#ifdef L_lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
320 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
321 + .globl _lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
322 +_lshrhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
323 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
324 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
325 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
326 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
327 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
328 + lsra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
329 + rorb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
330 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
331 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
332 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
333 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
334 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
335 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
336 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
337 +#ifdef L_softregs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
338 + .area direct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
339 + .globl m0, m1, m2, m3, m4, m5, m6, m7
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
340 + .globl m8, m9, m10, m11, m12, m13, m14, m15
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
341 +m0: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
342 +m1: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
343 +m2: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
344 +m3: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
345 +m4: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
346 +m5: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
347 +m6: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
348 +m7: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
349 +m8: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
350 +m9: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
351 +m10: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
352 +m11: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
353 +m12: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
354 +m13: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
355 +m14: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
356 +m15: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
357 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
358 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
359 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
360 +#ifdef L_ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
361 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
362 + .globl _ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
363 +_ashlsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
364 + asl 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
365 + rol 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
366 + rol 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
367 + rol ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
368 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
369 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
370 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
371 +#ifdef L_ashlsi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
372 + /* X points to the SImode (source/dest)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
373 + B is the count */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
374 +_ashlsi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
375 + pshs u
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
376 + cmpb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
377 + blt try8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
378 + subb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
379 + ; Shift by 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
380 + ldu 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
381 + stu ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
382 +try8:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
383 + cmpb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
384 + blt try_rest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
385 + subb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
386 + ; Shift by 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
387 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
388 +try_rest:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
389 + tstb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
390 + beq done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
391 +do_rest:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
392 + ; Shift by 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
393 + asl 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
394 + rol 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
395 + rol 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
396 + rol ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
397 + decb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
398 + bne do_rest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
399 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
400 + puls u,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
401 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
402 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
403 +#ifdef L_ashrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
404 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
405 + .globl _ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
406 +_ashrsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
407 + asr ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
408 + ror 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
409 + ror 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
410 + ror 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
411 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
412 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
413 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
414 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
415 +#ifdef L_lshrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
416 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
417 + .globl _lshrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
418 +_lshrsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
419 + lsr ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
420 + ror 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
421 + ror 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
422 + ror 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
423 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
424 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
425 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
426 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
427 +#ifdef L_clzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
428 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
429 + .globl ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
430 + ; Input: X = 16-bit unsigned integer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
431 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
432 + ; This function destroys the value in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
433 +___clzhi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
434 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
435 + ; Find the offset of the leftmost '1' bit in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
436 + ; the left half of the word.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
437 + ;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
438 + ; Bits are numbered in the table with 1 meaning the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
439 + ; LSB and 8 meaning the MSB.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
440 + ;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
441 + ; If nonzero, then clz is 8-a.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
442 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
443 + ldx #___clz_tab
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
444 + tfr a,b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
445 + clra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
446 + ldb d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
447 + bne upper_bit_set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
449 +lower_bit_set:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
450 + ; If the upper byte is zero, then check the lower
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
451 + ; half of the word. Return 16-a.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
452 + puls d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
453 + clra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
454 + ldb d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
455 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
456 + addb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
457 + bra done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
458 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
459 +upper_bit_set:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
460 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
461 + addb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
462 + puls x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
464 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
465 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
466 + puls pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
467 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
468 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
469 +#ifdef L_clzdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
470 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
471 + .globl ___clzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
472 + ; Input: 32-bit unsigned integer is on the stack, just
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
473 + ; above the return address
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
474 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
475 +___clzsi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
476 + ; Check the upper 16-bit word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
477 + ; If it is not zero, then return clzhi2(X).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
478 + ; A branch can be used instead of a call since no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
479 + ; postprocessing is needed. Use long branch form
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
480 + ; though since functions may not be near each other.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
481 + ldx 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
482 + lbne ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
483 + ldx 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
484 + jsr ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
485 + leax 16,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
486 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
487 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
488 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
489 +#ifdef L_ctzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
490 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
491 + .globl ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
492 + ; Input: X = 16-bit unsigned integer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
493 + ; Output: X = number of trailing zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
494 + ; F(x) = 15 - clzhi2(X & -x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
495 + ; This function destroys the value in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
496 +___ctzhi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
497 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
498 + coma
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
499 + comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
500 + addd #1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
501 + pshs a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
502 + pshs b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
503 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
504 + andb ,s+
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
505 + anda ,s+
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
506 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
507 + jsr ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
508 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
509 + subd #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
510 + coma
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
511 + comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
512 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
513 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
514 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
515 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
516 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
517 +#ifdef L_ctzdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
518 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
519 + .globl ___ctzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
520 + ; Input: 32-bit unsigned integer is on the stack, just
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
521 + ; above the return address
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
522 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
523 +___ctzsi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
524 + ; Check the lower 16-bit word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
525 + ; If it is not zero, then return ctzhi2(X).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
526 + ; A branch can be used instead of a call since no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
527 + ; postprocessing is needed. Use long branch form
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
528 + ; though since functions may not be near each other.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
529 + ldx 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
530 + lbne ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
531 + ldx 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
532 + jsr ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
533 + leax 16,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
534 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
535 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
537 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
538 +#ifdef L_mulhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
540 +;;; ___mulhi3 - signed/unsigned multiply
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
541 +;;; Called by GCC to implement 16x16 multiplication
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
542 +;;; Arguments: Two 16-bit values, one in stack, one in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
543 +;;; Result: 16-bit result in X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
545 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
546 + .globl _mulhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
547 +_mulhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
548 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
549 + lda 5,s ; left msb * right lsb * 256
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
550 + ldb ,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
551 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
552 + tfr b,a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
553 + clrb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
554 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
555 + ldb 1,s ; left lsb * right msb * 256
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
556 + lda 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
557 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
558 + tfr b,a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
559 + clrb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
560 + leax d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
561 + ldb 1,s ; left lsb * right lsb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
562 + lda 5,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
563 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
564 + leax d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
565 + puls d,pc ; kill D to remove initial push
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
566 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
567 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
568 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
569 +#ifdef L_divhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
571 +;;; ___divhi3 - signed division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
572 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
573 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
575 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
576 + .globl _divhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
577 +_divhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
578 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
579 + bne do_div ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
580 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
581 +do_div:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
582 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
583 + jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
584 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
585 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
586 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
587 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
588 +#ifdef L_modhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
590 +;;; ___modhi3 - signed modulo
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
591 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
592 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
594 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
595 + .globl _modhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
596 +_modhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
597 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
598 + bne do_mod ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
599 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
600 +do_mod:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
601 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
602 + jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
603 + leas 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
604 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
605 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
606 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
607 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
608 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
609 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
610 +#ifdef L_udivhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
612 +;;; ___udivhi3 - unsigned division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
613 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
614 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
616 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
617 + .globl _udivhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
618 +_udivhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
619 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
620 + bne do_udiv ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
621 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
622 +do_udiv:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
623 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
624 + jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
625 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
626 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
628 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
629 +#ifdef L_umodhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
631 +;;; ___umodhi3 - unsigned modulo
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
632 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
633 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
635 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
636 + .globl _umodhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
637 +_umodhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
638 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
639 + bne do_umod ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
640 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
641 +do_umod:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
642 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
643 + jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
644 + leas 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
645 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
646 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
647 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
648 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
649 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
650 +#ifdef L_euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
651 +; unsigned euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
652 +; calling: (left / right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
653 +; push left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
654 +; ldd right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
655 +; jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
656 +; quotient on the stack (left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
657 +; modulus in d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
658 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
659 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
660 + .globl _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
661 + left=5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
662 + right=1 ; word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
663 + count=0 ; byte
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
664 + CARRY=1 ; alias
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
665 +_euclid:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
666 + leas -3,s ; 2 local variables
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
667 + clr count,s ; prescale divisor
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
668 + inc count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
669 + tsta
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
670 +presc:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
671 + bmi presc_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
672 + inc count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
673 + aslb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
674 + rola
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
675 + bra presc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
676 +presc_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
677 + std right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
678 + ldd left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
679 + clr left,s ; quotient = 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
680 + clr left+1,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
681 +mod1:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
682 + subd right,s ; check subtract
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
683 + bcc mod2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
684 + addd right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
685 + andcc #~CARRY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
686 + bra mod3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
687 +mod2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
688 + orcc #CARRY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
689 +mod3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
690 + rol left+1,s ; roll in carry
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
691 + rol left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
692 + lsr right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
693 + ror right+1,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
694 + dec count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
695 + bne mod1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
696 + leas 3,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
697 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
698 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
699 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
700 +#ifdef L_seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
701 +; signed euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
702 +; calling: (left / right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
703 +; push left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
704 +; ldd right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
705 +; jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
706 +; quotient on the stack (left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
707 +; modulus in d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
708 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
709 + .globl _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
710 + left=6
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
711 + right=2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
712 + quot_sign=1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
713 + mod_sign=0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
714 +_seuclid:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
715 + leas -4,s ; 3 local variables
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
716 + std right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
717 + clr mod_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
718 + clr quot_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
719 + ldd left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
720 + bge mod_abs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
721 + inc mod_sign,s ; sign(mod) = sign(left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
722 + inc quot_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
723 + bsr negd ; abs(left) -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
724 +mod_abs:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
725 + pshs b,a ; push abs(left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
726 + ldd right+2,s ; all references shifted by 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
727 + bge quot_abs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
729 + bsr negd ; abs(right) -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
730 +quot_abs:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
731 + jsr _euclid ; call (unsigned) euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
732 + std right+2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
733 + puls a,b ; quot -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
734 + tst quot_sign,s ; all references no longer shifted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
735 + beq quot_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
736 + bsr negd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
737 +quot_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
738 + std left,s ; quot -> left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
739 + ldd right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
740 + tst mod_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
741 + beq mod_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
742 + bsr negd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
743 +mod_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
744 + leas 4,s ; destroy stack frame
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
745 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
747 +negd: ; self-explanatory !
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
748 + nega
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
749 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
750 + sbca #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
751 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
752 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
753 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
754 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
756 +#ifdef L_pending_addsi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
757 +_addsi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
758 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
759 +#endif /* L_pending_addsi3 */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
760 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
761 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
766 @@ -0,0 +1,3023 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
767 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
768 + FILE: m6809.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
769 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
770 +/* Subroutines for insn-output.c for MC6809.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
771 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
772 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
774 + Space Astronomy Laboratory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
775 + University of Wisconsin at Madison
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
776 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
778 + ( msdoerfe@informatik.uni-erlangen.de )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
779 + also added #pragma interrupt (inspired by gcc-6811)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
780 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
782 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
785 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
788 + (brian@oddchange.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
791 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
792 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
793 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
794 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
795 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
796 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
797 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
799 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
800 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
802 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
803 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
804 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
805 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
806 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
807 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
808 +#include <string.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
809 +#include <time.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
810 +#include <sys/types.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
811 +#include <sys/timeb.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
812 +#include <stdio.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
813 +#include "config.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
814 +#include "system.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
815 +#include "coretypes.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
816 +#include "tm.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
817 +#include "tree.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
818 +#include "rtl.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
819 +#include "tm_p.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
820 +#include "regs.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
821 +#include "flags.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
822 +#include "hard-reg-set.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
823 +#include "real.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
824 +#include "tree.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
825 +#include "insn-config.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
826 +#include "conditions.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
827 +#include "insn-flags.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
828 +#include "output.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
829 +#include "insn-attr.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
830 +#include "function.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
831 +#include "target.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
832 +#include "target-def.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
833 +#include "expr.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
834 +#include "recog.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
835 +#include "cpplib.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
836 +#include "c-family/c-pragma.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
837 +#include "c-family/c-common.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
838 +#include "toplev.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
839 +#include "optabs.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
840 +#include "version.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
841 +#include "df.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
842 +#include "rtlhooks-def.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
843 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
844 +/* macro to return TRUE if length of operand mode is one byte */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
846 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
847 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
849 +register and not a fake one that is emulated in software. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
851 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
852 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
853 + Target hooks, moved from target.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
854 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
856 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
857 +#undef TARGET_ENCODE_SECTION_INFO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
859 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
860 +#undef TARGET_ASM_FILE_START
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
861 +#define TARGET_ASM_FILE_START m6809_asm_file_start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
862 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
863 +#undef TARGET_ASM_ALIGNED_HI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
866 +#undef TARGET_ASM_ALIGNED_SI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
867 +#define TARGET_ASM_ALIGNED_SI_OP NULL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
868 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
869 +#undef TARGET_ASM_UNALIGNED_HI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
872 +#undef TARGET_ASM_UNALIGNED_SI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
874 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
875 +#undef TARGET_RTX_COSTS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
876 +#define TARGET_RTX_COSTS m6809_rtx_costs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
877 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
878 +#undef TARGET_ATTRIBUTE_TABLE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
880 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
881 +#undef TARGET_INIT_BUILTINS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
882 +#define TARGET_INIT_BUILTINS m6809_init_builtins
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
883 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
884 +#undef TARGET_EXPAND_BUILTIN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
887 +#undef TARGET_DEFAULT_TARGET_FLAGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS | MASK_DIRECT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
889 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
892 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
895 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
896 +#undef TARGET_TRAMPOLINE_INIT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
898 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
899 +#undef TARGET_FRAME_POINTER_REQUIRED
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
901 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
902 +#undef TARGET_OPTION_OVERRIDE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
903 +#define TARGET_OPTION_OVERRIDE m6809_override_options
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
904 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
905 +/* External variables used */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
906 +extern int reload_completed; /* set in toplev.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
907 +extern FILE *asm_out_file;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
908 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
909 +static int last_mem_size; /* operand size (bytes) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
910 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
911 +/* True if the section was recently changed and another .area
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
912 + * directive needs to be output before emitting the next label. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
913 +int section_changed = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
914 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
915 +/* Section names. The defaults here are used until an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
916 + * __attribute__((section)) is seen that changes it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
917 +char code_section_op[128] = "\t.area .text";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
918 +char data_section_op[128] = "\t.area .data";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
919 +char bss_section_op[128] = "\t.area .bss";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
920 +const char *code_bank_option = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
921 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
922 +/* TRUE if the direct mode prefix might be valid in this context.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
923 + * This is set by 'print_address' prior to calling output_addr_const,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
924 + * which performs into 'print_direct_prefix' to do the final checks. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
925 +static int check_direct_prefix_flag;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
926 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
927 +/* Nonzero if an address is being printed in a context which does not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
928 + * permit any PIC modifications to the address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
929 +static int pic_ok_for_addr_p = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
930 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
931 +/* Current code page. This supports machines which can do bank
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
932 + * switching to allow for more than 64KB of code/data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
933 +char far_code_page[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
934 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
935 +/* Current bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
936 +static char current_bank_name[8] = "-1";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
937 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
938 +/* Default bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
939 +static char default_code_bank_name[8] = "-1";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
940 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
941 +/* Direct memory reserved as soft registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
942 +unsigned int m6809_soft_regs = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
943 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
944 +/* ABI version */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
946 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
947 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
948 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
949 + * Called after options have been parsed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
950 + * If overrides have been specified on the command-line, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
951 + * these values are copied into the main storage variables.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
952 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
953 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
954 +m6809_override_options (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
955 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
956 + /* Handle -mfar-code-page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
957 + if (far_code_page_option == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
958 + far_code_page_option = "__default_code_page";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
959 + strcpy (far_code_page, far_code_page_option);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
960 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
962 + if (code_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
963 + sprintf (code_section_op, "\t.area %s", code_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
964 + if (data_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
965 + sprintf (data_section_op, "\t.area %s", data_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
966 + if (bss_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
969 + /* Handle -mcode-bank */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
970 + if (code_bank_option != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
971 + sprintf (default_code_bank_name, "%s", code_bank_option);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
972 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
973 + /* Handle -mabi-version or -mno-reg-args */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
974 + if (m6809_abi_version_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
975 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
976 + if (!strcmp (m6809_abi_version_ptr, "stack"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
977 + m6809_abi_version = M6809_ABI_VERSION_STACK;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
978 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
979 + m6809_abi_version = M6809_ABI_VERSION_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
980 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
981 + m6809_abi_version = M6809_ABI_VERSION_BX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
982 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
983 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
984 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
985 + m6809_abi_version = atoi (m6809_abi_version_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
986 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
987 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
988 + /* The older -mno-reg-args option is deprecated, and treated
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
989 + as -mabi=stack. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
990 + if (!TARGET_REG_ARGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
991 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
993 + m6809_abi_version = M6809_ABI_VERSION_STACK;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
994 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
995 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
996 + /* -fexceptions is unsupported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
997 + flag_exceptions = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
998 + flag_non_call_exceptions = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
999 + flag_unwind_tables = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1000 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1001 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1002 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1003 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1004 + * Output prefix that directs the assembler to use a direct-mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1005 + * instruction if globally enabled, address is a symbol, and symbol
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1006 + * has been marked as in direct page. Also, never do this if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1007 + * using the indirect mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1008 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1009 +print_direct_prefix (FILE * file, rtx addr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1010 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1011 + if (TARGET_DIRECT &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1012 + (GET_CODE (addr) == SYMBOL_REF) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1013 + SYMBOL_REF_FLAG (addr) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1014 + check_direct_prefix_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1015 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1016 + putc ('*', file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1017 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1018 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1019 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1020 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1021 +/** Prints an operand (that is not an address) in assembly from RTL. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1022 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1023 +print_operand (FILE * file, rtx x, int code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1024 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1025 + if (REG_P (x)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1026 + /* gcc currently allocates the entire 16-bit 'd' register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1027 + * even when it only needs an 8-bit value. So here it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1028 + * is tricked into printing only the lower 8-bit 'b'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1029 + * register into the assembly output.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1030 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1031 + * Eventually gcc should be modified to allocate a/b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1032 + * independently and this hack can be removed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1033 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1034 + * Occasionally, we may want to do an operation using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1035 + * the 'a' register instead of 'b'; use the 'A' code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1036 + * to specify that.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1037 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1038 + if (code == 'A')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1039 + fputs ("a", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1041 + fputs ("b", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1042 + else if (M_REG_P (x) && code == 'L')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1043 + /* Soft registers can be treated like memory and accessed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1044 + * at a particular offset. TODO : handle 'W' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1045 + fputs (reg_names[REGNO (x)+1], file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1046 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1047 + fputs (reg_names[REGNO (x)], file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1048 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1049 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1050 + else if (MEM_P (x)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1052 + if (code == 'L') { /* LSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1053 + if (GET_CODE (XEXP (x, 0)) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1054 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1055 + /* Offseting an indirect addressing mode is not supported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1056 + error ("expression too complex for 6809 (offset indirect mode)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1057 + debug_rtx (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1058 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1059 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1060 + x = adjust_address (x, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1061 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1062 + else if (code == 'M') { /* MSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1063 + if (GET_CODE (XEXP (x, 0)) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1064 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1065 + /* Offseting an indirect addressing mode is not supported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1066 + error ("expression too complex for 6809 (offset indirect mode)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1067 + debug_rtx (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1068 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1069 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1070 + x = adjust_address (x, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1071 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1072 + else if (code == 'W') { /* least significant half of 32-bit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1073 + x = adjust_address (x, HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1074 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1075 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1076 + pic_ok_for_addr_p = (code != 'C');
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1077 + output_address (XEXP (x, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1078 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1079 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1081 + union { double d; int i[2]; } u;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1082 + u.i[0] = CONST_DOUBLE_LOW (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1083 + u.i[1] = CONST_DOUBLE_HIGH (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1084 + fprintf (file, "#%#9.9g", u.d);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1085 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1086 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1087 + else if (code == 'R') {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1088 + fprintf (file, "%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1089 + m6809_get_regs_printable (INTVAL (x)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1090 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1091 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1092 + else {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1093 + if (code == 'L') { /* LSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1095 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1096 + else if (code == 'M') { /* MSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1098 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1099 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1100 + putc ('#', file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1101 + output_addr_const (file, x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1102 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1103 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1105 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1106 +/** Prints an address operand to assembler from its RTL representation. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1107 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1108 +print_operand_address (FILE *file, rtx addr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1109 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1110 + register rtx base = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1111 + register rtx offset = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1112 + int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1113 + int indirect_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1114 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1115 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1116 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1117 + /*** check for indirect addressing ***/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1118 + if (MEM_P (addr)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1120 + addr = XEXP (addr, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1121 + if (pic_ok_for_addr_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1122 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1123 + indirect_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1124 + fprintf (file, "[");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1125 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1126 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1127 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1128 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1129 + switch (GET_CODE (addr)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1130 + case REG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1131 + regno = REGNO (addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1132 + fprintf (file, ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1133 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1134 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1135 + case PRE_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1136 + regno = REGNO (XEXP (addr, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1138 + fprintf (file, "%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1139 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1140 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1141 + case POST_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1142 + regno = REGNO (XEXP (addr, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1143 + fprintf (file, ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1145 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1146 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1147 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1148 + base = XEXP (addr, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1149 + if (MEM_P (base))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1150 + base = XEXP (base, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1151 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1152 + offset = XEXP (addr, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1153 + if (MEM_P (offset))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1154 + offset = XEXP (offset, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1155 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1157 + if (!indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1158 + check_direct_prefix_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1159 + output_addr_const (file, base);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1160 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1161 + fputs ("+", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1162 + output_addr_const (file, offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1163 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1164 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1166 + output_addr_const (file, base);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1168 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1169 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1171 + output_addr_const (file, offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1172 + fprintf (file, ",%s", reg_names[REGNO (base)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1173 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1174 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1175 + /*** accumulator offset ***/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1176 + else if (((D_REG_P (offset)) || (Q_REG_P (offset)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1177 + && (A_REG_P (base))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1178 + fprintf (file, "%s,%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1180 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1181 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1182 + else if (((D_REG_P (base)) || (Q_REG_P (base)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1183 + && (A_REG_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1184 + fprintf (file, "%s,%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1186 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1187 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1188 + else if (GET_CODE (base) == PRE_DEC) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1189 + regno = REGNO (XEXP (base, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1191 + fprintf (file, "%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1192 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1193 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1194 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1195 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1196 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1197 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1198 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1199 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1200 + /* Set this global before calling output_addr_const() */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1201 + if (!indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1202 + check_direct_prefix_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1203 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1205 + * '#' and follow it by ',pcr' to enable relative addressing. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1207 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1208 + ASM_OUTPUT_SYMBOL_REF (file, addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1209 + fputs (",pcr", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1210 + pic_ok_for_addr_p = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1211 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1212 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1213 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1214 + output_addr_const (file, addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1215 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1216 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1217 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1218 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1219 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1220 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1221 + if (indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1222 + fprintf (file, "]");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1223 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1224 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1225 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1226 + Update the CC Status
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1227 +---------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1228 + Set the cc_status for the results of an insn whose pattern is EXP.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1229 + We assume that jumps don't affect the condition codes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1230 + All else, clobbers the condition codes, by assumption.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1231 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1232 + We assume that ALL add, minus, etc. instructions effect the condition
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1233 + codes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1234 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1235 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1237 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1238 + int src_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1239 + int dst_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1240 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1241 + /*** recognize SET insn's ***/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1242 + if (GET_CODE (exp) == SET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1243 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1244 + src_code = GET_CODE (SET_SRC (exp));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1245 + dst_code = GET_CODE (SET_DEST (exp));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1246 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1247 + /* Jumps do not alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1248 + if (SET_DEST (exp) == pc_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1249 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1250 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1251 + /* Moving one register into another register (tfr):
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1252 + Doesn't alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1254 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1255 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1256 + /* Moving memory into a register (load): Sets cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1258 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1259 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1260 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1261 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1262 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1263 + /* Moving register into memory (store): Sets cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1264 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1265 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1266 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1267 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1268 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1269 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1270 + /* Function calls clobber the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1271 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1272 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1273 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1274 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1275 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1276 + /* Tests and compares set the cc's in predictable ways. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1277 + else if (SET_DEST (exp) == cc0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1278 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1279 + cc_status.flags = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1280 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1281 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1282 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1283 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1284 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1285 + else if (A_REG_P (SET_DEST (exp)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1286 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1287 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1288 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1289 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1290 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1291 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1292 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1293 + /* Certain instructions affect the condition codes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1294 + switch (src_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1295 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1296 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1297 + case MINUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1298 + case NEG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1299 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1300 + /* These instructions set the condition codes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1301 + * and may modify the V bit. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1302 + cc_status.flags |= CC_NO_OVERFLOW;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1303 + /* FALLTHRU */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1304 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1305 + case AND:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1306 + case IOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1307 + case XOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1308 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1309 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1310 + /* These instructions set the condition codes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1311 + * but cannot overflow (V=0). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1312 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1313 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1314 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1315 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1316 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1317 + /* Everything else is clobbered */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1318 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1319 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1320 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1321 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1322 + } /* SET */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1323 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1324 + else if (GET_CODE (exp) == PARALLEL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1325 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1326 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1327 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1328 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1330 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1331 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1332 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1333 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1334 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1335 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1336 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1337 + /*** default action if we haven't recognized something
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1338 + and returned earlier ***/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1339 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1340 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1341 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1342 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1343 +/** Returns nonzero if the expression EXP can be implemented using one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1344 + * of the 6809's single operand instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1345 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1346 +m6809_single_operand_operator (rtx exp)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1347 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1348 + rtx op1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1349 + HOST_WIDE_INT val;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1350 + enum rtx_code code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1351 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1352 + debug_rtx(exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1353 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1354 + code = GET_CODE (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1356 + /* Unary operators always qualify */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1357 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1358 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1359 + case NEG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1360 + case NOT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1361 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1362 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1363 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1364 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1365 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1366 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1367 + /* Binary operators can only qualify if the second
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1368 + * argument is a CONST_INT of certain value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1369 + op1 = XEXP (exp, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1370 + if (GET_CODE (op1) != CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1371 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1372 + val = INTVAL (op1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1373 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1374 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1375 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1376 + case MINUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1377 + if (val == -1 || val == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1378 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1379 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1380 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1381 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1382 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1383 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1384 + case ROTATE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1385 + case ROTATERT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1386 + if (val == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1387 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1388 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1389 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1390 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1391 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1392 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1393 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1394 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1395 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1396 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1397 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1398 +/** Return a bitarray of the hard registers which are used by a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1399 +unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1400 +m6809_get_live_regs (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1401 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1402 + unsigned int regs = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1403 + int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1404 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1405 + if (frame_pointer_needed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1406 + regs |= (1 << HARD_FRAME_POINTER_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1407 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1408 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1409 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1410 + regs |= (1 << regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1411 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1412 + return regs;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1413 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1414 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1415 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1416 +/** Return a printable version of a list of hard registers, suitable
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1417 + * for use in a PSHx or PULx insn. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1418 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1419 +m6809_get_regs_printable (unsigned int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1420 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1421 + static char list[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1422 + char *listp = list;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1423 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1424 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1425 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1426 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1427 + listp += sprintf (listp,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1428 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1429 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1430 + return list;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1431 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1432 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1433 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1434 +/** Return the total number of bytes covered by a set of hard registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1435 +unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1436 +m6809_get_regs_size (unsigned int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1437 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1438 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1439 + unsigned int size = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1440 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1441 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1442 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1443 + /* Only count register in the given register set */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1444 + if (REGSET_CONTAINS_P (regno, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1445 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1446 + /* Add 1 or 2 byte, depending on the size of the register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1447 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1448 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1449 + size += 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1450 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1451 + size++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1452 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1453 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1454 + return size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1455 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1456 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1457 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1458 +/* Given the target of call instruction in X,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1459 + * return the tree node that contains the function declaration for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1460 + * that target.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1461 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1462 + * If the rtx or the tree do not appear valid for any reason,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1463 + * then return NULL_TREE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1464 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1465 +static tree call_target_decl (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1466 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1467 + tree decl;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1468 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1469 + /* Make sure the target is really a MEM. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1470 + if (!x || !MEM_P (x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1471 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1472 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1473 + /* Make sure the address is a SYMBOL_REF. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1474 + x = XEXP (x, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1475 + if (!x || (GET_CODE (x) != SYMBOL_REF))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1476 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1477 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1478 + /* Get the declaration of this symbol */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1479 + decl = SYMBOL_REF_DECL (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1480 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1481 + /* Make sure the declaration is really a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1482 + if (!decl || (TREE_CODE(decl) != FUNCTION_DECL))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1483 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1484 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1485 + return decl;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1486 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1487 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1488 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1489 +/** Returns nonzero if a function, whose declaration is in DECL,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1490 + * was declared to have the attribute given by ATTR_NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1491 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1492 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1493 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1494 + tree type;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1495 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1496 + type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1497 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1498 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1499 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1500 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1501 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1502 +/** Returns nonzero if the current function was declared to have the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1503 + * attribute given by ATTR_NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1504 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1505 +m6809_current_function_has_type_attr_p (const char *attr_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1506 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1507 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1508 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1509 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1510 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1511 +/** Return nonzero if the current function has no return value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1512 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1513 +m6809_current_function_is_void (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1514 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1515 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1516 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1517 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1518 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1519 +/** Get the value of a declaration's 'bank', as set by the 'bank'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1520 + * attribute. If no bank was declared, it returns NULL by default. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1521 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1522 +m6809_get_decl_bank (tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1523 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1524 + tree attr;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1525 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1526 + /* Lookup the 'bank' attribute. If it does not exist, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1527 + * return NULL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1528 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1529 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1530 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1531 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1532 + /* Make sure it has a value assigned to it */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1533 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1534 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1535 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1536 + warning (WARNING_OPT "banked function did not declare a bank number");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1537 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1538 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1539 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1540 + /* Return the bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1541 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1542 + return TREE_STRING_POINTER (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1543 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1544 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1545 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1546 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1547 +m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1548 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1549 + /* Check the function declaration for special properties.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1550 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1551 + * If the function was declare with __attribute__((bank)), output
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1552 + * assembler definitions to force the function to go into the named
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1553 + * bank.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1554 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1555 + const char *bank_name = m6809_get_decl_bank (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1556 + if (bank_name != NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1557 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1558 + /* Declare __self_bank as a local assembler value that denotes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1559 + * which bank the current function is in. This is required only
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1560 + * when the bank actually changes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1561 + if (strcmp (bank_name, current_bank_name))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1562 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1563 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1564 + strcpy (current_bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1565 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1566 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1567 + /* Declare a global assembler value that denotes which bank the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1568 + * named function is in. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1569 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1570 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1571 + /* Force the current function into a new area */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1572 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1573 + bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1574 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1575 + bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1576 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1577 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1578 + /* Emit the label for the function's name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1579 + ASM_OUTPUT_LABEL (asm_out_file, name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1580 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1581 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1582 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1583 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1584 + * Handle pragmas. Note that only the last branch pragma seen in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1585 + * source has any affect on code generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1586 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1587 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1588 +#define BAD_PRAGMA(msgid, arg) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1589 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1590 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1591 +static int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1592 +pragma_parse (const char *name, tree *sect)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1593 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1594 + tree s, x;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1595 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1596 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1597 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1598 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1599 + if (pragma_lex (&s) != CPP_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1600 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1601 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1602 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1603 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1604 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1605 + if (pragma_lex (&x) != CPP_EOF)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1606 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1607 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1608 + *sect = s;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1609 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1610 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1611 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1612 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1613 +/*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1614 + * Handle #pragma section.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1615 + * This is deprecated; code should use __attribute__(section("name"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1616 + * instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1617 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1618 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1619 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1620 + tree sect;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1621 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1622 + if (pragma_parse ("section", &sect))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1623 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1624 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1625 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1626 + ".area\t%s", TREE_STRING_POINTER (sect));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1627 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1628 + ".area\t%s", TREE_STRING_POINTER (sect));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1629 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1630 + /* Mark a flag that sections have changed. Upon emitting another
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1631 + * declaration, the new .area directive will be written. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1632 + section_changed++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1633 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1634 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1635 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1636 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1637 + * Check a `double' value for validity for a particular machine mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1638 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1639 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1640 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1641 +check_float_value (enum machine_mode mode, double *d, int overflow)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1642 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1643 + if (mode == SFmode) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1644 + if (*d > 1.7014117331926443e+38) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1645 + error("magnitude of constant too large for `float'");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1646 + *d = 1.7014117331926443e+38;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1647 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1648 + else if (*d < -1.7014117331926443e+38) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1649 + error("magnitude of constant too large for `float'");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1650 + *d = -1.7014117331926443e+38;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1651 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1652 + else if ((*d > 0) && (*d < 2.9387358770557188e-39)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1653 + warning(WARNING_OPT "`float' constant truncated to zero");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1654 + *d = 0.0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1655 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1656 + else if ((*d < 0) && (*d > -2.9387358770557188e-39)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1657 + warning(WARNING_OPT "`float' constant truncated to zero");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1658 + *d = 0.0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1659 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1660 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1661 + return overflow;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1662 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1663 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1664 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1665 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1666 +/** Declare that the target supports named output sections. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1667 +bool m6809_have_named_section = (bool)1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1668 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1669 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1670 +/** Write to the assembler file a directive to place
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1671 + * subsequent objects to a different section in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1672 + * object file. ASxxxx uses the "area" directive for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1673 + * this purpose. It does not however support generalized
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1674 + * alignment, and can only place items on an odd/even
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1675 + * boundary. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1676 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1677 +m6809_asm_named_section (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1678 + const char *name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1679 + unsigned int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1680 + tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1681 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1682 + fprintf (asm_out_file, "\t.area\t%s\n", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1683 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1684 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1685 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1686 +enum reg_class
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1687 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1688 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1689 + /* Check cases based on type code of rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1690 + switch (GET_CODE(x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1691 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1692 + /*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1693 + * Observation, 2015-07-19, William Astle
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1694 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1695 + * The original comparison for range for 16 bits was wrong, adding 0x80
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1696 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1697 + * a more straight forward range comparison - excessive cleverness isn't
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1698 + * really required here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1699 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1700 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1701 + /* Constants that can fit into 1 byte should be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1702 + * loaded into a Q_REGS reg */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1703 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1704 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1705 + (regclass > A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1706 + return Q_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1707 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1708 + /* 16-bit constants should be loaded into A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1709 + * when possible. gcc may already require A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1710 + * or D_REGS for certain types of instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1711 + * This case applies mostly to simple copy operations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1712 + * to/from memory when any register will do, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1713 + * it's best to avoid using D register since it is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1714 + * needed for other things.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1715 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1716 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1717 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1718 + (regclass > A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1719 + return A_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1720 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1721 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1722 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1723 + case LABEL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1724 + /* Addresses should always be loaded into A_REGS */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1725 + if (regclass >= A_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1726 + return (A_REGS);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1727 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1728 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1729 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1730 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1731 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1732 + /* Check cases based on mode of rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1733 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1734 + return Q_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1735 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1736 + /* Default: return whatever class reload suggested */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1737 + return regclass;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1738 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1739 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1740 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1741 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1742 + * Check a new declaration for the "section" attribute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1743 + * If it exists, and the target section is "direct", then mark
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1744 + * the declaration (in RTL) to indicate special treatment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1745 + * When the variable is referenced later, we test for this flag
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1746 + * and can emit special asm text to force the assembler to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1747 + * short instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1748 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1749 +static void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1750 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1751 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1752 + tree attr, id;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1753 + const char *name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1754 + const char *decl_name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1756 + /* We only care about variable declarations, not functions */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1757 + if (TREE_CODE (decl) != VAR_DECL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1758 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1759 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1760 + /* For debugging purposes only; grab the decl's name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1761 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1763 + /* Give up if the decl doesn't have any RTL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1764 + if (!DECL_RTL (decl))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1765 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1766 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1767 + /* See if it has a section attribute */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1768 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1769 + if (!attr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1770 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1771 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1772 + /* See if the section attribute has a value */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1773 + id = TREE_VALUE (TREE_VALUE (attr));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1774 + if (!id)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1775 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1776 + name = TREE_STRING_POINTER (id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1777 + if (!name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1778 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1779 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1780 + /* See if the value is 'direct'. If so, mark it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1781 + if (!strcmp (name, "direct"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1782 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1783 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1784 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1785 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1786 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1787 + * Output code to perform a complex shift, for which there is no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1788 + * direct support in the instruction set.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1789 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1790 + * shift1 is an instruction pattern for performing a 1-bit modification.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1791 + * This code wraps that pattern in a loop to perform the shift N times,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1792 + * where N is given by the address register in operands[2].
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1793 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1794 + * To support 16-bit shifts, shift2 can also be provided: it is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1795 + * a second instruction to be included in the loop. 8-bit shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1796 + * insns will pass NULL here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1797 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1798 + * The insn length of shift1/shift2 is assumed to be 1 byte,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1799 + * which works in all of the cases it is needed so far.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1800 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1801 +static void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1802 +m6809_gen_register_shift (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1803 + rtx *operands,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1804 + const char *shift1,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1805 + const char *shift2 )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1806 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1807 + char beq_pattern[32];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1808 + char bra_pattern[32];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1809 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1810 + int shiftlen = (shift1 && shift2) ? 2 : 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1811 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1812 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1813 + int beq_offset = 2 + shiftlen + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1814 + int bra_offset = shiftlen + 2 + cmplen + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1815 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1816 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1817 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1818 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1819 + output_asm_insn ("pshs\t%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1820 + output_asm_insn ("lea%2\t-1,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1821 + output_asm_insn ("cmp%2\t#-1", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1822 + output_asm_insn (beq_pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1823 + if (shift1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1824 + output_asm_insn (shift1, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1825 + if (shift2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1826 + output_asm_insn (shift2, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1827 + output_asm_insn (bra_pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1828 + output_asm_insn ("puls\t%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1829 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1830 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1831 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1832 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1833 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1834 +gen_rtx_const_high (rtx r)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1835 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1836 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1837 + signed char s = (signed char)v;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1838 + return gen_int_mode (s, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1839 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1840 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1841 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1842 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1843 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1844 +gen_rtx_const_low (rtx r)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1845 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1846 + unsigned char v = INTVAL (r) & 0xFF;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1847 + signed char s = (signed char)v;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1848 + return gen_int_mode (s, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1849 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1850 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1851 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1852 +/** Generate RTL to allocate/free bytes on the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1853 + * CODE is given as MINUS when allocating and PLUS when freeing,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1854 + * to match the semantics of a downward-growing stack. SIZE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1855 + * is always given as a positive integer.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1856 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1857 +static rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1858 +gen_rtx_stack_adjust (enum rtx_code code, int size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1859 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1860 + if (size <= 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1861 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1862 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1863 + if (code == MINUS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1864 + size = -size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1866 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1867 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1868 + gen_int_mode (size, HImode)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1869 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1870 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1872 +/** Generate RTL to push/pop a set of registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1873 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1874 +gen_rtx_register_pushpop (int op, int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1875 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1876 + rtx nregs = gen_int_mode (regs, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1877 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1878 + if (op == UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1879 + return gen_register_push (nregs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1880 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1881 + return gen_register_pop (nregs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1882 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1883 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1884 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1885 +/* Given a register set REGS, where the bit positions correspond to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1886 + * hard register numbers, return another bitmask that represents the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1887 + * order in which those registers would be pushed/popped.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1888 + * Registers that are pushed first have higher bit positions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1889 + * The pop order is just the reverse bitmask.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1890 + * These values are the same as the bitmasks actually used in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1891 + * machine instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1892 +static unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1893 +register_push_order (int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1894 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1895 + unsigned int order = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1896 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1897 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1898 + order |= 0x80;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1899 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1900 + order |= 0x40;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1901 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1902 + order |= 0x20;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1903 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1904 + order |= 0x10;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1905 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1906 + order |= 0x8;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1907 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1908 + order |= 0x4;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1909 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1910 + order |= 0x2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1911 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1912 + order |= 0x1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1913 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1914 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1915 + order |= (0x4 | 0x2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1916 + return order;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1917 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1918 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1919 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1920 +/* Returns nonzero if two consecutive push or pop instructions,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1921 + * as determined by the OP, can be merged into a single instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1922 + * The first instruction in the sequence pushes/pops REGS1; the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1923 + * second applies to REGS2.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1924 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1925 + * If true, the resulting instruction can use (regs1 | regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1926 + * safely.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1927 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1928 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1929 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1930 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1931 + /* Register sets must not overlap */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1932 + if (regs1 & regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1933 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1934 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1935 + if (op == UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1936 + return (register_push_order (regs1) > register_push_order (regs2));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1937 + else if (op == UNSPEC_POP_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1938 + return (register_push_order (regs1) < register_push_order (regs2));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1939 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1940 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1941 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1942 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1943 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1944 +/** Emit instructions for making a library call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1945 + * MODE is the mode of the operation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1946 + * NAME is the library function name.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1947 + * OPERANDS is the rtx array provided by the recognizer.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1948 + * COUNT is the number of input operands to the call, and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1949 + * should be 1 for a unary op or 2 for a binary op.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1950 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1951 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1952 +emit_libcall_insns (enum machine_mode mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1953 + const char *name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1954 + rtx *operands,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1955 + int count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1956 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1957 + /* Generate an rtx for the call target. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1958 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1959 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1960 + /* Emit the library call. Slightly different based
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1961 + on the number of operands */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1962 + if (count == 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1963 + emit_library_call (symbol, LCT_NORMAL, mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1964 + 2, operands[1], mode, operands[2], mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1965 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1966 + emit_library_call (symbol, LCT_NORMAL, mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1967 + 1, operands[1], mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1969 + /* The library call is expected to put its result
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1970 + in LIBCALL_VALUE, so need to copy it into the destination. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1971 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1972 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1973 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1974 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1975 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1976 + * A small helper function that writes out a single branch instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1977 + * OPCODE is the short name, e.g. "ble".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1978 + * OPERANDS has the rtx for the target label.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1979 + * LONG_P is nonzero if we are emitting a long branch, and need to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1980 + * prepend an 'l' to the opcode name.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1981 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1982 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1983 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1984 + char pattern[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1985 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1986 + output_asm_insn (pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1987 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1988 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1989 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1990 + * Output a branch/conditional branch insn of the proper
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1991 + * length. code identifies the particular branch insn.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1992 + * operands holds the branch target in operands[0].
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1993 + * length says what the size of this insn should be.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1994 + * Based on the length, we know whether it should be a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1995 + * short (8-bit) or long (16-bit) branch.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1996 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1997 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1998 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
1999 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2000 + int shortform;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2001 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2002 + /* Decide whether or not to use the long or short form.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2003 + * Calculate automatically based on insn lengths. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2004 + shortform = ((length > 2) ? 0 : 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2005 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2006 + /* Determine the proper opcode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2007 + * Use the short (2-byte) opcode if the target is within
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2008 + * reach. Otherwise, use jmp (3-byte opcode), unless
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2009 + * compiling with -fpic, in which case we'll need to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2010 + * lbra (4-byte opcode).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2011 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2012 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2013 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2014 + case LABEL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2015 + if (shortform)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2016 + output_branch_insn1 ("bra", operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2017 + else if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2018 + output_branch_insn1 ("bra", operands, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2019 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2020 + output_branch_insn1 ("jmp", operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2021 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2022 + case EQ:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2023 + output_branch_insn1 ("beq", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2024 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2025 + case NE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2026 + output_branch_insn1 ("bne", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2027 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2028 + case GT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2029 + output_branch_insn1 ("bgt", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2030 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2031 + case GTU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2032 + output_branch_insn1 ("bhi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2033 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2034 + case LT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2035 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2036 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2037 + output_branch_insn1 ("bmi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2038 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2039 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2040 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2041 + output_branch_insn1 ("blt", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2042 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2043 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2044 + case LTU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2045 + output_branch_insn1 ("blo", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2046 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2047 + case GE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2049 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2050 + output_branch_insn1 ("bpl", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2051 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2052 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2053 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2054 + output_branch_insn1 ("bge", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2055 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2056 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2057 + case GEU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2058 + output_branch_insn1 ("bhs", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2059 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2060 + case LE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2062 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2063 + output_branch_insn1 ("bmi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2064 + output_branch_insn1 ("beq", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2065 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2066 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2067 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2068 + output_branch_insn1 ("ble", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2069 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2070 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2071 + case LEU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2072 + output_branch_insn1 ("bls", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2073 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2074 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2075 + abort();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2076 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2077 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2078 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2079 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2080 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2081 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2082 +/** Returns the "cost" of an RTL expression.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2083 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2084 + * the cost of a fast 8-bit arithmetic instruction that operates on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2085 + * a reg/mem or a reg/immed. Other costs are relative to this.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2086 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2087 + * Notes:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2088 + * - The cost of a REG is always zero; this cannot be changed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2089 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2090 + * - On the 6809, instructions on two registers will nearly always take
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2091 + * longer than those that operate on a register and a constant/memory,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2092 + * because of the way the instruction set is structured.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2093 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2094 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2095 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2096 +static bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2097 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2098 + int *total, bool speed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2099 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2100 + int has_const_arg = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2101 + HOST_WIDE_INT const_arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2102 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2103 + int nargs = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2104 + rtx op0, op1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2105 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2106 + /* Data RTXs return a value between 0-3, depending on complexity.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2107 + All of these are less than COSTS_N_INSNS(1). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2108 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2109 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2110 + case CC0:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2111 + case PC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2112 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2113 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2114 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2115 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2116 + if (X == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2117 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2118 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2119 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2120 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2121 + else if ((unsigned) INTVAL (X) < 077)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2122 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2123 + *total = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2124 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2125 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2126 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2127 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2128 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2129 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2130 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2131 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2132 + case LABEL_REF: case CONST:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2133 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2134 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2135 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2136 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2137 + /* References to memory are made cheaper if they have
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2138 + * the 'direct' mode attribute set */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2139 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2140 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2141 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2142 + case MEM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2143 + /* See what form of address was given */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2144 + X = XEXP (X, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2145 + switch (GET_CODE (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2146 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2147 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2148 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2149 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2150 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2151 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2152 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2153 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2154 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2155 + case MEM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2156 + *total = COSTS_N_INSNS (1) + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2157 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2158 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2159 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2160 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2161 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2162 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2163 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2164 + case CONST_DOUBLE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2165 + /* TODO : not sure about this value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2166 + *total = 3;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2167 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2168 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2169 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2170 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2171 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2172 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2173 + /* Decode the rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2174 + mode = GET_MODE (X);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2175 + op0 = XEXP (X, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2176 + op1 = XEXP (X, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2177 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2178 + /* We don't implement anything in SImode or greater. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2179 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2180 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2181 + *total = COSTS_N_INSNS (100);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2182 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2183 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2184 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2185 + /* Figure out if there is a constant argument, and its value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2186 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2187 + || GET_RTX_CLASS (code) == RTX_COMM_ARITH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2188 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2189 + nargs = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2190 + if (GET_CODE (op1) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2191 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2192 + has_const_arg = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2193 + const_arg = INTVAL (op1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2194 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2195 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2196 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2197 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2198 + * Ignore soft registers, since these are really in memory.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2199 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2200 + * TODO: penalize HImode reg/reg for most operations, except maybe
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2201 + * additions since index registers allow for that.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2202 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2203 + * TODO: shifts by constant N do not always require N instructions;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2204 + * some of this can be done cheaper. The number of actual insns can be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2205 + * predicted well.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2206 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2207 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2208 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2209 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2210 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2211 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2212 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2213 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2214 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2215 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2216 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2217 + the estimated number of actual machine instructions needed to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2218 + perform the computation. Some small adjustments are made since
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2219 + some "instructions" are more complex than others. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2220 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2221 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2222 + case PLUS: case MINUS: case COMPARE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2223 + /* 6809 handles these natively in QImode, and in HImode as long
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2224 + * as operand 1 is constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2225 + if (mode == QImode || (mode == HImode && has_const_arg))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2226 + *total += COSTS_N_INSNS (1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2227 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2228 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2229 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2230 + /* -1, 0, and 1 can be done using inherent instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2231 + * for PLUS and MINUS in QImode, so don't add extra cost. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2232 + if (has_const_arg
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2233 + && (mode == QImode || mode == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2234 + && (const_arg == -1 || const_arg == 0 || const_arg == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2235 + && (code == PLUS || code == MINUS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2236 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2237 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2238 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2239 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2240 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2241 + case AND: case IOR: case XOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2242 + case NEG: case NOT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2243 + /* 6809 handles these natively in QImode, but requires
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2244 + * splitting in HImode. Treat these as 2 insns. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2245 + *total += COSTS_N_INSNS (1) * GET_MODE_SIZE (mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2246 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2247 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2248 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2249 + case ROTATE: case ROTATERT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2250 + /* 6809 can do shift/rotates of a QImode by a constant in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2251 + * 1 insn times the shift count, or in HImode by a constant
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2252 + * by splitting to 2 insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2253 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2254 + * Shift by a nonconstant will take significantly longer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2255 + * than any of these. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2256 + if (has_const_arg)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2257 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2258 + const_arg %= (GET_MODE_SIZE (mode) * 8);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2259 + if (const_arg == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2260 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2261 + *total += COSTS_N_INSNS(1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2262 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2263 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2264 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2265 + /* HImode shifts greater than 8 get optimized due
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2266 + * to register transfer from b to a; this cuts down the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2267 + * cost. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2268 + if (const_arg >= 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2269 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2270 + *total += COSTS_N_INSNS (1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2271 + const_arg -= 8;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2272 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2273 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2274 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2275 + if in HImode, minus the cost of the constant itself which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2276 + will be added in later but really shouldn't be. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2277 + *total += COSTS_N_INSNS (const_arg) * GET_MODE_SIZE (mode) - 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2278 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2279 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2280 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2281 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2282 + /* It may take up to 7 iterations of about 6-7 real
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2283 + * instructions, so make this expensive. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2284 + *total += COSTS_N_INSNS (50);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2285 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2286 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2287 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2288 + case MULT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2289 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2290 + /* Multiply is cheap when both arguments are 8-bits. They
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2291 + could be QImode, or QImode widened to HImode, or a constant
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2292 + that fits into 8-bits. As long as both operands qualify,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2293 + we can use a single mul instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2294 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2295 + Assume that fast multiply can be used, and change this if we find
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2296 + differently... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2297 + int ok_for_qihi3 = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2298 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2299 + /* Check the first operand */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2300 + switch (GET_MODE (op0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2301 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2302 + case QImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2303 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2304 + case HImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2305 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2306 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2307 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2308 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2309 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2310 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2311 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2312 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2313 + /* Likewise, check the second operand. This is where constants may appear. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2314 + switch (GET_MODE (op1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2315 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2316 + case QImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2317 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2318 + case HImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2319 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2320 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2321 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2322 + case VOIDmode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2323 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2324 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2325 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2326 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2327 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2328 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2329 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2330 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2331 + /* Fast multiply takes about 4 times as many cycles as a normal
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2332 + arithmetic operation. Otherwise, it will take an expensive libcall. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2333 + if (ok_for_qihi3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2334 + *total += COSTS_N_INSNS (4);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2335 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2336 + *total = COSTS_N_INSNS (50);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2337 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2338 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2339 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2340 + case DIV: case UDIV: case MOD: case UMOD:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2341 + /* These all require more expensive libcalls. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2342 + *total += COSTS_N_INSNS (100);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2343 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2344 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2345 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2346 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2347 + /* These can normally be done with autoincrement, etc., so
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2348 + * don't charge for them. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2349 + case PRE_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2350 + case PRE_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2351 + case POST_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2352 + case POST_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2353 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2354 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2355 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2356 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2357 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2358 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2359 + /* Always return false, and let the caller gather the costs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2360 + * of the operands */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2361 + return false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2362 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2363 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2364 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2365 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2366 +m6809_handle_fntype_attribute (tree *node, tree name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2367 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2368 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2369 + bool *no_add_attrs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2370 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2371 + if (TREE_CODE (*node) != FUNCTION_TYPE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2372 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2373 + warning (WARNING_OPT "'%s' only valid for functions",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2374 + IDENTIFIER_POINTER (name));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2375 + *no_add_attrs = TRUE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2376 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2377 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2378 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2379 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2380 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2381 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2382 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2383 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2384 + tree name ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2385 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2386 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2387 + bool *no_add_attrs ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2388 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2389 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2390 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2391 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2392 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2393 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2394 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2395 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2396 + tree name ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2397 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2398 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2399 + bool *no_add_attrs ATTRIBUTE_UNUSED )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2400 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2401 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2402 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2403 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2404 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2405 +/* Table of valid machine attributes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2406 +const struct attribute_spec m6809_attribute_table[] = { /*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2407 +{ name, min, max, decl, type, fntype, handler } */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2408 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2409 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2410 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2411 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2412 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2413 +{ NULL, 0, 0, false, true, false, NULL },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2414 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2415 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2416 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2417 +/** Initialize builtin routines for the 6809. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2418 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2419 +m6809_init_builtins (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2420 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2421 + /* Create type trees for each function signature required.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2422 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2423 + * void_ftype_void = void f(void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2424 + * void_ftype_uchar = void f(unsigned char)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2425 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2426 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2427 + tree void_ftype_void =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2428 + build_function_type (void_type_node, void_list_node);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2429 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2430 + tree void_ftype_uchar =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2431 + build_function_type (void_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2432 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2433 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2434 + tree uchar_ftype_uchar2 =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2435 + build_function_type (unsigned_char_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2436 + tree_cons (NULL_TREE, unsigned_char_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2437 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2438 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2439 + /* Register each builtin function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2440 + add_builtin_function ("__builtin_swi", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2441 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2442 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2443 + add_builtin_function ("__builtin_swi2", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2444 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2445 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2446 + add_builtin_function ("__builtin_swi3", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2447 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2449 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2450 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2451 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2452 + add_builtin_function ("__builtin_sync", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2453 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2454 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2455 + add_builtin_function ("__builtin_nop", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2456 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2457 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2458 + add_builtin_function ("__builtin_blockage", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2459 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2460 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2461 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2462 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2464 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2465 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2466 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2467 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2468 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2469 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2470 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2471 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2472 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2473 + * refers to the operands of a builtin call, return an rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2474 + * that represents the nth operand, as denoted by OPNUM, which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2475 + * is a zero-based integer. MODE gives the expected mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2476 + * of the operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2477 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2478 + * This rtx is suitable for use in the emitted RTL for the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2479 + * builtin instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2480 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2481 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2482 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2483 + tree arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2484 + rtx r;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2485 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2486 + arg = CALL_EXPR_ARG (arglist, opnum);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2487 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2488 + /* Convert the tree to RTL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2489 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2490 + if (r == NULL_RTX)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2491 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2492 + return r;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2493 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2494 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2495 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2496 +/** Expand a builtin that was registered in init_builtins into
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2497 + * RTL. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2498 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2499 +m6809_expand_builtin (tree exp,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2500 + rtx target,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2501 + rtx subtarget ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2502 + enum machine_mode mode ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2503 + int ignore ATTRIBUTE_UNUSED )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2504 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2505 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2506 + tree arglist = exp;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2507 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2508 + rtx r0, r1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2509 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2510 + switch (fcode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2511 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2512 + case M6809_SWI:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2513 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2514 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2515 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2516 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2517 + case M6809_SWI2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2518 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2519 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2520 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2521 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2522 + case M6809_SWI3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2523 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2524 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2525 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2526 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2527 + case M6809_CWAI:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2528 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2529 + emit_insn (target = gen_m6809_cwai (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2530 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2531 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2532 + case M6809_SYNC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2533 + emit_insn (target = gen_m6809_sync ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2534 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2535 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2536 + case M6809_ADD_CARRY:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2537 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2538 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2539 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2540 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2541 + emit_insn (gen_addqi3_carry (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2542 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2543 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2544 + case M6809_SUB_CARRY:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2545 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2546 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2547 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2548 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2549 + emit_insn (gen_subqi3_carry (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2550 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2551 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2552 + case M6809_NOP:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2553 + emit_insn (target = gen_nop ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2554 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2555 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2556 + case M6809_BLOCKAGE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2557 + emit_insn (target = gen_blockage ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2558 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2559 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2560 + case M6809_ADD_DECIMAL:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2561 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2562 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2563 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2564 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2565 + emit_insn (gen_addqi3_decimal (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2566 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2567 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2568 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2569 + warning (WARNING_OPT "unknown builtin expansion ignored");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2570 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2571 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2572 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2573 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2574 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2576 +/* Returns nonzero if 'x' represents a function that was declared
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2577 + * as __noreturn__. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2578 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2579 +noreturn_functionp (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2580 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2581 + tree decl = call_target_decl (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2582 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2583 + if (decl == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2584 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2585 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2586 + return TREE_THIS_VOLATILE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2587 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2588 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2589 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2590 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2591 +far_function_type_p (tree type)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2592 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2593 + tree attr;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2594 + const char *page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2595 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2596 + /* Return whether or not this decl has the far attribute */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2597 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2598 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2599 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2600 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2601 + /* If it is far, check for a value */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2602 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2603 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2604 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2605 + warning (WARNING_OPT "far code page not specified, using local value");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2606 + return far_code_page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2607 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2608 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2609 + /* We have a TREE_LIST of attribute values, get the first one.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2610 + * It should be an INTEGER_CST. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2611 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2612 + page = TREE_STRING_POINTER (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2613 + return page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2614 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2615 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2616 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2617 +/* For a far function, returns the identifier that states which page
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2618 + * it resides in. Otherwise, returns NULL for ordinary functions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2619 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2620 +far_functionp (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2621 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2622 + tree decl, decl_type;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2623 + const char *page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2624 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2625 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2626 + decl = call_target_decl (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2627 + if (decl == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2628 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2629 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2630 + /* See if the function has the new 'banked' attribute. These
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2631 + * are numeric instead of text */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2632 + page = m6809_get_decl_bank (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2633 + if (page)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2634 + return page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2635 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2636 + /* No, lookup the type of the function and see if the type
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2637 + * specifies far or not. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2638 + decl_type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2639 + if (decl_type == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2640 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2641 + return far_function_type_p (decl_type);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2642 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2643 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2644 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2645 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2646 +/** Outputs the assembly language for a far call. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2647 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2648 +output_far_call_insn (rtx *operands, int has_return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2649 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2650 + static char page_data[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2651 + const char *called_page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2652 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2653 + /* The logic is the same for functions whether or not there
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2654 + * is a return value. Skip over the return value in this
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2655 + * case, so that the call location is always operands[0]. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2656 + if (has_return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2657 + operands++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2658 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2659 + /* Get the name of the page being called */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2660 + called_page = far_functionp (operands[0]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2661 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2662 +#if 0 /* TODO : broken logic */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2663 + /* See if the called page name is a 'bank' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2664 + if (isdigit (*called_page))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2665 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2666 + /* New style banking */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2667 + if (!strcmp (called_page, current_bank_name))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2668 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2669 + /* Same page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2670 + output_asm_insn ("jsr\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2671 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2672 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2673 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2674 + /* Different page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2675 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2676 + output_asm_insn ("\t.dw\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2677 + sprintf (page_data, "\t.db\t%s", called_page);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2678 + output_asm_insn (page_data, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2679 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2680 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2681 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2682 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2683 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2684 + /* Are we calling a different page than we are running in? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2685 + if (!strcmp (called_page, far_code_page))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2686 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2687 + /* Same page : no need to execute a far call */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2688 + if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2689 + output_asm_insn ("lbsr\t%C0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2690 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2691 + output_asm_insn ("jsr\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2692 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2693 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2694 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2695 + /* Different page : need to emit far call thunk */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2696 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2697 + /* First output a call to the thunk for making far calls. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2698 + if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2699 + output_asm_insn ("lbsr\t__far_call_handler", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2700 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2701 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2702 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2703 + /* Now output the name of the call site */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2704 + output_asm_insn ("\t.dw\t%C0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2705 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2706 + /* Finally output the page number */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2707 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2708 + output_asm_insn (page_data, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2709 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2710 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2711 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2712 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2713 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2714 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2715 + tree fntype,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2716 + rtx libname ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2717 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2718 + cum = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2719 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2720 + /* For far functions, the current implementation does not allow for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2721 + * stack parameters. So note whenever the called function is far
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2722 + * and in a different page than the current one; such a function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2723 + * should give an error if a stack parameter is generated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2724 + if (fntype)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2725 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2726 + const char *called_page = far_function_type_p (fntype);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2727 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2728 + cum |= CUM_STACK_INVALID;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2729 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2730 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2731 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2732 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2733 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2734 + /* has variable arguments, cannot use registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2735 + cum |= (CUM_X_MASK | CUM_B_MASK | CUM_STACK_ONLY);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2736 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2737 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2738 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2739 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2740 + /* cannot use registers ; only use the stack */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2741 + cum |= (CUM_STACK_ONLY | CUM_X_MASK | CUM_B_MASK);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2742 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2743 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2744 + return cum;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2745 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2747 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2748 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2749 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2750 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2751 + if (*cump & CUM_STACK_INVALID)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2752 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2753 + *cump &= ~CUM_STACK_INVALID;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2754 + error ("far function needs stack, will not work");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2755 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2756 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2757 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2758 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2759 +void m6809_asm_trampoline_template(FILE *f)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2760 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2761 + fprintf(f, "ldy #0000\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2762 + fprintf(f, "jmp 0x0000\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2763 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2765 +/*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2766 + * Trampoline output:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2767 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2768 + * ldu #&cxt 4 bytes --LDY- ?? ??
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2769 + * jmp fnaddr 3 bytes JMP ?? ??
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2770 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2771 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2772 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2773 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2774 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2775 + /* TODO - optimize by generating the entire trampoline code here,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2776 + * and removing the template altogether, since there are only two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2777 + * bytes there that matter. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2778 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2779 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2780 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2781 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2782 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2783 +/** Echo the version of the compiler and the name of the source file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2784 + * at the beginning of each assembler output file. asm_out_file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2785 + * is a global FILE * pointing to the output stream. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2786 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2787 +m6809_asm_file_start (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2788 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2789 + const char *module_name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2790 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2791 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2792 + __DATE__, __TIME__);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2793 + fprintf (asm_out_file, ";;; %s\n", version_string);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2794 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2795 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2796 + fprintf (asm_out_file, ";;; %s\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2797 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2798 + if (TARGET_EXPERIMENT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2799 + fprintf (asm_out_file, ";;; -mexperiment\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2800 + if (TARGET_WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2801 + fprintf (asm_out_file, ";;; -mwpc\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2802 + if (TARGET_6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2803 + fprintf (asm_out_file, ";;; -m6309\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2804 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2805 + /* Print the name of the module, which is taken as the base name
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2806 + * of the input file.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2807 + * See the 'User-Defined Symbols' section of the assembler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2808 + * documentation for the rules on valid symbols.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2809 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2810 + module_name = lbasename (main_input_filename);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2811 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2812 + fprintf (asm_out_file, "\t.module\t");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2813 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2814 + if (*module_name >= '0' && *module_name <= '9')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2815 + fprintf (asm_out_file, "_");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2816 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2817 + while (*module_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2818 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2819 + if ((*module_name >= '0' && *module_name <= '9')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2820 + || (*module_name >= 'A' && *module_name <= 'Z')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2821 + || (*module_name >= 'a' && *module_name <= 'z')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2822 + || *module_name == '$'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2823 + || *module_name == '.'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2824 + || *module_name == '_')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2825 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2826 + fprintf (asm_out_file, "%c", *module_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2827 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2828 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2829 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2830 + fprintf (asm_out_file, "_");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2831 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2832 + module_name++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2833 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2834 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2835 + fprintf (asm_out_file, "\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2836 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2837 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2838 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2839 +/** Returns true if prologue/epilogue code is required for the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2840 + * current function being compiled.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2841 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2842 + * This is just the inverse of whether the function is declared as
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2843 + * 'naked'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2844 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2845 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2846 +prologue_epilogue_required (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2847 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2848 + return !m6809_current_function_has_type_attr_p ("naked")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2849 + && !m6809_current_function_has_type_attr_p ("noreturn");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2850 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2851 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2852 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2853 +/** Expand RTL for function entry */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2854 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2855 +emit_prologue_insns (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2856 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2857 + rtx insn;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2858 + unsigned int live_regs = m6809_get_live_regs ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2859 + unsigned int frame_size = get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2860 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2861 + /* Save all registers used, including the frame pointer */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2862 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2863 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2864 + insn = emit_insn (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2865 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2866 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2867 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2868 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2869 + /* Allocate space for local variables */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2870 + if (frame_size != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2871 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2872 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2873 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2874 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2875 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2876 + /* Set the frame pointer if it is needed */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2877 + if (frame_pointer_needed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2878 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2879 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2880 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2881 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2882 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2883 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2884 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2885 +/** Expand RTL for function exit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2886 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2887 +emit_epilogue_insns (bool sibcall_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2888 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2889 + unsigned int live_regs = m6809_get_live_regs ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2890 + unsigned int frame_size = get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2891 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2892 + if (frame_size != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2893 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2894 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2895 + if (sibcall_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2896 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2897 + if (live_regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2898 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2899 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2900 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2901 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2902 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2903 + emit_insn (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2904 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT | live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2905 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2906 + if (m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2907 + emit_jump_insn (gen_return_rti ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2908 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2909 + emit_jump_insn (gen_return_rts ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2910 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2911 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2912 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2913 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2914 +/** Predefine some preprocessor names according to the currently
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2915 + * selected compiler options */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2916 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2917 +m6809_cpu_cpp_builtins (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2918 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2919 + if (TARGET_6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2920 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2921 + builtin_define_std ("__M6309__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2922 + builtin_define_std ("__m6309__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2923 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2924 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2925 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2926 + builtin_define_std ("__M6809__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2927 + builtin_define_std ("__m6809__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2928 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2929 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2930 + if (TARGET_BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2931 + builtin_define_std ("__int8__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2932 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2933 + builtin_define_std ("__int16__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2934 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2935 + switch (m6809_abi_version)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2936 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2937 + case M6809_ABI_VERSION_STACK:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2938 + builtin_define_std ("__regargs__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2939 + builtin_define_std ("__ABI_STACK__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2940 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2941 + case M6809_ABI_VERSION_REGS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2942 + builtin_define_std ("__ABI_REGS__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2943 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2944 + case M6809_ABI_VERSION_BX:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2945 + builtin_define_std ("__ABI_BX__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2946 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2947 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2948 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2949 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2950 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2951 + if (TARGET_WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2952 + builtin_define_std ("__WPC__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2953 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2954 + if (TARGET_DRET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2955 + builtin_define_std ("__DRET__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2956 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2957 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2958 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2959 +#define MAX_ASM_ASCII_STRING 48
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2960 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2961 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2962 +m6809_output_ascii (FILE *fp, const char *str, unsigned long size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2963 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2964 + unsigned long i;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2965 + bool use_ascii = true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2966 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2967 + /* If the size is too large, then break this up into multiple
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2968 + outputs. The assembler can only output roughly 48 bytes at a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2969 + time. Note that if there are lots of escape sequences in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2970 + the string, this may fail. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2971 + if (size > MAX_ASM_ASCII_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2972 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2973 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2974 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2975 + size - MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2976 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2977 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2978 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2979 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2980 + for (i = 0; i < size; i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2981 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2982 + int c = str[i] & 0377;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2983 + if (c >= 0x80)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2984 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2985 + use_ascii = false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2986 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2987 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2988 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2989 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2990 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2991 + fprintf (fp, "\t.ascii \"");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2992 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2993 + for (i = 0; i < size; i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2994 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2995 + int c = str[i] & 0377;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2996 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2997 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2998 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
2999 + /* Just output the plain character if it is printable,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3000 + otherwise output the escape code for the character.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3001 + The assembler recognizes the same C-style octal escape sequences,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3002 + except that it only supports 7-bit codes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3003 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3004 + putc (c, fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3005 + else switch (c)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3006 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3007 + case '\n':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3008 +#ifndef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3009 + fputs ("\\n", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3010 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3011 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3012 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3013 + case '\r':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3014 + fputs ("\\r", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3015 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3016 + case '\t':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3017 + fputs ("\\t", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3018 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3019 + case '\f':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3020 + fputs ("\\f", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3021 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3022 + case 0:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3023 + fputs ("\\0", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3024 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3025 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3026 + fprintf (fp, "\\%03o", c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3027 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3028 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3029 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3030 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3031 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3032 + fprintf (fp, "\t.byte\t0x%02X\n", c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3033 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3034 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3035 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3036 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3037 + fprintf (fp, "\"\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3038 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3039 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3040 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3041 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3042 +m6809_output_quoted_string (FILE *asm_file, const char *string)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3043 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3044 + char c;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3045 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3046 + if (strlen (string) > MAX_ASM_ASCII_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3047 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3048 + /* The string length is too large. We'll have to truncate it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3049 + This is only called from debugging functions, so it's usually
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3050 + not critical. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3051 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3052 + char truncated_string[MAX_ASM_ASCII_STRING+1];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3053 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3054 + /* Copy as many characters as we can. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3055 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3056 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3057 + string = truncated_string;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3058 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3059 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3060 + /* Copied from toplev.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3061 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3062 + putc ('\"', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3063 + while ((c = *string++) != 0) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3064 + if (ISPRINT (c)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3065 + if (c == '\"' || c == '\\')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3066 + putc ('\\', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3067 + putc (c, asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3068 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3069 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3070 + fprintf (asm_file, "\\%03o", (unsigned char) c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3071 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3072 + putc ('\"', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3073 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3074 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3075 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3076 +/** Output the assembly code for a shift instruction where the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3077 + * shift count is not constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3078 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3079 +m6809_output_shift_insn (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3080 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3081 + struct shift_opcode *op;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3082 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3083 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3084 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3085 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3086 + if (optimize_size && GET_MODE (operands[0]) == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3087 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3088 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3089 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3090 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3091 + output_asm_insn ("jsr\t_ashlhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3092 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3093 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3094 + output_asm_insn ("jsr\t_ashrhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3095 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3096 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3097 + output_asm_insn ("jsr\t_lshrhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3098 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3099 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3100 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3101 + else if (GET_MODE (operands[0]) == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3102 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3103 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3104 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3105 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3106 + m6809_gen_register_shift (operands, "aslb", "rola");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3107 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3108 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3109 + m6809_gen_register_shift (operands, "asra", "rorb");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3110 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3111 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3112 + m6809_gen_register_shift (operands, "lsra", "rorb");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3113 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3114 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3115 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3116 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3117 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3118 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3119 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3120 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3121 + m6809_gen_register_shift (operands, "aslb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3122 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3123 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3124 + m6809_gen_register_shift (operands, "asrb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3125 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3126 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3127 + m6809_gen_register_shift (operands, "lsrb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3128 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3129 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3130 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3131 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3132 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3133 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3134 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3135 +m6809_emit_move_insn (rtx dst, rtx src)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3136 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3137 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3138 + if (ACC_A_REG_P (dst))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3139 + emit_insn (gen_rtx_USE (VOIDmode, dst));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3140 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3141 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3142 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3143 +/** Split a complex shift instruction into multiple CPU
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3144 + * shift instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3145 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3146 +m6809_split_shift (enum rtx_code code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3147 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3148 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3149 + int count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3150 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3151 + mode = GET_MODE (operands[0]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3152 + count = INTVAL (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3153 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3154 + /* Handle a shift count outside the range of 0 .. N-1, where
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3155 + * N is the mode size in bits. We normalize the count, and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3156 + * for negative counts we also invert the direction of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3157 + * shift. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3158 + if ((count < 0) || (count >= 8 * GET_MODE_SIZE (mode)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3159 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3160 + if (count < 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3161 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3162 + count = -count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3163 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3164 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3165 + count %= (8 * GET_MODE_SIZE (mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3166 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3167 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3168 + gen_rtx_CONST_INT (VOIDmode, count)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3169 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3170 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3171 + /* Handle shift by zero explicitly as a no-op. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3172 + if (count == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3173 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3174 + emit_insn (gen_nop ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3175 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3176 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3177 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3178 + /* Decompose the shift by a constant N > 8 into two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3179 + * shifts, first by 8 and then by N-8.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3180 + * This "speeds up" the process for large shifts that would be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3181 + * handled below, but allows for some optimization.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3182 + * In some cases shift by 8 can be implemented fast. If an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3183 + * instruction to shift by 8 is defined, it will be used here;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3184 + * otherwise it will be further decomposed as below. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3185 + if (mode == HImode && count > 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3186 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3187 + rtx output = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3188 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3189 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3190 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3191 + gen_rtx_CONST_INT (VOIDmode, 8)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3192 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3193 + /* Unsigned shifts always produce a zero in either the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3194 + * upper or lower half of the output; then, that part
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3195 + * does not need to be shifted anymore. We modify the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3196 + * output and the subsequent instructions to operate in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3197 + * QImode only on the relevant part. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3198 + if (REG_P (output))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3199 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3200 + if (code == ASHIFT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3201 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3202 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3203 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3204 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3205 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3206 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3207 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3208 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3209 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3210 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3211 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3212 + m6809_emit_move_insn (output,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3213 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3214 + gen_rtx_CONST_INT (VOIDmode, count-8)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3215 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3216 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3217 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3218 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3219 + * (near to the maximum of 8) as a rotate and mask. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3220 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3221 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3222 + unsigned int mask;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3223 + unsigned int was_signed = (code == ASHIFTRT);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3224 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3225 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3226 + if (code == ROTATE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3227 + mask = (count == 6) ? 0x03 : 0x01;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3228 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3229 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3230 + count = 9 - count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3231 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3232 + do {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3233 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3234 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3235 + } while (--count != 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3236 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3237 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3238 + gen_rtx_fmt_ee (AND, QImode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3239 + gen_rtx_CONST_INT (VOIDmode, mask)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3240 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3241 + if (was_signed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3242 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3243 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3244 + if (ACC_A_REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3245 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3246 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3247 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3248 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3249 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3250 + /* Decompose the shift by any constant N > 1 into a sequence
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3251 + * of N shifts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3252 + * This is done recursively, by creating a shift by 1 and a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3253 + * shift by N-1, as long as N>1. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3254 + if (count > 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3255 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3256 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3257 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3258 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3259 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3260 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3261 + gen_rtx_CONST_INT (VOIDmode, count-1)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3262 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3263 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3264 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3265 + /* Decompose the single shift of a 16-bit quantity into two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3266 + * CPU instructions, one for each 8-bit half.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3267 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3268 + if (mode == HImode && count == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3269 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3270 + rtx first, second;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3271 + enum rtx_code rotate_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3272 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3273 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3274 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3275 + /* Split the operand into two 8-bit entities.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3276 + * FIRST is the one that will get shifted via a regular CPU
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3277 + * instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3278 + * SECOND is the one that will have the result of the first shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3279 + * rotated in.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3280 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3281 + * We initialize first and second as if we are doing a left shift,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3282 + * then swap the operands if it's a right shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3283 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3284 + if (REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3285 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3286 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3287 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3288 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3289 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3290 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3291 + first = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3292 + second = adjust_address (operands[0], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3293 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3294 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3295 + if (rotate_code == ROTATERT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3296 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3297 + rtx tmp; tmp = first; first = second; second = tmp;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3298 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3299 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3300 + /* Decompose into a shift and a rotate instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3301 + m6809_emit_move_insn (first,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3302 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3303 + m6809_emit_move_insn (second,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3304 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3305 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3306 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3307 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3308 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3309 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3310 +/** Adjust register usage based on compile-time flags. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3311 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3312 +m6809_conditional_register_usage (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3313 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3314 + unsigned int soft_regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3315 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3316 +#ifdef CONFIG_SOFT_REGS_ALWAYS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3317 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3318 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3319 + if (!m6809_soft_reg_count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3320 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3321 + m6809_soft_regs = atoi (m6809_soft_reg_count);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3322 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3323 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3324 + if (m6809_soft_regs == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3325 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3326 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3327 + if (m6809_soft_regs > NUM_M_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3328 + m6809_soft_regs = NUM_M_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3329 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3330 + /* Registers are marked FIXED by default. Free up if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3331 + the user wishes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3332 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3333 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3334 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3335 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3336 + /* Mark the softregs as call-clobbered, so that they need
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3337 + * not be saved/restored on function entry/exit. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3338 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3339 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3340 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3341 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3342 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3343 +/** Return a RTX representing how to return a value from a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3344 + VALTYPE gives the type of the value, FUNC identifies the function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3345 + itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3346 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3347 + In general, we only care about the width of the result. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3348 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3349 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3350 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3351 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3352 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3353 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3354 + /* Get the mode (i.e. width) of the result. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3355 + mode = TYPE_MODE (valtype);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3356 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3357 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3358 + regno = HARD_Z_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3359 + else if (mode == QImode || (TARGET_DRET && mode == HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3360 + regno = HARD_D_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3361 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3362 + regno = HARD_X_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3363 + return gen_rtx_REG (mode, regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3364 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3365 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3366 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3367 +/** Return 1 if REGNO is possibly needed to return the result
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3368 +of a function, 0 otherwise. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3369 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3370 +m6809_function_value_regno_p (unsigned int regno)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3371 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3372 + if (regno == HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3373 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3374 + else if ((TARGET_BYTE_INT || TARGET_DRET) && regno == HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3375 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3376 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3377 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3378 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3379 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3380 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3381 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3382 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3383 +#ifdef TRACE_PEEPHOLE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3384 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3385 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3386 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3387 + if (stage == PEEP_END)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3388 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3389 + printf ("%s: peephole %d pattern and predicate matched\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3390 + main_input_filename, peephole_id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3391 + fflush (stdout);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3392 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3393 + else if (stage == PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3394 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3395 + printf ("%s: peephole %d? at least pattern matched\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3396 + main_input_filename, peephole_id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3397 + fflush (stdout);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3398 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3399 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3400 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3401 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3402 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3403 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3404 + unsigned int stage ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3405 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3406 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3407 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3408 +#endif /* TRACE_PEEPHOLE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3409 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3410 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3411 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3412 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3413 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3414 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3415 + /* Soft registers, as they are just memory, can really hold
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3416 + values of any type. However we restrict them to values of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3417 + size HImode or QImode to prevent exhausting them for larger
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3418 + values.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3419 + Word values cannot be placed into the first soft register,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3420 + as it is the low byte that is being placed there, which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3421 + corrupts the (non-soft) register before it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3422 + if (M_REGNO_P (regno))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3423 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3424 + switch (GET_MODE_SIZE (mode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3425 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3426 + case 1:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3427 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3428 + case 2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3429 + return regno != SOFT_M0_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3430 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3431 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3432 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3433 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3434 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3435 + /* VOIDmode can be stored anywhere */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3436 + else if (mode == VOIDmode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3437 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3438 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3439 + /* Zero is a reserved register, but problems occur if we don't
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3440 + say yes here??? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3441 + else if (regno == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3442 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3443 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3444 + /* For other registers, return true only if the requested size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3445 + exactly matches the hardware size. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3446 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3447 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3448 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3449 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3450 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3451 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3452 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3453 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3454 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3455 +/* exp is the call expression. DECL is the called function,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3456 + * or NULL for an indirect call */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3457 +bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3458 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3459 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3460 + tree type, arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3461 + const char *name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3462 + bool result = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3463 + int argcount = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3464 + int step = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3465 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3466 + /* If there is no DECL, it is an indirect call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3467 + * Never optimize this??? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3468 + if (decl == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3469 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3470 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3471 + /* Never allow an interrupt handler to be optimized this way. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3472 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3473 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3474 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3475 + /* Skip sibcall if the type can't be found for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3476 + * some reason */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3477 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3478 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3479 + type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3480 + if (type == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3481 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3482 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3483 + /* Skip sibcall if the target is a far function */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3484 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3485 + if (far_function_type_p (type) != NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3486 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3487 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3488 + /* Skip sibcall if the called function's arguments are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3489 + * variable */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3490 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3491 + if (TYPE_ARG_TYPES (type) == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3492 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3493 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3494 + /* Allow sibcalls in other cases. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3495 + result = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3496 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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); */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3498 + return result;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3499 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3500 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3501 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3502 +/** Emit code for the 'casesi' pattern.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3503 + * This pattern is only used in 8-bit mode, and can be disabled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3504 + * with -mold-case there as well. The rationale for this is to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3505 + * do a better job than the simpler but well-tested 'tablejump'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3506 + * method.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3507 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3508 + * For small jumptables, where the switch expression is an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3509 + * 8-bit value, the lookup can be done more efficiently
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3510 + * using the "B,X" style index mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3511 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3512 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3513 + rtx table_label, rtx default_label)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3514 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3515 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3516 + rtx scaled;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3517 + rtx table_in_reg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3518 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3519 + /* expr.c has to be patched so that it does not promote
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3520 + * the expression to SImode, but rather to HImode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3521 + * Fail now if that isn't the case. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3522 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3523 + error ("try_casesi promotion bug");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3524 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3525 + /* Determine whether or not we are going to work primarily in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3526 + * QImode or HImode. This depends on the size of the index
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3527 + * into the lookup table. QImode can only be used when the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3528 + * index is less than 0x40, since it will be doubled but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3529 + * must remain unsigned. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3530 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3531 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3532 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3533 + mode = HImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3534 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3535 + /* Convert to QImode if necessary */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3536 + if (mode == QImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3537 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3538 + index = gen_lowpart_general (mode, index);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3539 + lower_bound = gen_lowpart_general (mode, lower_bound);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3540 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3541 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3542 + /* Translate from case value to table index by subtraction */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3543 + if (lower_bound != const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3544 + index = expand_binop (mode, sub_optab, index, lower_bound,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3545 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3546 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3547 + /* Emit compare-and-jump to test for index out-of-range */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3548 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3549 + default_label);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3550 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3551 + /* Put the table address is in a register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3552 + table_in_reg = gen_reg_rtx (Pmode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3553 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3554 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3555 + /* Emit table lookup and jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3556 + if (mode == QImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3557 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3558 + /* Scale the index */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3559 + scaled = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3560 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3561 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3562 + /* Emit the jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3563 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3564 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3565 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3566 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3567 + /* Scale the index */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3568 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3569 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3570 + /* Emit the jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3571 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3572 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3573 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3574 + /* Copied from expr.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3575 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3576 + emit_barrier ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3577 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3578 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3579 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3580 +/** Output the assembly code for a 32-bit add/subtract. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3581 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3582 +m6809_output_addsi3 (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3583 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3584 + rtx xoperands[8];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3585 + rtx dst = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3586 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3587 + /* Prepare the operands by splitting each SImode into two HImodes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3588 + that can be operated independently. The high word of operand 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3589 + is further divided into two QImode components for use with 'adc'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3590 + style instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3591 + xoperands[7] = operands[3];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3592 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3593 + xoperands[0] = adjust_address (dst, HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3594 + xoperands[3] = adjust_address (dst, HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3595 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3596 +#if 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3597 + xoperands[2] = adjust_address (operands[1], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3598 + xoperands[6] = adjust_address (operands[1], HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3599 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3600 + /* Operand 2 may be a MEM or a CONST_INT */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3601 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3602 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3603 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3604 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3605 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3606 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3607 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3608 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3609 + xoperands[1] = adjust_address (operands[2], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3610 + xoperands[4] = adjust_address (operands[2], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3611 + xoperands[5] = adjust_address (operands[2], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3612 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3613 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3614 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3615 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3616 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3617 + xoperands[1] = adjust_address (operands[1], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3618 + xoperands[4] = adjust_address (operands[1], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3619 + xoperands[5] = adjust_address (operands[1], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3620 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3621 + /* Operand 2 may be a MEM or a CONST_INT */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3622 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3623 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3624 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3625 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3626 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3627 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3628 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3629 + xoperands[2] = adjust_address (operands[2], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3630 + xoperands[6] = adjust_address (operands[2], HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3631 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3632 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3633 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3634 + /* Output the assembly code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3635 + if (rtx_code == PLUS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3636 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3637 + output_asm_insn ("ld%7\t%2", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3638 + output_asm_insn ("add%7\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3639 + output_asm_insn ("st%7\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3640 + output_asm_insn ("ld%7\t%6", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3641 + output_asm_insn ("adcb\t%5", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3642 + output_asm_insn ("adca\t%4", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3643 + output_asm_insn ("st%7\t%3", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3644 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3645 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3646 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3647 + output_asm_insn ("ld%7\t%2", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3648 + output_asm_insn ("sub%7\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3649 + output_asm_insn ("st%7\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3650 + output_asm_insn ("ld%7\t%6", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3651 + output_asm_insn ("sbcb\t%5", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3652 + output_asm_insn ("sbca\t%4", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3653 + output_asm_insn ("st%7\t%3", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3654 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3655 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3656 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3657 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3658 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3659 +/** Output the assembly code for a 32-bit shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3660 +Operands 0 and 1 must be the same rtx, forced by a matching
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3661 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3662 +"d" in case a temporary reg is needed. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3663 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3664 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3665 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3666 + unsigned int count = INTVAL (operands[2]) % 32;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3667 + unsigned int size = 4; /* sizeof (SImode) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3668 + int s;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3669 + rtx xoperands[4];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3670 + int op;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3671 + int start, end, step;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3672 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3673 + /* Initialize */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3674 + if (rtx_code == ASHIFT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3675 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3676 + start = size-1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3677 + end = -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3678 + step = -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3679 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3680 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3681 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3682 + start = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3683 + end = size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3684 + step = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3685 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3686 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3687 + xoperands[2] = operands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3688 + xoperands[3] = operands[3];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3689 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3690 + if (count <= 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3691 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3692 + if (rtx_code == ROTATE || rtx_code == ROTATERT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3693 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3694 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3695 + /* Extract bit shifts over 16 bits by HImode moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3696 + if (count >= 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3697 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3698 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3699 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3700 + /* Extract bit shifts over 8 bits by QImode moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3701 + if (count >= 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3702 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3703 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3705 + /* Iterate over the number of bits to be shifted. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3706 + while (count > 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3707 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3708 + /* Each bit to be shifted requires 1 proper bit shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3709 + and 3 rotates. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3710 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3711 + /* First, do the arithmetic/logical shift. Left shifts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3712 + start from the LSB; right shifts start from the MSB. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3713 + xoperands[0] = adjust_address (operands[0], QImode, start);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3714 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3715 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3716 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3717 + output_asm_insn ("asl\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3718 + start--;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3719 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3720 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3721 + output_asm_insn ("asr\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3722 + start++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3723 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3724 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3725 + output_asm_insn ("lsr\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3726 + start++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3727 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3728 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3729 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3730 + /* Next, rotate the other bytes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3731 + for (s = start; s != end; s += step)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3732 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3733 + xoperands[0] = adjust_address (operands[0], QImode, s);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3734 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3735 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3736 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3737 + output_asm_insn ("rol\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3738 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3739 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3740 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3741 + output_asm_insn ("ror\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3742 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3743 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3744 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3745 + count--;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3746 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3747 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3748 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3749 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3750 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3751 +power_of_two_p (unsigned int n)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3752 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3753 + return (n & (n-1)) == 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3754 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3756 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3757 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3758 +m6809_can_eliminate (int from, int to)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3759 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3760 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3761 + return !frame_pointer_needed;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3762 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3763 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3765 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3766 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3767 +m6809_initial_elimination_offset (int from, int to)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3768 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3769 + switch (from)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3770 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3771 + case ARG_POINTER_REGNUM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3772 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3773 + case FRAME_POINTER_REGNUM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3774 + return get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3775 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3776 + gcc_unreachable ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3777 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3778 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3779 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3780 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3781 +bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3782 +m6809_frame_pointer_required (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3783 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3784 + return false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3785 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3787 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3788 +/* Defines the target-specific hooks structure. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3789 +struct gcc_target targetm = TARGET_INITIALIZER;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3793 @@ -0,0 +1,1352 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3794 +/* Definitions of target machine for GNU compiler. MC6809 version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3795 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3796 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3797 + Space Astronomy Laboratory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3798 + University of Wisconsin at Madison
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3799 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3800 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3801 + ( msdoerfe@informatik.uni-erlangen.de )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3802 + also added #pragma interrupt (inspired by gcc-6811)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3803 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3804 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3805 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3806 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3807 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3808 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3809 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3810 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3811 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3812 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3813 + changes for gcc-3.1.1 by ???
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3814 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3815 + further changes for gcc-3.1.1 and beyond by Brian Dominy
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3816 + (brian@oddchange.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3817 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3819 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3820 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3821 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3822 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3823 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3824 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3825 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3826 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3827 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3828 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3829 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3830 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3831 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3832 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3833 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3834 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3835 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3836 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3837 +/* Helper macros for creating strings with macros */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3838 +#define C_STRING(x) C_STR(x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3839 +#define C_STR(x) #x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3840 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3841 +/* Certain parts of GCC include host-side includes, which is bad.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3842 + * Some things that get pulled in need to be undone.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3843 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3844 +#undef HAVE_GAS_HIDDEN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3845 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3846 +/* Names to predefine in the preprocessor for this target machine. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3847 +/*#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3848 +#define TARGET_CPU_CPP_BUILTINS() do \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3849 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3850 + if (TARGET_6309) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3851 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3852 + builtin_define_std ("__M6309__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3853 + builtin_define_std ("__m6309__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3854 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3855 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3856 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3857 + builtin_define_std ("__M6809__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3858 + builtin_define_std ("__m6809__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3859 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3860 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3861 + if (TARGET_BYTE_INT) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3862 + builtin_define_std ("__int8__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3863 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3864 + builtin_define_std ("__int16__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3865 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3866 + switch (m6809_abi_version) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3867 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3868 + case M6809_ABI_VERSION_STACK: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3869 + builtin_define_std ("__regargs__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3870 + builtin_define_std ("__ABI_STACK__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3871 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3872 + case M6809_ABI_VERSION_REGS: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3873 + builtin_define_std ("__ABI_REGS__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3874 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3875 + case M6809_ABI_VERSION_BX: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3876 + builtin_define_std ("__ABI_BX__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3877 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3878 + default: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3879 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3880 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3881 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3882 + if (TARGET_WPC) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3883 + builtin_define_std ("__WPC__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3884 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3885 + if (TARGET_DRET) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3886 + builtin_define_std ("__DRET__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3887 + } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3888 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3889 +/* As an embedded target, we have no libc. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3890 +#ifndef inhibit_libc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3891 +#define inhibit_libc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3892 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3893 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3894 +/* Print subsidiary information on the compiler version in use. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3895 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3896 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3897 +/* Run-time compilation parameters selecting different hardware subsets. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3898 +/*extern int target_flags; */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3899 +extern short *reg_renumber; /* def in local_alloc.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3900 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3901 +/* Runtime current values of section names */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3902 +extern int section_changed;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3903 +extern char code_section_op[], data_section_op[], bss_section_op[];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3904 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3905 +#define WARNING_OPT 0,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3906 +/*extern const char *m6809_abi_version_ptr; */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3907 +extern unsigned int m6809_soft_regs;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3908 +extern unsigned int m6809_abi_version;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3909 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3910 +/* ABI versions */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3911 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3912 +#define M6809_ABI_VERSION_STACK 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3913 +#define M6809_ABI_VERSION_REGS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3914 +#define M6809_ABI_VERSION_BX 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3915 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3916 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3917 +/* Allow $ in identifiers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3918 +#define DOLLARS_IN_IDENTIFIERS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3919 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3920 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3921 + Target machine storage layout
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3922 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3923 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3924 +/* Define this if most significant bit is lowest numbered
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3925 + in instructions that operate on numbered bit-fields. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3926 +#define BITS_BIG_ENDIAN 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3927 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3928 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3929 +#define BYTES_BIG_ENDIAN 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3930 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3932 +#define WORDS_BIG_ENDIAN 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3933 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3934 +/* Number of bits in an addressible storage unit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3935 +#define BITS_PER_UNIT 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3936 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3937 +/* Width in bits of a "word", or the contents of a machine register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3938 + * Although the 6809 has a few byte registers, define this to 16-bits
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3939 + * since this is the natural size of most registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3940 +#define BITS_PER_WORD 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3941 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3942 +/* Width of a word, in units (bytes). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3943 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3944 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3945 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3946 +#define POINTER_SIZE 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3947 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3948 +/* Allocation boundary (bits) for storing pointers in memory. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3949 +#define POINTER_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3950 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3951 +/* Allocation boundary (bits) for storing arguments in argument list. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3952 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3953 +#define PARM_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3954 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3955 +/* Boundary (bits) on which stack pointer should be aligned. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3956 +#define STACK_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3957 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3958 +/* Allocation boundary (bits) for the code of a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3959 +#define FUNCTION_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3960 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3961 +/* Alignment of field after `int : 0' in a structure. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3962 +#define EMPTY_FIELD_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3963 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3964 +/* Every structure's size must be a multiple of this. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3965 +#define STRUCTURE_SIZE_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3966 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3967 +/* Largest mode size to use when putting an object, including
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3968 + * a structure, into a register. By limiting this to 16, no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3969 + * 32-bit objects will ever be allocated to a pair of hard
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3970 + * registers. This is a good thing, since there aren't that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3971 + * many of them. 32-bit objects are only needed for floats
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3972 + * and "long long"s. Larger values have been tried and did not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3973 + * work. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3974 +#define MAX_FIXED_MODE_SIZE 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3975 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3976 +/* No data type wants to be aligned rounder than this. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3977 +#define BIGGEST_ALIGNMENT 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3978 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3979 +/* Define this if move instructions will actually fail to work
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3980 + when given unaligned data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3981 +#define STRICT_ALIGNMENT 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3982 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3983 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3984 + Standard register usage.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3985 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3986 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3987 +/* Register values as bitmasks.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3988 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3989 + * register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3990 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3991 +#define D_REGBIT (1 << HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3992 +#define X_REGBIT (1 << HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3993 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3994 +#define U_REGBIT (1 << HARD_U_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3995 +#define S_REGBIT (1 << HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3996 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3997 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3998 +#define A_REGBIT (1 << HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
3999 +#define B_REGBIT (1 << HARD_B_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4000 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4001 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4002 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4003 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4004 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4005 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4006 +/* Macros for dealing with set of registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4007 + * A register set is just a bitwise-OR of all the register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4008 + * bitmask values. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4009 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4010 +/* Which registers can hold 8-bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4011 +#define BYTE_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4012 + (Z_REGBIT | A_REGBIT | D_REGBIT | CC_REGBIT | DP_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4013 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4014 +/* Which registers can hold 16-bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4015 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4016 +#define WORD_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4018 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4019 +/* Returns nonzero if a given REGNO is in the REGSET. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4020 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4021 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4022 +/* Defines related to the number of soft registers supported.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4023 + * The actual number used may be less depending on -msoft-reg-count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4024 + * If you change one of these, you should change them all. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4025 +#define NUM_M_REGS 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4026 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4027 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4028 +#define HARD_M_REGNUMS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4031 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4032 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4033 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4034 +/* Number of actual hardware registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4035 + The hardware registers are assigned numbers for the compiler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4036 + from 0 to just below FIRST_PSEUDO_REGISTER.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4037 + All registers that the compiler knows about must be given numbers,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4038 + even those that are not normally considered general registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4039 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4040 + for some reason, GCC won't compile if that name is used here directly. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4041 +#ifdef SOFT_M0_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4042 +#if (SOFT_M0_REGNUM != 14)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4043 +#error "bad register numbering"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4044 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4045 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4046 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4047 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4048 +/* 1 for registers that have pervasive standard uses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4049 + and are not available for the register allocator.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4050 + The psuedoregisters (M_REGS) are declared fixed here, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4051 + will be unfixed if -msoft-reg-count is seen later. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4052 +#define FIXED_REGISTERS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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, }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4054 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4055 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4056 +/* 1 for registers not available across function calls.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4057 + These must include the FIXED_REGISTERS and also any
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4058 + registers that can be used without being saved.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4059 + The latter must include the registers where values are returned
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4060 + and the register where structure-value addresses are passed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4061 + Aside from that, you can include as many other registers as you like. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4062 +#define CALL_USED_REGISTERS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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, }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4064 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4065 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4066 +/* Return number of consecutive hard regs needed starting at reg REGNO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4067 + to hold something of mode MODE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4068 + For the 6809, we distinguish between word-length and byte-length
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4069 + registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4070 +#define HARD_REGNO_NREGS(REGNO, MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4071 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4072 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4073 + (GET_MODE_SIZE (MODE)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4074 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4075 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4076 +/* Value is 1 if hard register REGNO can hold a value
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4077 +of machine-mode MODE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4078 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4079 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4080 +/* Value is 1 if it is a good idea to tie two pseudo registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4081 + when one has mode MODE1 and one has mode MODE2.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4082 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4083 + for any hard reg, then this must be 0 for correct output. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4084 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4085 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4086 +/* Specify the registers used for certain standard purposes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4087 + The values of these macros are register numbers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4088 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4089 +/* program counter if referenced as a register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4090 +#define PC_REGNUM HARD_PC_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4091 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4092 +/* Register to use for pushing function arguments. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4093 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4094 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4095 +/* Base register for access to local variables of the function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4096 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4097 + * the elimination pass will convert these to STACK_POINTER_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4098 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4099 + * avoid tying up a hard register (U) for the frame pointer if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4100 + * it can be eliminated entirely, making it available for use as
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4101 + * a general register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4102 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4103 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4105 +/* Define a table of possible eliminations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4106 + * The idea is to try to avoid using hard registers for the argument
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4107 + * and frame pointers if they can be derived from the stack pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4108 + * instead, which already has a hard register reserved for it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4109 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4110 + * The order of entries in this table will try to convert
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4111 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4112 + * references first, but if that fails, they will be converted to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4113 + * HARD_FRAME_POINTER_REGNUM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4114 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4115 +#define ELIMINABLE_REGS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4116 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4117 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4118 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4119 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4120 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4121 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4122 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4123 +/* Define how to offset the frame or argument pointer to turn it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4124 + * into a stack pointer reference. This is based on the way that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4125 + * the frame is constructed in the function prologue. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4126 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4127 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4128 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4129 +/* Base register for access to arguments of the function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4130 + * This is only used prior to reload; no instructions will ever
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4131 + * be output referring to this register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4132 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4133 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4134 +/* Register in which static-chain is passed to a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4135 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4136 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4137 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4138 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4139 +/* Order in which hard registers are allocated to pseudos.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4140 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4141 + * Since the D register is the only valid reg for 8-bit values
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4142 + * now, avoid using it for 16-bit values by putting it after all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4143 + * other 16-bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4144 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4145 + * Prefer X first since the first 16-bit function argument goes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4146 + * there. We may be able to pass in to a subroutine without
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4147 + * a copy.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4148 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4149 + * Prefer U over Y since instructions using Y take one extra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4150 + * byte, and thus one extra cycle to execute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4151 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4152 +#define REG_ALLOC_ORDER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4153 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4154 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4155 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4156 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4157 + 6, HARD_Z_REGNUM }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4158 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4159 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4160 + classes of registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4161 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4162 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4163 +/* Define the classes of registers for register constraints in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4164 + machine description. Also define ranges of constants.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4165 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4167 + If there is more than one class, another class must be named NO_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4168 + and contain no registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4169 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4171 + another name such as ALL_REGS). This is the class of registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4172 + that is allowed by "g" or "r" in a register constraint.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4173 + Also, registers outside this class are allocated only when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4174 + instructions express preferences for them.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4175 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4176 + The classes must be numbered in nondecreasing order; that is,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4177 + a larger-numbered class must never be contained completely
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4178 + in a smaller-numbered class.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4180 + For any two classes, it is very desirable that there be another
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4181 + class that represents their union. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4182 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4183 +enum reg_class {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4184 + NO_REGS, /* The trivial class with no registers in it */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4185 + D_REGS, /* 16-bit (word (HI)) data (D) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4186 + ACC_A_REGS, /* The A register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4187 + ACC_B_REGS, /* The B register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4188 + X_REGS, /* The X register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4189 + Z_REGS, /* The Z (zero-bit) register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4190 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4191 + M_REGS, /* 8-bit (byte (QI)) soft registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4192 + CC_REGS, /* 8-bit condition code register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4193 + I_REGS, /* An index register (A,B,D) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4194 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4195 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4196 + S_REGS, /* 16-bit soft registers (FP, AP) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4197 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4198 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4199 + ALL_REGS, /* All registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4200 + LIM_REG_CLASSES
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4201 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4202 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4203 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4204 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4205 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4206 + it is not an alias to ALL_REGS, but to G_REGS. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4207 +#define GENERAL_REGS G_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4208 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4209 +/* Give names of register classes as strings for dump file. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4210 +#define REG_CLASS_NAMES \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4212 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4213 + "ALL_REGS" }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4214 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4215 +/* Define which registers fit in which classes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4216 + This is an initializer for a vector of HARD_REG_SET
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4217 + of length N_REG_CLASSES. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4218 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4219 +#define D_REGSET (D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4220 +#define ACC_A_REGSET (A_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4221 +#define ACC_B_REGSET (D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4222 +#define X_REGSET (X_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4223 +#define Z_REGSET (Z_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4224 +#define Q_REGSET (D_REGBIT | A_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4225 +#define M_REGSET (SOFT_M_REGBITS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4226 +#define CC_REGSET (CC_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4227 +#define I_REGSET (A_REGBIT | B_REGBIT | D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4228 +#define T_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4229 +#define A_REGSET (X_REGBIT | Y_REGBIT | U_REGBIT | S_REGBIT | PC_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4230 +#define S_REGSET (SOFT_FP_REGBIT | SOFT_AP_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4231 +#define P_REGSET (D_REGBIT | X_REGBIT | Y_REGBIT | U_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4232 +#define G_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4233 + (D_REGSET | Q_REGSET | I_REGSET | A_REGSET | M_REGSET | S_REGSET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4234 +#define ALL_REGSET (G_REGSET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4235 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4236 +#define REG_CLASS_CONTENTS { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4237 + {0}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4238 + {D_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4239 + {ACC_A_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4240 + {ACC_B_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4241 + {X_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4242 + {Z_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4243 + {Q_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4244 + {M_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4245 + {CC_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4246 + {I_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4247 + {T_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4248 + {A_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4249 + {S_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4250 + {P_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4251 + {G_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4252 + {ALL_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4253 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4254 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4255 +/* The same information, inverted.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4256 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4257 + * these two sets of definitions are always consistent. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4258 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4259 +#define REGNO_REG_CLASS(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4260 + (D_REGNO_P (REGNO) ? D_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4261 + (Z_REGNO_P (REGNO) ? Z_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4262 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4263 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4264 + (X_REGNO_P (REGNO) ? X_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4265 + (Q_REGNO_P (REGNO) ? Q_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4266 + (M_REGNO_P (REGNO) ? M_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4267 + (CC_REGNO_P (REGNO) ? CC_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4268 + (I_REGNO_P (REGNO) ? I_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4269 + (T_REGNO_P (REGNO) ? T_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4270 + (A_REGNO_P (REGNO) ? A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4271 + (S_REGNO_P (REGNO) ? S_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4272 + (P_REGNO_P (REGNO) ? P_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4273 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4274 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4275 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4276 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4277 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4278 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4279 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4280 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4281 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4282 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4283 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4284 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4285 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4286 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4287 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4288 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4289 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4290 +/* Macros that test an rtx 'X' to see if it's in a particular
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4291 + * register class. 'X' need not be a REG necessarily. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4292 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4293 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4296 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4297 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4298 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4299 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4300 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4301 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4302 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4303 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4304 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4305 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4306 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4307 +/* Redefine this in terms of BYTE_REGSET */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4308 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4309 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4310 +/* The class value for index registers, and the one for base regs. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4311 +#define INDEX_REG_CLASS I_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4312 +#define BASE_REG_CLASS A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4313 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4314 +/* Get reg_class from a letter in the machine description. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4315 +#define REG_CLASS_FROM_LETTER(C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4316 + (((C) == 'a' ? A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4317 + ((C) == 'd' ? D_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4318 + ((C) == 'x' ? I_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4319 + ((C) == 't' ? M_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4320 + ((C) == 'c' ? CC_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4321 + ((C) == 'A' ? ACC_A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4322 + ((C) == 'B' ? ACC_B_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4323 + ((C) == 'v' ? X_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4324 + ((C) == 'u' ? S_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4325 + ((C) == 'U' ? P_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4326 + ((C) == 'T' ? T_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4327 + ((C) == 'z' ? Z_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4328 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4329 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4330 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4331 + The letters I through O in a register constraint string
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4332 + can be used to stand for particular ranges of immediate operands.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4333 + This macro defines what the ranges are.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4334 + C is the letter, and VALUE is a constant value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4335 + Return 1 if VALUE is in the range specified by C.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4336 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4337 + For the 6809, J, K, L are used for indexed addressing.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4338 + `I' is used for the constant 1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4339 + `J' is used for the 5-bit offsets.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4340 + `K' is used for the 8-bit offsets.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4341 + `L' is used for the range of signed numbers that fit in 16 bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4342 + `M' is used for the exact value '8'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4343 + `N' is used for the constant -1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4344 + `O' is used for the constant 0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4345 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4346 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4347 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4348 + ((C) == 'I' ? ((VALUE) == 1) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4349 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4350 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4351 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4352 + (C) == 'M' ? ((VALUE) == 8) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4353 + (C) == 'N' ? ((VALUE) == -1) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4354 + (C) == 'O' ? ((VALUE) == 0) : 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4356 +/* Similar, but for floating constants, and defining letters G and H.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4357 + No floating-point constants are valid on MC6809. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4358 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4359 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4360 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4361 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4362 +/* Given an rtx X being reloaded into a reg required to be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4363 + in class CLASS, return the class of reg to actually use.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4364 + In general this is just CLASS; but on some machines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4365 + in some cases it is preferable to use a more restrictive class. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4366 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4367 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4368 +#define SMALL_REGISTER_CLASSES 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4369 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4370 +/* Return the maximum number of consecutive registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4371 + needed to represent mode MODE in a register of class CLASS. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4372 +#define CLASS_MAX_NREGS(CLASS, MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4373 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4374 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4375 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4376 + Stack layout; function entry, exit and calling.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4377 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4378 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4379 +/* Define this if pushing a word on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4380 + makes the stack pointer a smaller address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4381 +#define STACK_GROWS_DOWNWARD
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4382 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4383 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4384 +/* Define this if the nominal address of the stack frame
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4385 + is at the high-address end of the local variables;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4386 + that is, each additional local variable allocated
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4387 + goes at a more negative offset in the frame. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4388 +#define FRAME_GROWS_DOWNWARD 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4389 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4390 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4391 +/* Offset within stack frame to start allocating local variables at.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4392 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4393 + first local allocated. Otherwise, it is the offset to the BEGINNING
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4394 + of the first local allocated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4395 +#define STARTING_FRAME_OFFSET 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4396 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4397 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4398 +/* Always push stack arguments for now. Accumulation is not yet working. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4399 +#define PUSH_ROUNDING(BYTES) (BYTES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4400 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4401 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4402 +/* Offset of first parameter from the argument pointer register value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4403 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4405 +#define FIRST_PARM_OFFSET(FNDECL) 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4406 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4407 +/* Value is 1 if returning from a function call automatically
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4408 + pops the arguments described by the number-of-args field in the call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4409 + FUNTYPE is the data type of the function (as a tree),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4410 + or for a library call it is an identifier node for the subroutine name. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4411 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4412 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4413 +/* Define how to find the value returned by a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4414 + VALTYPE is the data type of the value (as a tree).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4415 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4416 + otherwise, FUNC is 0. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4417 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4418 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4419 +/* Define how to find the value returned by a library function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4420 + assuming the value has mode MODE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4421 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4422 +/* All return values are in the X-register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4423 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4424 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4425 +/* Define this if using the nonreentrant convention for returning
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4426 + structure and union values. No; it is inefficient and buggy. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4427 +#undef PCC_STATIC_STRUCT_RETURN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4428 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4429 +/* 1 if N is a possible register number for a function value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4430 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4431 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4432 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4433 + more than one register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4434 +#define NEEDS_UNTYPED_CALL 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4435 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4436 +/* 1 if N is a possible register number for function argument passing. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4437 +#define FUNCTION_ARG_REGNO_P(N) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4438 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4439 + (((N) == HARD_D_REGNUM) || ((N) == HARD_X_REGNUM)) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4440 + 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4441 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4442 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4443 + Argument Lists
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4444 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4445 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4446 +/* Cumulative arguments are tracked in a single integer,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4447 + * which is the number of bytes of arguments scanned so far,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4448 + * plus which registers have already been used. The register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4449 + * info is kept in some of the upper bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4450 +#define CUMULATIVE_ARGS unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4451 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4452 +#define CUM_STACK_ONLY 0x80000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4453 +#define CUM_X_MASK 0x40000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4454 +#define CUM_B_MASK 0x20000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4455 +#define CUM_STACK_INVALID 0x10000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4456 +#define CUM_STACK_MASK 0xFFFFFFF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4457 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4458 +#define CUM_ADVANCE_8BIT(cum) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4459 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) |= CUM_B_MASK))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4460 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4461 +#define CUM_ADVANCE_16BIT(cum) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4462 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) |= CUM_X_MASK))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4464 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4465 + for a call to a function whose data type is FNTYPE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4466 + For a library call, FNTYPE is 0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4467 + N_NAMED was added in gcc 3.4 and is not used currently. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4468 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4469 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4470 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4471 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4472 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4473 + : (unsigned) int_size_in_bytes (TYPE))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4474 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4475 +/* Update the data in CUM to advance over an argument
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4476 + of mode MODE and data type TYPE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4477 + (TYPE is null for libcalls where that information may not be available.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4478 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4479 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4480 + CUM_ADVANCE_8BIT (CUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4481 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4482 + CUM_ADVANCE_16BIT (CUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4483 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4484 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4485 +/* Define where to put the arguments to a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4486 + Value is zero to push the argument on the stack,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4487 + or a hard register rtx in which to store the argument.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4488 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4489 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4490 + For the 6809, the first 8-bit function argument can be placed into B,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4491 + and the first 16-bit arg can go into X. All other arguments
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4492 + will be pushed onto the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4493 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4494 + Command-line options can adjust this behavior somewhat.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4495 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4496 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4497 + ((MODE == VOIDmode) ? NULL_RTX : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4498 + ((MODE == BLKmode) || (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4499 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY | CUM_B_MASK))) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4500 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4501 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY | CUM_X_MASK))) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4502 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4503 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4504 +/* Output assembler code to FILE to increment profiler label # LABELNO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4505 + for profiling a function entry. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4506 +#define FUNCTION_PROFILER(FILE, LABELNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4507 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4508 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4509 +/* Stack pointer must be correct on function exit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4510 +#define EXIT_IGNORE_STACK 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4511 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4512 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4513 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4514 +** Trampolines for Nested Functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4515 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4516 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4517 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4518 +/* Length in units of the trampoline for entering a nested function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4519 +#define TRAMPOLINE_SIZE 7
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4520 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4521 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4522 + Addressing modes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4523 + and classification of registers for them.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4524 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4525 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4526 +/* 6809 has postincrement and predecrement addressing modes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4527 +#define HAVE_POST_INCREMENT 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4528 +#define HAVE_PRE_DECREMENT 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4529 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4530 +/* Whether or not to use index registers is configurable.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4531 + * Experiments show that things work better when this is off, so
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4532 + * that's the way it is for now. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4533 +#undef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4534 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4535 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4536 +/* Macros to check register numbers against specific register classes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4537 +#define REG_VALID_FOR_BASE_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4538 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4539 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4540 +/* MC6809 index registers do not allow scaling, */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4541 +/* but there is "accumulator-offset" mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4542 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4543 +#define REG_VALID_FOR_INDEX_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4544 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4545 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4546 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4547 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4548 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4549 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4550 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4551 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4552 + || REG_VALID_FOR_BASE_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4553 + || (REGNO) == FRAME_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4554 + || (REGNO) == HARD_FRAME_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4555 + || (REGNO) == ARG_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4556 + || (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4557 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4558 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4559 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4560 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4561 + || REG_VALID_FOR_INDEX_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4562 + || (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4563 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4564 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4565 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4566 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4567 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4568 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4569 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4570 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4571 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4572 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4573 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4574 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4576 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4577 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4578 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4579 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4580 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4585 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4586 +#ifndef REG_OK_STRICT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4587 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4588 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4589 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4590 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4591 +#define REG_OK_FOR_INDEX_P(X) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4592 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4593 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4594 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4595 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4596 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4597 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4598 +#define REG_OK_FOR_INDEX_P(X) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4599 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4600 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4601 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4602 +/* Maximum number of registers that can appear in a valid memory address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4603 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4604 +#define MAX_REGS_PER_ADDRESS 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4605 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4606 +#define MAX_REGS_PER_ADDRESS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4607 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4608 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4609 +/* 1 if X is an rtx for a constant that is a valid address.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4610 + * We allow any constant, plus the sum of any two constants (this allows
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4611 + * offsetting a symbol ref) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4612 +#define CONSTANT_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4613 + ((CONSTANT_P (X)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4614 + || ((GET_CODE (X) == PLUS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4615 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4616 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4617 +/* Nonzero if the constant value X is a legitimate general operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4618 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4619 +/* Any single-word constant is ok; the only contexts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4620 + allowing general_operand of mode DI or DF are movdi and movdf. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4621 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4622 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4623 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4624 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4625 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4626 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4627 + Test for valid memory addresses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4628 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4629 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4630 + that is a valid memory address for an instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4631 + The MODE argument is the machine mode for the MEM expression
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4632 + that wants to use this address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4633 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4634 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4635 + Valid addresses are either direct or indirect (MEM) versions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4636 + of the following forms.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4637 + constant N
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4638 + register ,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4639 + constant indexed N,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4640 + accumulator indexed D,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4641 + auto_increment ,X++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4642 + auto_decrement ,--X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4643 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4644 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4645 +#define REGISTER_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4646 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4647 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4648 +#define EXTENDED_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4649 + CONSTANT_ADDRESS_P (X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4650 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4651 +#define LEGITIMATE_BASE_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4652 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4653 + || (GET_CODE (X) == SIGN_EXTEND \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4654 + && GET_CODE (XEXP (X, 0)) == REG \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4655 + && GET_MODE (XEXP (X, 0)) == HImode \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4656 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4657 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4658 +#define LEGITIMATE_OFFSET_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4659 + (CONSTANT_ADDRESS_P (X) || (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4660 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4661 +/* 1 if X is the sum of a base register and an offset. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4662 +#define INDEXED_ADDRESS(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4663 + ((GET_CODE (X) == PLUS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4664 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4665 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4666 + || (GET_CODE (X) == PLUS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4667 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4668 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4669 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4670 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4671 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4672 +#define STACK_PUSH_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4674 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4675 +#define STACK_POP_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4677 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4678 +#define PUSH_POP_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4679 + (((GET_CODE (X) == PRE_DEC) || (GET_CODE (X) == POST_INC)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4680 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4681 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4682 +/* Go to ADDR if X is a valid address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4683 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4684 +{ \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4685 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4686 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4687 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4688 + if (INDEXED_ADDRESS (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4689 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4690 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4691 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4692 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4693 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4694 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4695 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4696 + Address Fix-up
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4697 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4698 +/* Go to LABEL if ADDR (a legitimate address expression)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4699 + has an effect that depends on the machine mode it is used for.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4700 + In the latest GCC, this case is already handled by the core code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4701 + so no action is required here. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4702 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4703 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4705 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4706 + Miscellaneous Parameters
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4707 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4708 +/* Specify the machine mode that this machine uses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4709 + for the index in the tablejump instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4710 +#define CASE_VECTOR_MODE Pmode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4711 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4712 +/* Define this as 1 if `char' should by default be signed; else as 0. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4713 +#define DEFAULT_SIGNED_CHAR 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4714 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4715 +/* This flag, if defined, says the same insns that convert to a signed fixnum
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4716 + also convert validly to an unsigned one. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4717 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4718 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4719 +/* Max number of bytes we can move from memory to memory/register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4720 + in one reasonably fast instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4721 +#define MOVE_MAX 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4722 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4723 +/* Int can be 8 or 16 bits (default is 16) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4724 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4725 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4726 +/* Short is always 16 bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4727 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4728 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4729 +/* Size (bits) of the type "long" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4730 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4731 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4732 +/* Size (bits) of the type "long long" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4733 +#define LONG_LONG_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4734 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4735 +/* Size (bits) of the type "char" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4736 +#define CHAR_TYPE_SIZE 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4737 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4738 +/* Size (bits) of the type "float" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4739 +#define FLOAT_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4740 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4741 +/* Size (bits) of the type "double" on target machine.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4742 + * Note that the C standard does not require that doubles
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4743 + * hold any more bits than float. Since the 6809 has so few
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4744 + * registers, we cannot really support more than 32-bits. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4745 +#define DOUBLE_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4747 +/* Size (bits) of the type "long double" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4748 +#define LONG_DOUBLE_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4749 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4750 +/* Define the type used for "size_t". With a 64KB address space,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4751 + * only a 16-bit value here makes sense. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4752 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4753 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4754 +/* Likewise, the difference between two pointers is also a 16-bit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4755 + * signed value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4756 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4757 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4758 +/* Nonzero if access to memory by bytes is slow and undesirable. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4759 +#define SLOW_BYTE_ACCESS 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4760 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4761 +/* Define if shifts truncate the shift count
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4762 + which implies one can omit a sign-extension or zero-extension
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4763 + of a shift count. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4764 +#define SHIFT_COUNT_TRUNCATED 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4765 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4766 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4767 + is done just by pretending it is already truncated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4768 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4769 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4770 +/* It is as good to call a constant function address as to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4771 + call an address kept in a register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4772 +#define NO_FUNCTION_CSE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4773 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4774 +/* Specify the machine mode that pointers have.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4775 + After generation of rtl, the compiler makes no further distinction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4776 + between pointers and any other objects of this machine mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4777 +#define Pmode HImode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4778 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4779 +/* A function address in a call instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4780 + is a byte address (for indexing purposes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4781 + so give the MEM rtx a byte's mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4782 +#define FUNCTION_MODE HImode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4784 +/* Define the cost of moving a value from a register in CLASS1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4785 + * to CLASS2, of a given MODE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4786 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4787 + * On the 6809, hard register transfers are all basically equivalent.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4788 + * But soft register moves are treated more like memory moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4789 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4790 + (((CLASS1 == M_REGS) || (CLASS2 == M_REGS)) ? 4 : 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4791 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4792 +/* Define the cost of moving a value between a register and memory. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4793 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4794 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4795 +/* Check a `double' value for validity for a particular machine mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4796 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4797 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4798 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4799 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4800 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4801 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4802 + machine-dependent
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4803 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4804 +/* Tell final.c how to eliminate redundant test instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4805 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4806 +/* Here we define machine-dependent flags and fields in cc_status
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4807 + (see `conditions.h'). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4808 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4809 +/* Store in cc_status the expressions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4810 + that the condition codes will describe
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4811 + after execution of an instruction whose pattern is EXP.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4812 + Do not alter them if the instruction would not alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4813 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4814 +/* On the 6809, most of the insns to store in an address register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4815 + fail to set the cc's. However, in some cases these instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4816 + can make it possibly invalid to use the saved cc's. In those
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4818 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4819 +#define NOTICE_UPDATE_CC(EXP, INSN) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4820 + notice_update_cc((EXP), (INSN))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4821 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4822 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4823 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4824 +** pragma support
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4825 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4826 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4827 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4828 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4829 +#define REGISTER_TARGET_PRAGMAS() \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4830 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4831 + extern void pragma_section PARAMS ((cpp_reader *)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4832 + c_register_pragma (0, "section", pragma_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4833 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4834 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4835 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4836 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4837 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4838 + ASSEMBLER FORMAT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4839 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4840 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4841 +#define FMT_HOST_WIDE_INT "%ld"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4843 +/* Output to assembler file text saying following lines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4844 + may contain character constants, extra white space, comments, etc. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4845 +#define ASM_APP_ON ";----- asm -----\n"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4846 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4847 +/* Output to assembler file text saying following lines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4848 + no longer contain unusual constructs. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4849 +#define ASM_APP_OFF ";--- end asm ---\n"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4850 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4851 +/* Use a semicolon to begin a comment. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4852 +#define ASM_COMMENT_START "; "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4853 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4854 +/* Output assembly directives to switch to section 'name' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4855 +#undef TARGET_ASM_NAMED_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4856 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4857 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4858 +#undef TARGET_HAVE_NAMED_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4859 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4860 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4861 +/* Output before read-only data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4862 +#define TEXT_SECTION_ASM_OP (code_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4863 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4864 +/* Output before writable data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4865 +#define DATA_SECTION_ASM_OP (data_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4866 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4867 +/* Output before uninitialized data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4868 +#define BSS_SECTION_ASM_OP (bss_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4869 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4870 +/* Support the ctors and dtors sections for g++. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4872 +#undef CTORS_SECTION_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4873 +#define CTORS_SECTION_ASM_OP "\t.area .ctors"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4874 +#undef DTORS_SECTION_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4875 +#define DTORS_SECTION_ASM_OP "\t.area .dtors"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4876 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4877 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4878 +#undef DO_GLOBAL_CTORS_BODY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4879 +#undef DO_GLOBAL_DTORS_BODY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4880 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4881 +#define HAS_INIT_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4882 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4883 +/* This is how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4884 + that says to advance the location counter
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4885 + to a multiple of 2**LOG bytes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4887 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4888 + if ((LOG) > 1) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4889 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4890 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4891 +/* The .set foo,bar construct doesn't work by default */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4892 +#undef SET_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4893 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4894 + do \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4895 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4896 + fputc ('\t', FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4897 + assemble_name (FILE, LABEL1); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4898 + fputs (" = ", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4899 + assemble_name (FILE, LABEL2); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4900 + fputc ('\n', FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4901 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4902 + while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4903 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4904 +/* How to refer to registers in assembler output.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4905 + This sequence is indexed by compiler's hard-register-number (see above). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4906 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4907 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4908 +#define REGISTER_NAMES { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4909 + [HARD_D_REGNUM]= "d", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4910 + [HARD_X_REGNUM]= "x", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4911 + [HARD_Y_REGNUM]= "y", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4912 + [HARD_U_REGNUM]= "u", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4913 + [HARD_S_REGNUM]= "s", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4914 + [HARD_PC_REGNUM]= "pc", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4915 + [HARD_A_REGNUM]= "a", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4916 + [HARD_B_REGNUM]= "b", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4917 + [HARD_CC_REGNUM]= "cc",\
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4918 + [HARD_DP_REGNUM]= "dp", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4919 + [SOFT_FP_REGNUM]= "soft_fp", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4920 + [SOFT_AP_REGNUM]= "soft_ap", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4921 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4922 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4923 + [HARD_RSVD1_REGNUM] = "-", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4924 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4925 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4926 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4927 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4928 +** Debug Support
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4929 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4930 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4931 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4932 +/* Default to DBX-style debugging */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4933 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4934 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4935 +#define DBX_DEBUGGING_INFO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4936 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4937 +#define DEFAULT_GDB_EXTENSIONS 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4938 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4939 +#define ASM_STABS_OP ";\t.stabs\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4940 +#define ASM_STABD_OP ";\t.stabd\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4941 +#define ASM_STABN_OP ";\t.stabn\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4942 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4943 +#define DBX_CONTIN_LENGTH 54
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4944 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4945 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4946 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4947 + const char *p = FILENAME; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4948 + while ((p = strchr (p, '/')) != NULL) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4949 + p = FILENAME = p+1; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4950 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4951 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4952 + output_quoted_string (ASMFILE, FILENAME); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4953 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4954 + assemble_name (ASMFILE, ltext_label_name); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4955 + fputc ('\n', ASMFILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4956 + switch_to_section (text_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4957 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4958 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4959 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4960 +/* With -g, GCC sometimes outputs string literals that are longer than
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4961 + * the assembler can handle. Without actual debug support, these are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4962 + * not really required. Redefine the function to output strings to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4963 + * output as much as possible. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4964 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4965 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4966 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4967 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4968 +** Output and Generation of Labels
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4969 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4970 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4971 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4972 +/* Prefixes for various assembly-time objects */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4973 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4974 +#define REGISTER_PREFIX ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4975 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4976 +#define LOCAL_LABEL_PREFIX ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4977 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4978 +#define USER_LABEL_PREFIX "_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4979 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4980 +#define IMMEDIATE_PREFIX "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4981 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4982 +/* This is how to output the definition of a user-level label named NAME,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4983 + such as the label on a static function or variable NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4984 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4985 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4986 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4987 + if (section_changed) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4988 + fprintf (FILE, "\n%s\n\n", code_section_op); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4989 + section_changed = 0; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4990 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4991 + assemble_name (FILE, NAME); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4992 + fputs (":\n", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4993 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4994 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4995 +/* This is how to output the label for a function definition. It
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4996 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4997 + other properties. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4998 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
4999 + m6809_declare_function_name (FILE,NAME,DECL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5000 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5001 +/* This is how to output a command to make the user-level label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5002 + named NAME defined for reference from other files. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5003 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5004 +#define GLOBAL_ASM_OP "\t.globl "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5005 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5006 +/* This is how to output a reference to a user label named NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5007 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5008 + fprintf (FILE, "_%s", NAME)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5009 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5010 +/* This is how to output a reference to a symbol ref
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5011 + * Check to see if the symbol is in the direct page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5012 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5013 +{ \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5014 + print_direct_prefix (FILE, sym); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5015 + assemble_name (FILE, XSTR (sym, 0)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5016 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5017 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5018 +/* External references aren't necessary, so don't emit anything */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5019 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5020 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5021 +/* This is how to store into the string LABEL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5022 + the symbol_ref name of an internal numbered label where
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5023 + PREFIX is the class of label and NUM is the number within the class.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5024 + This is suitable for output with `assemble_name'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5025 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5026 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5027 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5028 +/* This is how to output an assembler line defining an `int' constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5029 +#define ASM_OUTPUT_INT(FILE,VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5030 +( fprintf (FILE, "\t.word "), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5031 + output_addr_const (FILE, (VALUE)), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5032 + fprintf (FILE, "\n"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5033 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5034 +/* Likewise for `char' and `short' constants. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5035 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5036 +( fprintf (FILE, "\t.word "), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5037 + output_addr_const (FILE, (VALUE)), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5038 + fprintf (FILE, "\n"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5039 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5040 +/* This is how to output a string. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5041 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5042 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5043 +/* This is how to output an insn to push a register on the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5044 + It need not be very fast code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5045 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5046 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5047 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5048 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5049 +/* This is how to output an insn to pop a register from the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5050 + It need not be very fast code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5051 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5052 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5053 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5054 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5055 +/* This is how to output an element of a case-vector that is absolute. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5056 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5057 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5058 + fprintf (FILE, "\t.word L%u\n", VALUE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5059 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5060 +/* This is how to output an element of a case-vector that is relative. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5061 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5062 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5063 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5064 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5065 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5066 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5067 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5068 +** Assembler Commands for Alignment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5069 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5070 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5071 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5072 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5073 + * So use the .byte and .word directives instead of .blkb */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5074 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5075 + do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5076 + int __size = SIZE; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5077 + while (__size > 0) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5078 + if (__size >= 2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5079 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5080 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5081 + __size -= 2; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5082 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5083 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5084 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5085 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5086 + __size--; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5087 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5088 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5089 + } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5090 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5091 +/* This says how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5092 + to define a global common symbol. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5093 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5094 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5095 + do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5096 + switch_to_section (bss_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5097 + fputs ("\t.globl\t", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5098 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5099 + fputs ("\n", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5100 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5101 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5102 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5103 +/* This says how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5104 + to define a local common symbol. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5105 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5106 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5107 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5108 + switch_to_section (bss_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5109 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5110 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5111 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5112 +/* Store in OUTPUT a string (made with alloca) containing
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5113 + an assembler-name for a local static variable named NAME.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5114 + LABELNO is an integer which is different for each call. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5115 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5116 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5117 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5118 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5119 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5120 +/* Print an instruction operand X on file FILE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5121 + CODE is the code from the %-spec for printing this operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5122 + If `%z3' was used to print operand 3, then CODE is 'z'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5123 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5124 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5125 +/* Print a memory operand whose address is X, on file FILE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5126 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5127 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5128 +/* Don't let stack pushes build up too much. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5129 +#define MAX_PENDING_STACK 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5130 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5131 +/* Define values for builtin operations */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5132 +enum m6809_builtins
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5133 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5134 + M6809_SWI,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5135 + M6809_SWI2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5136 + M6809_SWI3,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5137 + M6809_CWAI,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5138 + M6809_SYNC,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5139 + M6809_ADD_CARRY,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5140 + M6809_SUB_CARRY,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5141 + M6809_ADD_DECIMAL,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5142 + M6809_NOP,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5143 + M6809_BLOCKAGE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5144 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5145 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5149 @@ -0,0 +1,2358 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5150 +;; GCC machine description for Motorola 6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5151 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5152 +;; 2009 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5153 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5154 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5155 +;; by William Astle (lost@l-w.ca).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5156 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5157 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5158 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5159 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5160 +;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5161 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5162 +;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5163 +;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5164 +;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5165 +;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5166 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5167 +;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5168 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5169 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5170 +;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5171 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5172 +;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5173 +;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5174 +;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5175 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5176 +;; General information:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5177 +;; --------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5178 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5179 +;; versions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5180 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5181 +;; * The 'A' and 'B' registers are treated as a single register by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5182 +;; register allocator; hence, the instruction templates assume that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5183 +;; both can be modified if either one is available for use. No
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5184 +;; attempt is made to split instructions to refer to a particular half
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5185 +;; of the register. It is always referred to as the 'D' register, even
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5186 +;; in QImode (when it will be displayed as 'B').
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5187 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5188 +;; * There is full support for proper branch instruction generation,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5189 +;; based on instruction lengths. However, many instruction patterns
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5190 +;; are still overloaded to emit lots of real instructions, which can
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5191 +;; make the length calculation difficult; in those cases, I've tried
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5192 +;; to be pessimistic and assume the worst-case.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5193 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5194 +;; * The instruction type attributes are only defined for branch
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5195 +;; vs. non branch instructions for now, since there is seemingly no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5196 +;; reason to define these for other types anyway.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5197 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5198 +;; * The limited number of total registers presents the greatest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5199 +;; challenge. There are 'soft registers' -- memory locations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5200 +;; used to simulate real regs -- which can be helpful.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5201 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5202 +;; * Position-independent code (PIC) is supported and has been tested
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5203 +;; but not to the extent of absolute code generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5204 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5205 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5206 +;; as UNSPEC instructions, and can be accessed from C code using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5207 +;; __builtin_xxxx() style functions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5208 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5209 +;; What still needs to be done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5210 +;; ----------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5211 +;; * Replace remaining instances of (define_peephole) with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5212 +;; (define_peephole2), or remove them completely if they are not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5213 +;; matching anyway. Add more peepholes for things actually encountered.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5214 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5215 +;; * Indexing addressing can lead to crashes in complex functions when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5216 +;; register pressure is high. Only the 'D' register can actually be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5217 +;; used as an index register, and its demand by other instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5218 +;; can sometimes mean that it is impossible to satisfy constraints.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5219 +;; Currently, indexing is completely disabled to avoid these types
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5220 +;; of problems, although code is slightly more inefficient in some
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5221 +;; working cases.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5222 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5223 +;; * 32-bit math is terribly inefficient.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5224 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5225 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5226 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5227 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5228 +;;- Constants
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5229 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5230 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5231 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5232 +; Define constants for hard register numbers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5233 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5234 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5235 + (HARD_RSVD1_REGNUM 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5236 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5237 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5238 + (HARD_Z_REGNUM 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5239 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5240 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5241 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5242 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5243 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5244 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5245 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5246 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5247 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5248 +; The range in which a short branch insn can be used.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5249 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5250 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5251 + (MIN_SHORT_BRANCH_OFFSET -127)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5252 + (MAX_SHORT_BRANCH_OFFSET 128)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5253 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5254 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5255 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5256 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5257 +; The lengths of various types of real 6809 instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5258 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5259 +; By default, ordinary insns are 4 bytes long. This is often not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5260 +; right, and the insn patterns below will redefine this to the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5261 +; correct value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5262 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5263 +; Branch instruction lengths (conditional and unconditionals) are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5264 +; well known and declared here. The short insns are used when the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5265 +; offset is within the range declared above (between MIN_SHORT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5266 +; and MAX_SHORT) ; otherwise the long form is used.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5267 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5268 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5269 + (DEFAULT_INSN_LENGTH 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5270 + (SHORT_CBRANCH_LENGTH 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5271 + (LONG_CBRANCH_LENGTH 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5272 + (SHORT_BRANCH_LENGTH 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5273 + (LONG_BRANCH_LENGTH 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5274 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5275 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5276 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5277 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5278 +; Constants for insn cycle counts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5279 +; Note that these counts all assume 1-byte opcodes. 2-byte
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5280 +; opcodes require 1 extra cycles for fetching the extra byte.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5281 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5282 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5283 + ;; The default insn length, when it cannot be calculated.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5284 + ;; Take a conservative approach and estimate high.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5285 + (DEFAULT_INSN_CYCLES 10)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5286 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5287 + ;; Cycle counts for ALU and load operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5288 + (ALU_INHERENT_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5289 + (ALU_IMMED_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5290 + (ALU_DIRECT_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5291 + (ALU_INDEXED_BASE_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5292 + (ALU_EXTENDED_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5293 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5294 + ;; If an ALU operation is on a 16-bit register (D), then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5295 + ;; add this number of cycles to the total count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5296 + (ALU_16BIT_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5297 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5298 + ;; A load of a 16-bit register incurs this extra amount.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5299 + (LOAD_16BIT_CYCLES 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5300 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5301 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5302 + (MEM_DIRECT_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5303 + (MEM_INDEXED_BASE_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5304 + (MEM_EXTENDED_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5305 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5306 + ;; Cycle count for any reg-reg transfer (regardless of size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5307 + (EXG_CYCLES 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5308 + (TFR_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5309 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5310 + ;; Cycle count for a condition code update (andcc/orcc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5311 + (CC_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5312 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5313 + (JMP_DIRECT_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5314 + (JMP_INDEXED_BASE_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5315 + (JMP_EXTENDED_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5316 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5317 + (JSR_DIRECT_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5318 + (JSR_INDEXED_BASE_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5319 + (JSR_EXTENDED_CYCLES 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5320 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5321 + (LEA_BASE_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5322 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5323 + ;; Cycle count for a psh/pul operations. Add to this the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5324 + ;; total number of bytes moved for the correct count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5325 + (PSH_PUL_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5326 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5327 + ;; Miscellaneous cycle counts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5328 + (CWAI_CYCLES 20)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5329 + (MUL_CYCLES 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5330 + (NOP_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5331 + (RTI_CYCLES 15)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5332 + (RTS_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5333 + (SWI_CYCLES 20)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5334 + (SYNC_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5335 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5336 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5337 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5338 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5339 +; An enumeration of values for each "unspec"; i.e. unspecified
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5340 +; instruction. These represent insns that are meaningful on the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5341 +; 6809 but which have no intrinsic meaning to GCC itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5342 +; These insns can be generated explicitly using the __builtin_xxx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5343 +; syntax; they are also implicitly generated by the backend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5344 +; as needed to implement other insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5345 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5346 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5347 + (UNSPEC_BLOCKAGE 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5348 + (UNSPEC_PUSH_RS 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5349 + (UNSPEC_POP_RS 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5350 + (UNSPEC_SWI 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5351 + (UNSPEC_CWAI 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5352 + (UNSPEC_ADD_CARRY 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5353 + (UNSPEC_SUB_CARRY 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5354 + (UNSPEC_SYNC 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5355 + (UNSPEC_ADD_DECIMAL 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5356 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5357 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5358 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5359 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5360 +;;- Predicates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5361 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5362 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5363 +(include "predicates.md")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5364 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5365 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5366 +;;- Attributes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5367 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5368 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5369 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5370 +;; The type attribute is used to distinguish between different
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5371 +;; types of branch instructions, so that their lengths can be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5372 +;; calculated correctly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5373 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5374 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5375 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5376 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5377 +;; The length of a branch instruction is calculated based on how
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5378 +;; far away the branch target is. Lengths of other insns default
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5379 +;; to 4. set_attr is used in instruction templates to specify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5380 +;; the length when it is known exactly. When not sure, err on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5381 +;; the high side to avoid compile errors.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5382 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5383 +(define_attr "length" ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5384 + (cond [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5385 + (eq_attr "type" "branch")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5386 + (if_then_else (lt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5387 + (const_int MIN_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5388 + (const_int LONG_BRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5389 + (if_then_else (gt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5390 + (const_int MAX_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5391 + (const_int LONG_BRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5392 + (const_int SHORT_BRANCH_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5393 + (eq_attr "type" "cbranch")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5394 + (if_then_else (lt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5395 + (const_int MIN_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5396 + (const_int LONG_CBRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5397 + (if_then_else (gt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5398 + (const_int MAX_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5399 + (const_int LONG_CBRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5400 + (const_int SHORT_CBRANCH_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5401 + ] (const_int DEFAULT_INSN_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5402 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5403 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5404 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5405 +;; The default attributes for 'asm' statements.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5406 +;; The default length is the longest possible single 6809 instruction,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5407 +;; which is 5 bytes. GCC will automatically multiply this by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5408 +;; number of real insns contained in an asm statement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5409 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5410 +(define_asm_attributes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5411 + [(set_attr "length" "5")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5412 + (set_attr "type" "unknown")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5413 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5414 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5415 +;; An attribute for the number of cycles that it takes an instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5416 +;; to execute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5417 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5418 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5419 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5420 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5421 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5422 +;;- Instruction patterns. When multiple patterns apply,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5423 +;;- the first one in the file is chosen.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5424 +;;-
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5425 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5426 +;;-
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5427 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5428 +;;- for most instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5429 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5430 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5431 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5432 +;;- Test
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5433 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5434 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5435 +;; cmpx is 3 bytes, not 4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5436 +(define_insn "*tsthi_x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5437 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5438 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5439 + "cmpx\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5440 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5441 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5442 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5443 +(define_insn "*tsthi_d"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5444 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5445 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5446 + "subd\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5447 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5449 +(define_insn "*tsthi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5450 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5451 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5452 + "cmp%0\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5453 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5454 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5455 +(define_insn "*bitqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5456 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5457 + (and:QI (match_operand:QI 0 "register_operand" "%q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5458 + (match_operand:QI 1 "general_operand" "mi")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5459 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5460 + "bit%0\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5461 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5462 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5464 +(define_insn "tstqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5465 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5466 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5467 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5468 + tst%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5469 + tst\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5470 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5471 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5472 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5473 +;;- Compare instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5474 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5475 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5476 +;; - cmphi for register to memory or register compares
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5477 +(define_insn "cmphi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5478 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5479 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5480 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5481 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5482 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5483 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5484 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5485 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5486 + return "cmp%0\t,s++\t;cmphi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5487 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5488 + if (GET_CODE (operands[0]) == REG)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5489 + return "cmp%0\t%1\t;cmphi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5490 + else {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5491 + cc_status.flags |= CC_REVERSED;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5492 + return "cmp%1\t%0\t;cmphi:(R)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5493 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5494 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5495 + [(set_attr "length" "5,5,7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5496 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5497 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5498 +(define_insn "cmpqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5499 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5500 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5501 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5502 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5503 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5504 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5505 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5506 + if (operands[1] == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5507 + return "tst%0\t;cmpqi:(ZERO)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5508 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5509 + return "cmp%0\t%1\t;cmpqi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5510 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5511 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5512 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5513 + cc_status.flags |= CC_REVERSED;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5514 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5515 + if (operands[0] == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5516 + return "tst%1\t;cmpqi:(RZERO)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5517 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5518 + return "cmp%1\t%0\t;cmpqi:(R)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5519 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5520 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5521 + [(set_attr "length" "1,3,2,1,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5522 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5523 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5524 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5525 +;;- Compare/branch pattern
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5526 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5527 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5528 +(define_expand "cbranchhi4"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5529 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5530 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5531 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5532 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5533 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5534 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5536 + (label_ref (match_operand 3 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5537 + (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5538 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5539 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5540 +)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5541 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5542 +(define_expand "cbranchqi4"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5543 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5544 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5545 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5546 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5547 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5548 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5549 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5550 + (label_ref (match_operand 3 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5551 + (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5552 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5553 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5554 +)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5555 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5556 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5557 +;;- Move
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5558 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5559 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5560 +; this looks good (obviously not finished) but I still see 'movsi'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5561 +; places in udivsi3 where it's broken
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5562 +; (define_insn "pushsi1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5563 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5564 +; (match_operand:SI 0 "general_operand" "o"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5565 +; (set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5566 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5567 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5568 +; "; pushsi %0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5569 +; [(set_attr "length" "12")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5570 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5571 +; (define_insn "popsi1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5572 +; [(set (match_operand:SI 0 "general_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5573 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5574 +; (set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5575 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5576 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5577 +; "; popsi %0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5578 +; [(set_attr "length" "12")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5579 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5580 +; (define_insn "movsi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5581 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5582 +; (match_operand:SI 1 "general_operand" " oi"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5583 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5584 +; "; movsi %0 <- %1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5585 +; [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5586 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5587 +; this doesn't work
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5588 +; (define_expand "movsi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5589 +; [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5590 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5591 +; (match_operand:SI 1 "general_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5592 +; (clobber (match_scratch:HI 2 ""))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5593 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5594 +; {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5595 +; rtx insn;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5596 +; if (STACK_PUSH_P (operands[0]) || STACK_POP_P (operands[1]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5597 +; {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5598 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5599 +; }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5600 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5601 +; DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5602 +; })
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5603 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5604 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5605 +(define_expand "movhi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5606 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5607 + (match_operand:HI 1 "general_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5608 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5609 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5610 + /* One of the ops has to be in a register prior to reload */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5611 + if (!register_operand (operand0, HImode) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5612 + !register_operand (operand1, HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5613 + operands[1] = copy_to_mode_reg (HImode, operand1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5614 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5615 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5616 +;;; Try a splitter to handle failure cases where we try to move
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5617 +;;; an immediate constant (zero usually) directly to memory.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5618 +;;; This absolutely requires an intermediate register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5619 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5620 + [(set (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5621 + (match_operand:HI 1 "immediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5622 + (clobber (match_operand:HI 2 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5623 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5624 + [(set (match_dup 2) (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5625 + (set (match_dup 0) (match_dup 2))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5626 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5628 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5629 +;;; This would be a nice method for loading from a word array,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5630 +;;; but it is never generated because the combiner cannot merge
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5631 +;;; more than 3 instructions (there are four here). This is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5632 +;;; perhaps better done via a peephole.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5633 +(define_insn "*movhi_array_load"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5634 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5636 + (match_operand:HI 2 "immediate_operand" "i"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5637 + (clobber (match_scratch:HI 3 "=X"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5638 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5639 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5640 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5641 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5642 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5643 +;;; Optimize the move of a byte to the stack using the pshs instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5644 +;;; instead of a store with pre-increment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5645 +(define_insn "movhi_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5646 + [(set (match_operand:HI 0 "push_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5647 + (match_operand:HI 1 "register_operand" "U"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5648 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5649 + "pshs\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5650 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5651 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5652 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5653 +(define_insn "*movhi_pic_symbolref"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5654 + [(set (match_operand:HI 0 "register_operand" "=a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5655 + (match_operand:HI 1 "symbolic_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5656 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5657 + "lea%0\t%c1,pcr"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5658 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5659 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5660 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5661 +(define_insn "*movhi_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5662 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5663 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5664 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5665 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5666 + lea%0\t,%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5667 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5668 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5669 + ld%0\t%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5670 + st%1\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5671 + [(set_attr "length" "2,2,2,*,*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5672 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5673 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5674 +;;; Generated by the combiner to merge an address calculation with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5675 +;;; a byte load. We can use the 'abx' instruction here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5676 +(define_insn "*movqi_array_load"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5677 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5678 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5679 + (match_operand:HI 2 "immediate_operand" "i"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5680 + (clobber (match_scratch:HI 3 "=X"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5681 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5682 + "ldx\t%2\;abx\;ld%0\t,x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5683 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5684 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5685 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5686 +;;; Optimize the move of a byte to the stack using the pshs instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5687 +;;; instead of a store with pre-increment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5688 +(define_insn "movqi_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5689 + [(set (match_operand:QI 0 "push_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5690 + (match_operand:QI 1 "register_operand" " q"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5691 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5692 + "pshs\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5693 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5694 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5695 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5696 +;;; Optimize the move of a byte from the stack using the puls instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5697 +;;; instead of a store with post-decrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5698 +(define_insn "movqi_pop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5699 + [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5700 + (match_operand:QI 1 "pop_operand" "m"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5701 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5702 + "puls\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5703 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5705 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5706 +;;- load low byte of 16-bit data into 8-bit register/memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5707 +(define_insn "*mov_lsb"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5710 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5711 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5712 + \t;movlsbqihi: D->B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5713 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5714 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5715 + stb\t%0\t;movlsbqihi: R:%1 -> %0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5717 + [(set_attr "length" "0,*,2,*,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5718 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5719 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5720 +;;- load high byte of 16-bit data into 8-bit register/memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5721 +(define_insn "*mov_msb"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5722 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5724 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5725 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5726 + tfr\ta,b\t;movmsbqihi: D->B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5727 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5728 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5729 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5730 + sta\t%0\t;movmsbqihi: R:%1 -> %0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5732 + [(set_attr "length" "2,1,4,*,*,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5733 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5734 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5735 +(define_insn "*movqi_boolean"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5736 + [(set (reg:QI HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5737 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5738 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5739 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5740 + tst%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5741 + andcc\t#~4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5742 + orcc\t#4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5743 + tst\t%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5744 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5745 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5746 +(define_insn "movqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5747 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5748 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5749 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5750 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5751 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5752 + clr%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5753 + clr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5754 + ld%0\t%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5755 + st%1\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5756 + tfr\tcc,%0\;and%0\t#4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5757 + tst%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5758 + [(set_attr "length" "2,1,3,*,*,4,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5759 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5760 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5761 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5762 +;;- Swap registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5763 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5765 +; Note: 8-bit swap is never needed so it is not defined.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5766 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5767 +(define_insn "swaphi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5768 + [(set (match_operand:HI 0 "register_operand" "+r")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5769 + (match_operand:HI 1 "register_operand" "+r"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5770 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5771 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5772 + "exg\t%1,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5773 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5774 + (set (attr "cycles") (const_int EXG_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5775 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5776 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5777 +(define_insn "bswaphi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5778 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5779 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5780 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5781 + "exg\ta,b"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5782 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5784 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5785 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5786 +;;- Extension and truncation insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5787 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5788 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5789 +(define_insn "extendqihi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5790 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5791 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5792 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5793 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5794 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5795 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5796 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5797 +(define_insn "zero_extendqihi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5798 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5799 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5800 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5801 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5802 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5803 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5804 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5805 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5806 +;;- All kinds of add instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5807 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5808 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5809 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5810 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5811 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5812 +;; so it is MUCH less efficient. Define this one ourselves.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5813 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5814 +;; TODO - can't always get 'd' for the clobber... allow other registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5816 +;; use others, at a price. Also consider libcall for this when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5817 +;; optimizing for size.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5818 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5819 +(define_insn "addsi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5820 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5821 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5822 + (match_operand:SI 2 "general_operand" " oi")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5823 + (clobber (match_scratch:HI 3 "=d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5824 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5825 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5826 + m6809_output_addsi3 (PLUS, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5827 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5828 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5829 + [(set_attr "length" "21")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5830 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5831 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5832 +; Increment of a 16-bit MEM by 1 can be done without a register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5833 +(define_insn "*addhi_mem_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5834 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5835 + (plus:HI (match_dup 0) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5836 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5837 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5838 + rtx xoperands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5839 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5840 + xoperands[0] = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5841 + xoperands[1] = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5843 + output_asm_insn ("inc\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5844 + output_asm_insn ("bne\t__IL%=", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5845 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5846 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5847 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5848 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5849 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5850 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5851 +; Decrement of a 16-bit MEM by 1 can be done without a register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5852 +(define_insn "*addhi_mem_minus1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5853 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5854 + (plus:HI (match_dup 0) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5855 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5856 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5857 + rtx xoperands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5858 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5859 + xoperands[0] = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5860 + xoperands[1] = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5861 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5862 + output_asm_insn ("tst\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5863 + output_asm_insn ("bne\t__IL%=", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5864 + output_asm_insn ("dec\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5865 + output_asm_insn ("__IL%=:", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5866 + output_asm_insn ("dec\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5867 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5868 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5869 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5870 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5872 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5873 +; using the LEAX B,Y addressing mode, where X and Y are both
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5874 +; index registers. This will only get generated via the peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5875 +; which removes a sign extension.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5876 +(define_insn "*addhi_b"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5877 + [(set (match_operand:HI 0 "index_register_operand" "=a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5878 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5879 + (match_operand:QI 2 "register_operand" "q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5880 + ))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5881 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5882 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5883 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5884 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5885 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5886 +; Splitter for addhi pattern #5 below
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5887 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5888 + [(set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5889 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5890 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5891 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5892 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5893 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5894 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5895 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5896 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5897 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5898 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5899 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5900 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5901 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5902 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5903 +; Splitter for addhi pattern #7 below
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5904 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5905 + [(set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5906 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5907 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5908 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5909 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5910 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5911 + (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5912 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5913 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5914 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5915 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5916 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5917 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5918 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5919 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5920 +; TODO - this is ugly. During RTL generation, we don't know what registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5921 +; are available, so the multiple-insn sequences can only be solved
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5922 +; via 'define_split's during matching. See andhi3 for an example.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5923 +; Keep the constraints with ? modifiers to help reload pick the right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5924 +; registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5925 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5926 +; The forms are:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5927 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5928 +; to avoid this even happening...)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5930 +; now, is this a better way?)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5931 +; 3. Best choice: 'addd'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5932 +; 4. Next best choice: 'lea'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5933 +; 5. Hybrid of 3 and 4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5934 +; 6. Same as 4, not bad
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5935 +; 7. BAD, no D register at all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5936 +; 8. 'lea', as good as 4.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5937 +(define_insn "addhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5940 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5941 + ))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5942 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5943 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5945 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5946 + add%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5947 + lea%0\t%1,%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5948 + #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5949 + lea%0\t%2,%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5950 + #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5951 + lea%0\t%a2,%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5952 + [(set_attr "length" "2,6,*,*,7,*,7,*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5953 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5954 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5955 +(define_insn "addqi3_carry"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5956 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5957 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5958 + (match_operand:QI 1 "whole_general_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5959 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5960 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5961 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5962 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5963 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5964 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5965 +; TODO: specifying 'A' for the first constraint, to force into the A register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5966 +; is not working because of the way registers are currently set up. This will
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5967 +; take some work to get right. Thus the second alternative as a backup.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5968 +(define_insn "addqi3_decimal"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5969 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5970 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5971 + (match_operand:QI 1 "general_operand" "%0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5972 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5973 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5974 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5975 + adda\t%2\;daa
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5976 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5977 + [(set_attr "length" "5,9")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5978 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5979 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5980 +(define_insn "addqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5981 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5983 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5984 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5985 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5986 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5987 + inc%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5988 + dec%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5989 + inc\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5990 + dec\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5991 + add%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5992 + [(set_attr "length" "1,1,1,3,3,*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5993 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5994 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5995 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5996 +;;- Subtract instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5997 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5998 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
5999 +(define_insn "subsi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6000 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6001 + (minus:SI (match_operand:SI 1 "general_operand" " o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6002 + (match_operand:SI 2 "general_operand" " oi")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6003 + (clobber (match_scratch:HI 3 "=d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6004 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6005 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6006 + m6809_output_addsi3 (MINUS, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6007 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6008 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6009 + [(set_attr "length" "21")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6010 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6011 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6012 +(define_insn "subhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6013 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6014 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6015 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6016 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6017 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6018 + sub%0\t%2\t;subhi: R:%0 -= %2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6019 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6020 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6021 + [(set_attr "length" "*,5,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6022 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6023 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6024 +(define_insn "subqi3_carry"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6025 + [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6026 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6027 + (match_operand:QI 1 "whole_general_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6028 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6029 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6030 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6031 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6032 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6033 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6034 +(define_insn "subqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6035 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6036 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6037 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6038 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6039 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6040 + dec%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6041 + sub%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6042 + dec%0\;neg%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6043 + sub%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6044 + [(set_attr "length" "1,3,2,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6045 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6046 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6047 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6048 +;;- Multiply instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6049 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6050 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6051 +; TODO - merge these two instructions, using 'extend_operator' to match
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6052 +; either signed or zero extension. Everything else is the same.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6053 +(define_insn "mulqihi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6054 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6055 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6056 + (match_operand:QI 2 "general_operand" "tmK")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6057 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6058 + "lda\t%2\t;mulqihi3\;mul"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6059 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6060 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6061 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6062 +(define_insn "umulqihi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6063 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6064 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6065 + (match_operand:QI 2 "general_operand" "tmK")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6066 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6067 + "lda\t%2\t;umulqihi3\;mul"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6068 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6069 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6070 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6071 +; Expand a 16x16 multiplication into either a libcall or a shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6072 +; If the second operand is a small constant, use the above form.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6073 +; Otherwise, do a libcall.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6074 +(define_expand "mulhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6075 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6076 + (mult:HI (match_operand:HI 1 "general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6077 + (match_operand:HI 2 "nonmemory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6078 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6079 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6080 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6081 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6082 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6083 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6084 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6085 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6086 +;;- Divide instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6087 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6088 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6089 +(define_expand "divhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6090 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6091 + (div:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6092 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6093 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6094 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6095 + emit_libcall_insns (HImode, "divhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6096 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6097 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6098 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6099 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6100 +(define_expand "divqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6101 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6102 + (div:QI (match_operand:QI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6103 + (match_operand:QI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6104 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6105 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6106 + emit_libcall_insns (QImode, "divqi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6107 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6108 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6109 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6110 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6111 +(define_expand "udivhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6112 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6113 + (udiv:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6114 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6115 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6116 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6117 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6118 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6119 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6120 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6121 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6122 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6123 +;;- mod
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6124 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6125 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6126 +(define_expand "modhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6127 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6128 + (mod:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6129 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6130 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6131 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6132 + emit_libcall_insns (HImode, "modhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6133 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6134 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6135 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6136 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6137 +(define_expand "modqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6138 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6139 + (mod:QI (match_operand:QI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6140 + (match_operand:QI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6141 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6142 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6143 + emit_libcall_insns (QImode, "modqi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6144 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6145 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6146 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6147 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6148 +(define_expand "umodhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6149 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6150 + (umod:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6151 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6152 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6153 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6154 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6155 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6156 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6157 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6158 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6159 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6160 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6161 +;;- and, or, xor common patterns
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6162 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6163 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6164 +; Split a bitwise HImode into two QImode instructions, with one of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6165 +; the sources in a pushable register. The register is pushed onto
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6166 +; the stack and memory pop operands (,s+) are used in the QI forms.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6167 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6168 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6169 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6170 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6171 + (match_operand:HI 2 "register_operand" "")]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6172 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6173 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6174 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6175 + [(reg:QI HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6177 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6178 + [(reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6179 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6180 + (use (reg:QI HARD_A_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6181 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6182 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6183 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6184 +; Split a bitwise HImode into two QImode instructions, with one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6185 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6186 +; reference. This requires dereferencing the pointer into a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6187 +; temporary register (X), which must be saved/restored around the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6188 +; compute instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6189 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6190 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6191 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6192 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6193 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6194 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6195 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6196 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6197 + (set (match_dup 4) (match_dup 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6198 + (set (match_dup 4) (mem:HI (match_dup 4)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6199 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6200 + [(reg:QI HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6201 + (mem:QI (post_inc:QI (match_dup 4)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6202 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6203 + [(reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6204 + (mem:QI (post_inc:QI (match_dup 4)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6205 + (use (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6206 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6207 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6208 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6209 + /* Use X for a temporary index register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6210 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6211 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6212 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6213 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6214 +; Split a bitwise HImode into two QImode instructions. This is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6215 +; the common case. This handles splitting when neither of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6216 +; above two cases applies.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6217 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6218 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6219 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6220 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6221 + (match_operand:HI 2 "general_operand" "")]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6222 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6223 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6224 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6225 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6226 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6227 + (use (reg:QI HARD_A_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6228 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6229 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6230 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6231 + operands[4] = gen_rtx_const_high (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6232 + operands[5] = gen_rtx_const_low (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6233 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6234 + else if ((GET_CODE (operands[2]) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6235 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6236 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6237 + FAIL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6238 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6239 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6240 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6241 + operands[4] = gen_highpart (QImode, operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6242 + operands[5] = gen_lowpart (QImode, operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6243 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6244 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6245 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6246 +; Below are the specific cases for each of the operators.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6247 +; The QImode versions are the simplest and can be implemented
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6248 +; directly on the hardware. The HImode cases are all output
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6249 +; using one of the above splitting techniques.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6250 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6251 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6252 +;;- and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6253 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6254 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6255 +(define_insn "andhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6256 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6257 + (and:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6258 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6259 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6260 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6261 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6262 +;; it is not clear that this is correct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6263 +(define_insn "*andqi_2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6264 + [(set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6265 + (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6266 + (and:QI (match_operand:QI 1 "register_operand" "q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6267 + (match_operand 2 "const_int_operand" "i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6268 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6269 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6270 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6271 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6272 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6273 + return "and%0 %3";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6274 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6275 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6276 + return "and%0 %2";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6277 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6278 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6279 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6280 +(define_insn "andqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6281 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6282 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6283 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6284 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6285 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6286 + clr%0\t;andqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6287 + \t;andqi(-1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6288 + and%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6289 + and%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6290 + [(set_attr "length" "1,0,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6291 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6292 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6293 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6294 +;;- or
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6295 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6296 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6297 +(define_insn "iorhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6298 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6299 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6300 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6301 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6302 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6303 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6304 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6305 +(define_insn "iorqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6306 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6307 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6308 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6309 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6310 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6311 + \t;iorqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6312 + or%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6313 + or%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6314 + [(set_attr "length" "0,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6315 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6316 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6317 +;;- xor
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6318 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6319 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6320 +(define_insn "xorhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6321 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6322 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6323 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6324 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6325 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6326 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6327 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6328 +(define_insn "xorqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6329 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6330 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6331 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6332 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6333 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6334 + \t;xorqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6335 + com%0\t;xorqi(-1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6336 + eor%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6337 + eor%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6338 + [(set_attr "length" "0,1,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6339 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6340 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6341 +;;- Two's Complements
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6342 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6343 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6344 +(define_insn "neghi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6345 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6346 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6347 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6348 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6349 + nega\;negb\;sbca\t#0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6350 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6351 + [(set_attr "length" "5,9")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6352 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6353 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6354 +(define_insn "negqi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6355 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6356 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6357 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6358 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6359 + neg%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6360 + neg\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6361 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6362 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6363 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6364 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6365 +;;- One's Complements
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6366 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6367 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6368 +(define_insn "one_cmplhi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6369 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6370 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6371 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6372 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6373 + coma\;comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6374 + com\t%0\;com\t%L0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6375 + exg\td,%0\;coma\;comb\;exg\td,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6376 + [(set_attr "length" "2,6,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6377 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6378 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6379 +(define_insn "one_cmplqi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6380 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6381 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6382 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6383 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6384 + com%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6385 + com\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6386 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6387 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6388 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6389 +;;- Shifts/rotates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6390 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6391 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6392 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6393 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6394 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6395 +(define_mode_iterator bit_mode [QI HI])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6396 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6397 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6398 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6399 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6400 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6401 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6402 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6403 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6404 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6405 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6406 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6407 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6408 +; Individual instructions implemented in the CPU.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6409 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6410 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6411 +(define_insn "*ashift1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6412 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6413 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6414 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6415 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6416 + asl\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6417 + asl%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6418 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6419 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6420 +(define_insn "*lshiftrt1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6421 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6422 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6423 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6424 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6425 + lsr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6426 + lsr%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6427 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6428 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6429 +(define_insn "*ashiftrt1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6430 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6431 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6432 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6433 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6434 + asr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6435 + asr%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6436 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6437 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6438 +(define_insn "*rotate1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6439 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6440 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6441 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6442 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6443 + rol\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6444 + rol%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6445 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6446 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6447 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6448 +(define_insn "*rotatert1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6449 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6450 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6451 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6452 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6453 + ror\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6454 + ror%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6455 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6456 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6457 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6458 +; A shift by 8 for D reg can be optimized by just moving
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6459 +; between the A/B halves, and then zero/sign extending or
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6460 +; filling in zeroes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6461 +; Because GCC does not understand that 'A' and 'D' refer to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6462 +; the same storage location, we must use 'USE' throughout
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6463 +; to prevent deletion of 'unnecessary' instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6464 +; Similar optimization for MEM would require a scratch register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6465 +; so is not done here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6466 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6467 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6469 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6470 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6471 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6472 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6473 + (use (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6474 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6475 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6476 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6477 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6478 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6480 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6481 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6482 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6483 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6484 + (use (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6485 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6486 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6487 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6488 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6489 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6491 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6492 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6493 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6494 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6495 + (use (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6496 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6497 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6498 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6499 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6500 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6501 +; On the WPC hardware, there is a shift register that can be used
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6502 +; to compute (1<<n) efficiently in two instructions. Note that this
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6503 +; form only works when using -mint8 though, because C will promote
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6504 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6505 +(define_insn "ashlqi3_wpc"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6506 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6507 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6508 + (match_operand:QI 2 "general_operand" "q")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6509 + "TARGET_WPC"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6510 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6511 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6512 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6513 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6514 +; Internal instructions for shifting by a constant.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6515 +; Two forms are provided, one for QImode, one for HImode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6516 +; These are always split into the above instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6517 +; (except for QImode forms that directly match one of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6518 +; above instructions, in which the condition will not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6519 +; allow the splitter to match).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6520 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6521 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6522 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6523 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6524 + (match_operand:HI 2 "immediate_operand" "n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6525 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6526 + "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6527 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6528 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6529 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6530 + m6809_split_shift (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6531 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6532 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6533 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6534 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6535 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6536 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6537 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6538 + (match_operand:QI 2 "immediate_operand" "n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6539 + "INTVAL (operands[2]) > 1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6540 + "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6541 + "&& reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6542 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6543 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6544 + m6809_split_shift (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6545 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6546 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6547 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6548 +; Internal instructions for shifting by a nonconstant.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6549 +; These expand into complex assembly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6550 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6551 +(define_insn "<bit_code:bit_code_name>hi3_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6552 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6553 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6554 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6555 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6556 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6557 + m6809_output_shift_insn (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6558 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6559 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6560 + [(set_attr "length" "20")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6561 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6562 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6563 +(define_insn "<bit_code:bit_code_name>qi3_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6564 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6565 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6566 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6567 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6568 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6569 + m6809_output_shift_insn (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6570 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6571 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6572 + [(set_attr "length" "16")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6573 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6574 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6576 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6577 +;;- Jumps and transfers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6578 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6579 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6580 +;;; The casesi pattern is normally *not* defined; see 'tablejump' instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6581 +(define_expand "casesi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6582 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6583 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6584 + (match_operand:HI 2 "immediate_operand" "") ; total range
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6585 + (match_operand 3 "" "") ; table label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6586 + (match_operand 4 "" "")] ; out of range label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6587 + "TARGET_BYTE_INT && TARGET_CASESI"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6588 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6589 + m6809_do_casesi (operands[0], operands[1], operands[2],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6590 + operands[3], operands[4]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6591 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6592 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6593 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6594 +(define_insn "tablejump_short_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6595 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6596 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6597 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6598 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6599 + "jmp\t[b,x]\t;tablejump_short_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6600 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6601 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6602 +(define_insn "tablejump_long_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6603 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6604 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6605 + (match_operand:HI 0 "register_operand" "d"))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6606 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6607 + "jmp\t[d,x]\t;tablejump_long_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6608 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6609 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6610 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6611 + ;; A tablejump operation gives the address in operand 0, with the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6612 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6613 + ;; shows the arguments as GCC presents them. For a register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6614 + ;; operand, the assembly code is straightforward. For a MEM,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6615 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6616 + ;; and one for PIC mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6617 + (define_expand "tablejump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6618 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6619 + (set (pc) (match_operand:HI 0 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6620 + (use (label_ref (match_operand 1 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6621 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6622 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6623 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6624 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6625 + })
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6626 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6628 +(define_insn "*tablejump_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6629 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6630 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6631 + (match_operand:HI 0 "register_operand" "a"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6632 + (use (label_ref (match_operand 1 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6633 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6634 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6635 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6636 + "jmp\t,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6637 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6638 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6639 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6640 +(define_insn "*tablejump_symbol"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6641 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6642 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6643 + (mem:HI
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6644 + (plus:HI (match_operand:HI 0 "register_operand" "a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6645 + (label_ref (match_operand 1 "" "")))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6646 + (use (label_ref (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6647 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6648 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6649 + "!flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6650 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6651 + output_asm_insn ("jmp\t[%a1,%0]", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6652 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6653 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6654 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6655 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6656 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6657 +(define_insn "*tablejump_symbol_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6658 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6659 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6660 + (mem:HI
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6661 + (plus:HI (match_operand:HI 0 "register_operand" "d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6662 + (label_ref (match_operand 1 "" "")))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6663 + (use (label_ref (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6664 + (clobber (match_scratch:HI 2 "=&a"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6665 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6666 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6667 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6668 + output_asm_insn ("lea%2\t%a1,pcr", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6669 + output_asm_insn ("ld%0\t%0,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6670 + output_asm_insn ("jmp\t%0,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6671 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6672 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6673 + [(set_attr "length" "8")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6674 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6675 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6676 +(define_insn "indirect_jump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6677 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6678 + (match_operand:HI 0 "register_operand" "a"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6679 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6680 + "jmp\t,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6681 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6682 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6683 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6684 +(define_insn "jump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6685 + [(set (pc) (label_ref (match_operand 0 "" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6686 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6687 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6688 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6689 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6690 + [(set (attr "type") (const_string "branch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6691 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6692 +; Output assembly for a condition branch instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6693 +(define_insn "*cond_branch"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6694 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6695 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6696 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6697 + (label_ref (match_operand 0 "" "")) (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6698 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6699 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6700 + return output_branch_insn ( GET_CODE(operands[1]),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6701 + operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6702 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6703 + [(set (attr "type") (const_string "cbranch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6705 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6706 +; Similar to above, but for a condition branch instruction that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6707 +; had its operands reversed at some point.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6708 +(define_insn "*cond_branch_reverse"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6709 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6710 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6711 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6712 + (pc) (label_ref (match_operand 0 "" ""))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6713 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6714 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6715 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6716 + operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6717 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6718 + [(set (attr "type") (const_string "cbranch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6719 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6720 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6721 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6722 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6723 +;;- Calls
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6724 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6725 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6726 +;; Generate a call instruction for a function that does not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6727 +;; return a value. The expander is used during RTL generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6728 +;; The instructions below are used during matching; only one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6729 +;; of them will be used, depending on the type of function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6730 +;; being called. The different conditions are:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6731 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6732 +;; 1) far_functionp - is this a far function? Those need
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6733 +;; to be output as indirect calls through a far-function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6734 +;; handler.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6735 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6736 +;; 2) noreturn_functionp - if the function does not return,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6737 +;; we can use a 'jmp' instead of a 'jsr' to call it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6738 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6739 +;; 3) is PIC mode enabled? If so, we'll always use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6740 +;; relative calls (lbsr or lbra).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6741 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6742 +;; Note: not all combinations are fully supported, especially
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6743 +;; relating to PIC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6744 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6745 +;; The 'bsr' instruction is never generated.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6747 +(define_expand "call"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6748 + [(call (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6749 + (match_operand:HI 1 "general_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6750 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6751 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6752 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6753 +(define_insn "*call_nopic_far"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6754 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6755 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6756 + "far_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6757 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6758 + output_far_call_insn (operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6759 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6760 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6761 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6763 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6764 +; PIC forms come first, and should only match
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6765 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6766 +(define_insn "*call_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6767 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6768 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6769 + "flag_pic && !noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6770 + "lbsr\t%C0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6771 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6772 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6773 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6774 +(define_insn "*call_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6775 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6776 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6777 + "!noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6778 + "jsr\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6779 + [(set_attr "length" "3")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6780 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6781 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6782 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6783 +(define_insn "*call_noreturn_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6784 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6785 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6786 + "flag_pic && noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6787 + "lbra\t%C0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6788 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6790 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6791 +(define_insn "*call_noreturn_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6792 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6793 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6794 + "noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6795 + "jmp\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6796 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6797 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6799 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6800 +;; Same as above, but for functions that do return a value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6801 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6802 +(define_expand "call_value"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6803 + [(set (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6804 + (call (match_operand:HI 1 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6805 + (match_operand:HI 2 "general_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6806 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6807 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6808 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6809 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6810 +(define_insn "*call_value_far"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6811 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6812 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6813 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6814 + "far_functionp (operands[1])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6815 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6816 + output_far_call_insn (operands, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6817 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6818 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6819 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6820 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6821 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6822 +(define_insn "*call_value_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6823 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6824 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6825 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6826 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6827 + "lbsr\t%C1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6828 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6829 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6830 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6831 +(define_insn "*call_value_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6832 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6833 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6834 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6835 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6836 + "jsr\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6837 + [(set_attr "length" "3")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6838 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6839 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6840 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6841 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6842 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6843 +;; How to generate an untyped call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6844 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6845 +(define_expand "untyped_call"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6846 + [(parallel [(call (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6847 + (const_int 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6848 + (match_operand 1 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6849 + (match_operand 2 "" "")])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6850 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6851 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6852 + int i;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6853 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6854 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6855 + for (i=0; i < XVECLEN (operands[2], 0); i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6856 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6857 + rtx set = XVECEXP (operands[2], 0, i);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6858 + emit_move_insn (SET_DEST (set), SET_SRC (set));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6859 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6860 + emit_insn (gen_blockage ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6861 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6862 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6863 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6864 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6865 +(define_expand "sibcall"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6866 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6867 + [(call (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6868 + (match_operand:HI 1 "immediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6869 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6870 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6871 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6872 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6873 +(define_insn "*sibcall_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6874 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6875 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6876 + (match_operand:HI 1 "immediate_operand" "i"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6877 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6878 + "SIBLING_CALL_P(insn)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6879 + "jmp\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6880 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6881 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6882 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6883 +(define_expand "sibcall_value"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6884 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6885 + [(set (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6886 + (call (match_operand:HI 1 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6887 + (match_operand:HI 2 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6888 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6889 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6890 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6891 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6892 +(define_insn "*sibcall_value_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6893 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6894 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6895 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6896 + (match_operand:HI 2 "immediate_operand" "i")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6897 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6898 + "SIBLING_CALL_P(insn)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6899 + "jmp\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6900 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6901 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6902 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6903 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6904 +;;- Function Entry and Exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6905 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6906 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6907 +;; On entry to a function, the stack frame looks as follows:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6908 +;; - return address (pushed by the caller)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6909 +;; - saved registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6910 +;; - local variable storage
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6911 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6912 +;; If the function does not modify the stack after that, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6913 +;; any of these can be accessed directly as an offset from
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6914 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6915 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6916 +;; and all references to the stack frame will use that as a base instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6917 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6918 +(define_expand "prologue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6919 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6920 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6921 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6922 + emit_prologue_insns ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6923 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6924 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6925 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6926 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6927 +;; The function epilogue does exactly the reverse of the prologue,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6928 +;; deallocating local variable space, restoring saved registers,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6929 +;; and returning.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6930 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6931 +;; For the 6809, the return may be 'rti' if the function was
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6932 +;; declared as an interrupt function, but is normally 'rts'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6933 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6934 +;; Also, as an optimization, the register restore and the 'rts'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6935 +;; can be combined into a single instruction, by adding 'PC' to the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6936 +;; list of registers to be restored. This is only done if there are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6937 +;; any saved registers, as 'rts' is more efficient by itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6938 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6939 +(define_expand "epilogue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6940 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6941 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6942 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6943 + emit_epilogue_insns (false);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6944 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6945 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6946 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6947 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6948 +(define_expand "sibcall_epilogue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6949 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6950 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6951 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6952 + emit_epilogue_insns (true);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6953 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6954 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6955 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6956 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6957 +;; The RTS instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6958 +(define_insn "return_rts"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6959 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6960 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6961 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6962 + && m6809_get_live_regs () == 0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6963 + "rts"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6964 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6965 + (set (attr "cycles") (const_int RTS_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6966 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6967 +(define_insn "return_puls_pc"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6968 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6969 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6970 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6971 + && m6809_get_live_regs () != 0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6972 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6973 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6974 + (set (attr "cycles") (const_int RTS_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6975 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6976 +;; The RTI instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6977 +(define_insn "return_rti"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6978 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6979 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6980 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6981 + "rti"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6982 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6983 + (set (attr "cycles") (const_int RTI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6984 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6985 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6986 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6987 +;;- Unspecified instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6988 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6989 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6990 +;; An instruction that has the effect of an unspec_volatile, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6991 +;; which doesn't require emitting any assembly code.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6992 +(define_insn "blockage"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6993 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6994 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6995 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6996 + [(set_attr "length" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6997 + (set (attr "cycles") (const_int 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6998 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
6999 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7000 +;; Say how to push multiple registers onto the stack, using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7001 +;; the 6809 'pshs' instruction. The operand is a regset
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7002 +;; specifying which registers to push.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7003 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7004 +;; The operand mode is not given intentionally, so as to allow
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7005 +;; any possible integer mode for the regset.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7006 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7007 +;; See below for a peephole that can combine consecutive push
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7008 +;; instructions that qualify for merging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7009 +(define_insn "register_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7010 + [(use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7011 + (unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7012 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7013 + (clobber (reg:HI HARD_S_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7014 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7015 + "pshs\t%R0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7016 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7017 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7018 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7019 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7020 +;; Say how to pop multiple registers from the stack, using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7021 +;; the 6809 'puls' instruction. The operand is the register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7022 +;; bitset value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7023 +(define_insn "register_pop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7024 + [(use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7025 + (unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7026 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7027 + (clobber (reg:HI HARD_S_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7028 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7029 + "puls\t%R0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7030 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7031 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7032 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7033 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7034 +(define_insn "m6809_swi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7035 + [(unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7036 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7037 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7038 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7039 + swi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7040 + swi%c0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7041 + [(set_attr "length" "1,2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7042 + (set (attr "cycles") (const_int SWI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7043 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7044 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7045 +;; Generate the CWAI instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7046 +(define_insn "m6809_cwai"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7047 + [(unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7048 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7049 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7050 + "cwai\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7051 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7052 + (set (attr "cycles") (const_int CWAI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7053 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7054 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7055 +;; Generate the SYNC instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7056 +(define_insn "m6809_sync"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7057 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7058 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7059 + "sync"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7060 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7061 + (set (attr "cycles") (const_int SYNC_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7062 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7063 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7064 +;; Generate the NOP instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7065 +(define_insn "nop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7066 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7067 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7068 + "nop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7069 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7070 + (set (attr "cycles") (const_int NOP_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7071 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7072 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7073 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7074 +;;- Peepholes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7075 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7076 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7077 +;;; Each peephole has an ID that is used for debugging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7078 +;;; Each peephole condition is bracketed by calls to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7079 +;;; m6809_match_peephole2() also for debugging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7080 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7081 + (PEEP_END 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7082 + (PEEP_COND 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7083 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7084 + (PEEP_STACK_STORE_INC 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7085 + (PEEP_STACK_CLEAR_INC 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7086 + (PEEP_LSRB_ADCB 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7087 + (PEEP_ABX 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7088 + (PEEP_ABX2 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7089 + (PEEP_INDEXED_INC 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7090 + (PEEP_MEM_DEC 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7091 + (PEEP_MEM_INC 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7092 + (PEEP_MEM_DEC_CMP 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7093 + (PEEP_PUSH2 9)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7094 + (PEEP_STORE_IMPLIES_CC 10)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7095 + (PEEP_DEC_IMPLIES_CC 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7096 + (PEEP_LEAB 12)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7097 + (PEEP_LDX_INDIRECT 13)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7098 + (PEEP_POP_JUNK 14)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7099 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7100 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7101 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7102 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7103 +;;; function prologue needs to allocate stack space and 'b' is placed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7104 +;;; into that local right away. Combine the stack allocation with the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7105 +;;; store using preincrement mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7106 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7107 + [(set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7108 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7109 + (set (mem:QI (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7110 + (match_operand:QI 0 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7111 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7112 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7113 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7114 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7115 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7116 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7117 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7119 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7120 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7121 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7122 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7123 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7124 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7125 +;;; Merge two consecutive push instructions into a single register_push.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7126 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7127 + [(set (match_operand 0 "push_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7128 + (match_operand 1 "register_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7129 + (set (match_operand 2 "push_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7130 + (match_operand 3 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7131 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7132 + && reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7133 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7135 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7136 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7137 + (use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7138 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7139 + (clobber (reg:HI HARD_S_REGNUM))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7140 + (use (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7141 + (use (match_dup 3))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7142 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7143 + operands[4] = gen_rtx_CONST_INT (QImode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7144 + (1 << REGNO (operands[1])) | (1 << REGNO (operands[3])));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7145 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7146 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7147 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7148 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7149 +;;; notation, so that it may be combined with an adjacent regset.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7150 +;;; TBD - this doesn't compile some code cleanly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7151 +;(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7152 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7153 +; (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7154 +; "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7155 +; [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7156 +; (use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7157 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7158 +; (clobber (reg:HI HARD_S_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7159 +;{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7160 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7161 +;})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7162 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7163 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7164 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7165 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7166 +;;; won't overflow when q=0xFF.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7167 +;;; TODO : this form isn't accounting for promotion when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7168 +;;; using 16-bit ints.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7169 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7170 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7171 + [(set (reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7172 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7173 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7174 + "lsrb\;adcb\t#0; peephole"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7175 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7176 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7177 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7178 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7179 +;; Optimize the case of following a register store with a test
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7180 +;; of reg or mem just moved.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7181 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7182 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7183 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7184 + (match_operand:HI 1 "register_operand" "r"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7185 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7186 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7187 + && (operands[2] == operands[0] || operands[2] == operands[1])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7188 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7189 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7190 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7191 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7192 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7193 +;; Optimize a pair of SET instructions in which the second insn
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7194 +;; is the reverse of the first one. I.e.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7195 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7196 +;; A = B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7197 +;; ----> A = B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7198 +;; B = A
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7199 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7200 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7201 +;; But don't do this if either is a VOLATILE MEM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7202 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7203 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7204 + (match_operand:HI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7205 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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]))"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7207 + [(set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7208 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7209 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7210 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7211 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7212 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7213 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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]))"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7215 + [(set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7216 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7217 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7218 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7219 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7220 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7221 +;; if B and X can be used. Two patterns are provided to catch both
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7222 +;; X=X+D and X=D+X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7223 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7224 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7225 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7226 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7227 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7228 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7229 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7230 + "abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7231 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7232 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7233 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7234 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7235 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7236 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7237 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7238 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7239 + "abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7240 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7241 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7242 +;;; Likewise, handle when B is scaled by 2 prior to the add.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7243 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7244 +;;; time, in only 3 cycles.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7245 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7246 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7247 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7248 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7249 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7250 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7251 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7252 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7253 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7254 + "abx\;abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7255 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7257 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7258 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7259 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7260 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7261 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7262 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7263 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7264 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7265 + "abx\;abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7266 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7267 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7268 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7269 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7270 +;; Work around a compiler bug that generates bad code when copying
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7271 +;; between 32-bit memory addresses after a libcall. The problem seen is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7273 +;; The second half of the copy therefore fails.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7274 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7275 +;; The solution is to switch the reload register to D, since that is guaranteed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7276 +;; not to be in use right after a libcall.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7277 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7278 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7279 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7280 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7281 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7282 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7283 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7284 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7285 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7286 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7287 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7288 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7289 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7290 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7291 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7292 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7293 +;; Turn "and then test" into a "bit test" operation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7294 +;; Provide variants for immediate and memory sources
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7295 +;; This is the most used peephople.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7296 +; (define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7297 +; [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7298 +; (and:QI (match_operand:QI 1 "register_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7299 +; (match_operand:QI 2 "immediate_operand" "i")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7300 +; (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7301 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7302 +; "bit%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7303 +; [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7304 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7305 +; (define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7306 +; [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7307 +; (and:QI (match_operand:QI 1 "register_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7308 +; (match_operand:QI 2 "memory_operand" "m")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7309 +; (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7310 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7311 +; "bit%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7312 +; [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7313 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7314 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7315 +;; Turn a "decrement, then test" sequence into just a "decrement".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7316 +;; The test can be omitted, since it is implicitly done.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7317 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7318 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7319 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7320 + (match_operand:QI 2 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7321 + (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7322 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7323 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7324 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7325 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7326 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7327 +;; Merge an indexed register increment with a previous usage.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7328 +;; This is usually done automatically, but not always
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7329 +;; The 'use' should be optional; in all cases where this has been
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7330 +;; seen, it is required though.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7331 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7332 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7333 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7334 + (use (match_dup 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7335 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7336 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7337 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7338 + (use (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7339 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7340 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7341 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7342 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7343 +;;; the indirect mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7344 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7345 + [(set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7346 + (mem:HI (match_operand:HI 0 "general_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7347 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7348 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7349 + [(set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7350 + (mem:HI (mem:HI (match_dup 0))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7351 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7352 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7353 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7354 +;;; Reorder a store followed by a unary operation on that memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7355 +;;; so that the unary is performed and then the store. Consider
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7356 +;;; a binary shift operation, which will be decomposed into
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7357 +;;; identical single shifts, also.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7358 +;;; TODO - recognize more than just 'ashift' here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7359 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7360 + [(set (match_operand:QI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7361 + (match_operand:QI 1 "register_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7362 + (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7363 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7364 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7365 + [(set (match_dup 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7366 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7367 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7368 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7369 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7370 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7371 +;;; is done first, then use the REG instead of the MEM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7372 +;;;(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7373 +;;; [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7374 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7375 +;;; (set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7376 +;;; (match_operand:QI 1 "memory_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7377 +;;; "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7378 +;;; [(set (match_dup 0) (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7379 +;;; (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7380 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7381 +;;; "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7382 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7383 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7384 +;;; Replace sex; leaX d,Y with leaX b,Y.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7385 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7386 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7387 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7388 + (set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7389 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7390 + (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7391 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7392 + [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7393 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7394 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7395 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7396 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7397 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7398 + (set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7399 + (plus:HI (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7400 + (match_operand:HI 1 "index_register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7401 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7402 + [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7403 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7404 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7405 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7406 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7407 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7408 +;;; register is not needed, then the load will get deleted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7409 +;;; automatically, but it may be needed for comparisons.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7410 +;;; Same for incb/inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7411 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7412 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7413 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7414 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7415 + (set (match_dup 1) (match_dup 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7416 + (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7417 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7418 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7419 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7420 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7421 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7422 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7423 +;;; register is not needed, then the load will get deleted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7424 +;;; automatically, but it may be needed for comparisons.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7425 +;;; Same for incb/inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7426 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7427 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7428 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7429 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7430 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7431 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7432 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7433 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7434 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7435 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7436 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7437 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7438 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7439 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7440 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7441 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7442 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7443 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7444 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7445 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7446 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7447 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7448 +;;; that the branch can never occur because of the limited range of B.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7450 +;;; the default cases of switch statements on a value (x & N).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7451 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7452 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7453 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7454 + (set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7455 + (compare (match_dup 0) (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7457 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7458 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7459 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7460 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7461 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7462 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7463 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7464 +;;; <mem> must be offsettable for the instruction to match.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7465 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7466 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7467 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7468 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7469 + "reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7470 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7471 + && peep2_reg_dead_p (3, operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7472 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7473 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7474 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7475 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7476 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7477 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7478 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7479 + "reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7480 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7481 + && peep2_reg_dead_p (3, operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7482 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7483 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7484 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7485 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7487 +;;; register, with the combined form using autoincrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7488 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7489 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7490 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7491 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7492 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7493 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7494 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7495 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7496 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7497 +;;- mode:emacs-lisp
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7498 +;;- comment-start: ";;- "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7499 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7500 +;;- eval: (modify-syntax-entry ?[ "(]")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7501 +;;- eval: (modify-syntax-entry ?] ")[")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7502 +;;- eval: (modify-syntax-entry ?{ "(}")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7503 +;;- eval: (modify-syntax-entry ?} "){")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7504 +;-; vim: set ts=2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7505 +;-; vim: set expandtab:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7506 +;-; vim: set filetype=lisp:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7507 +;;- End:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7511 @@ -0,0 +1,98 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7512 +; Options for the M6809 port of the compiler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7513 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7514 +; Copyright (C) 2005 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7515 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7516 +; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7517 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7518 +; GCC is free software; you can redistribute it and/or modify it under
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7519 +; the terms of the GNU General Public License as published by the Free
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7520 +; Software Foundation; either version 2, or (at your option) any later
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7521 +; version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7522 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7523 +; GCC is distributed in the hope that it will be useful, but WITHOUT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7524 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7525 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7526 +; License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7527 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7528 +; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7529 +; along with GCC; see the file COPYING. If not, write to the Free
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7530 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7531 +; 02110-1301, USA.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7532 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7533 +margcount
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7534 +Target Mask(ARGCOUNT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7535 +Push argument count
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7537 +mint8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7538 +Target RejectNegative Mask(BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7539 +Use 8-bit integers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7540 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7541 +mint16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7542 +Target RejectNegative
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7543 +Use 16-bit integers InverseMask(BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7544 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7545 +mreg-args
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7546 +Target Mask(REG_ARGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7547 +Use registers for function arguments
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7548 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7549 +mshort_size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7550 +Target RejectNegative Mask(SMALL_SIZE_T)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7551 +Use 8-bit size_t
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7552 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7553 +mlong_size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7554 +Target RejectNegative InverseMask(SMALL_SIZE_T)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7555 +Use 16-bit size_t
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7556 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7557 +mdirect
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7558 +Target Mask(DIRECT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7559 +Enable direct addressing
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7560 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7561 +mwpc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7562 +Target RejectNegative Mask(WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7563 +Enable WPC platform extensions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7564 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7565 +mexperiment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7566 +Target RejectNegative Mask(EXPERIMENT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7567 +Enable current experimental feature
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7568 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7569 +m6309
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7570 +Target RejectNegative Mask(6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7571 +Enable Hitachi 6309 extensions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7572 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7573 +mcasesi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7574 +Target RejectNegative Mask(CASESI)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7575 +Enable the casesi pattern
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7576 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7577 +mfar-code-page=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7578 +Target RejectNegative Joined Var(far_code_page_option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7579 +Sets the far code page value for this compilation unit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7580 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7581 +mcode-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7582 +Target RejectNegative Joined Var(code_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7583 +Sets the name of the section for code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7584 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7585 +mdata-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7586 +Target RejectNegative Joined Var(data_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7587 +Sets the name of the section for initialized data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7588 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7589 +mbss-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7590 +Target RejectNegative Joined Var(bss_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7591 +Sets the name of the section for uninitialized data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7592 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7593 +mabi_version=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7594 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7595 +Sets the calling convention
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7596 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7597 +msoft-reg-count=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7598 +Target RejectNegative Joined Var(m6809_soft_reg_count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7599 +Sets the number of soft registers that can be used
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7600 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7601 +mdret
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7602 +Target RejectNegative Mask(DRET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7603 +Put function call results in D, not X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7604 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7605 +mfar-stack-param
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7606 +Target Mask(FAR_STACK_PARAM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7607 +Enable stack parameters to a farcall
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7608 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7609 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7613 @@ -0,0 +1,94 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7614 +/* GCC for 6809 : machine-specific function prototypes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7615 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7616 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7617 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7618 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7619 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7620 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7621 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7622 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7623 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7624 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7625 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7626 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7628 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7629 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7630 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7631 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7632 +#ifndef __M6809_PROTOS_H__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7633 +#define __M6809_PROTOS_H__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7634 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7635 +void print_options (FILE *file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7636 +void m6809_cpu_cpp_builtins (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7637 +void m6809_override_options (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7638 +void m6809_init_builtins (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7639 +unsigned int m6809_get_live_regs (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7640 +const char * m6809_get_regs_printable (unsigned int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7641 +unsigned int m6809_get_regs_size (unsigned int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7642 +int m6809_function_has_type_attr_p (tree decl, const char *);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7643 +int m6809_current_function_has_type_attr_p (const char *);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7644 +int prologue_epilogue_required (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7645 +int noreturn_functionp (rtx x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7646 +void output_function_prologue (FILE *file, int size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7647 +void output_function_epilogue (FILE *file, int size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7648 +int check_float_value (enum machine_mode mode, double *d, int overflow);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7649 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7650 +void m6809_asm_file_start (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7651 +void m6809_output_ascii (FILE *fp, const char *str, unsigned long size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7652 +void m6809_declare_function_name (FILE *asm_out_file, const char *name, tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7653 +void m6809_reorg (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7654 +int m6809_current_function_is_void (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7655 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7656 +int m6809_function_value_regno_p (unsigned int regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7657 +void emit_prologue_insns (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7658 +void emit_epilogue_insns (bool);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7659 +void m6809_conditional_register_usage (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7660 +void m6809_output_quoted_string (FILE *asm_file, const char *string);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7661 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7662 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7663 +int power_of_two_p (unsigned int n);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7665 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7666 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7667 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7668 +int m6809_single_operand_operator (rtx exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7669 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7670 +#ifdef TREE_CODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7671 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7672 +#endif /* TREE_CODE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7673 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7674 +#ifdef RTX_CODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7675 +void print_direct_prefix (FILE *file, rtx addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7676 +void print_operand (FILE *file, rtx x, int code);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7677 +void print_operand_address (FILE *file, rtx addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7678 +void notice_update_cc (rtx exp, rtx insn);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7679 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7680 +rtx gen_rtx_const_high (rtx r);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7681 +rtx gen_rtx_const_low (rtx r);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7682 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7684 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7685 +void output_far_call_insn (rtx *operands, int has_return);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7686 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7688 +const char * far_functionp (rtx x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7689 +rtx m6809_function_value (const tree valtype, const tree func);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7690 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7691 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7692 +const char * m6809_get_decl_bank (tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7693 +void output_branch_insn1 (const char *opcode, rtx *operands, int long_p);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7694 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7695 +const char * far_function_type_p (tree type);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7696 +void m6809_asm_trampoline_template(FILE *f);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7697 +bool m6809_frame_pointer_required (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7698 +int m6809_can_eliminate (int from, int to);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7699 +int m6809_initial_elimination_offset (int from, int to);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7700 +void m6809_emit_move_insn (rtx dst, rtx src);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7701 +void m6809_split_shift (enum rtx_code code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7702 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7703 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7705 +#endif /* RTX_CODE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7707 +#endif /* __M6809_PROTOS_H__ */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7711 @@ -0,0 +1,78 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7712 +;; Predicate definitions for Motorola 6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7713 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7714 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7715 +;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7716 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7717 +;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7718 +;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7719 +;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7720 +;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7721 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7722 +;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7723 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7724 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7725 +;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7726 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7727 +;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7728 +;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7729 +;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7730 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7731 +;; whole_register_operand is like register_operand, but it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7732 +;; does not allow SUBREGs.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7733 +(define_predicate "whole_register_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7734 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7735 + (match_operand 0 "register_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7736 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7737 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7738 +;; A predicate that matches any index register. This can be used in nameless
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7739 +;; patterns and peepholes which need a 16-bit reg, but not D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7740 +(define_predicate "index_register_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7741 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7743 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7744 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7745 +;; match only X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7746 +(define_predicate "register_operand_x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7747 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7748 + (match_test "REGNO (op) == HARD_X_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7749 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7750 +;; match only D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7751 +(define_predicate "register_operand_d"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7752 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7753 + (match_test "REGNO (op) == HARD_D_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7754 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7756 +;; Likwise, a replacement for general_operand which excludes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7757 +;; SUBREGs.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7758 +(define_predicate "whole_general_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7759 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7760 + (match_operand 0 "general_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7761 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7763 +(define_predicate "add_general_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7764 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7765 + (match_operand 0 "general_operand")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7766 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7767 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7768 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7769 +(define_predicate "shift_count_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7770 + (and (match_code "const_int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7771 + (and (match_operand 0 "const_int_operand")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7772 + (match_test "INTVAL (op) == 1 || INTVAL (op) == 8"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7773 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7774 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7775 +;; A predicate that matches any bitwise logical operator. This
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7776 +;; allows for a single RTL pattern to be used for multiple operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7777 +(define_predicate "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7778 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7779 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7780 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7781 +;; A predicate that matches any shift or rotate operator. This
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7782 +;; allows for a single RTL pattern to be used for multiple operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7783 +(define_predicate "shift_rotate_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7784 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7785 + (match_code "rotate") (match_code "rotatert")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7787 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7788 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7793 @@ -0,0 +1,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7794 +# For a few minor differences in code generation on the CoCo...
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7795 +T_CFLAGS = -DTARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7796 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7797 +# For doing the startup differently on the CoCo...
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7798 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7799 +# vim: set filetype=make:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7803 @@ -0,0 +1,64 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7804 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7806 +RANLIB_FOR_TARGET = true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7807 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7808 +# Stubs for libgcc defined by m6809 are here
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7809 +LIB1ASMSRC = m6809/libgcc1.s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7810 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7811 +# Here are the functions that are implemented within libgcc1.s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7812 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7813 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7814 + _ashlhi3 _ashrhi3 _lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7815 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7816 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7817 +# although the compile breaks without it. -DDF=SF is required to set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7818 +# the size of "double" to the same as the size of a "float".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7820 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7821 +LIB2ADDEH =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7822 +LIB2ADDEHSTATIC =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7823 +LIB2ADDEHSHARED =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7824 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7825 +LIBGCC2_DEBUG_CFLAGS =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7827 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7828 +# Multilib information
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7829 +# This creates multiple versions of libgcc.a for each set of incompatible
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7830 +# -mxxx options.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7831 +MULTILIB_OPTIONS = fpic mdret
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7832 +MULTILIB_DIRNAMES =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7833 +MULTILIB_MATCHES =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7834 +MULTILIB_EXCEPTIONS =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7835 +EXTRA_MULTILIB_PARTS = crt0.o
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7836 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7837 +LIBGCC = stmp-multilib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7838 +INSTALL_LIBGCC = install-multilib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7839 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7840 +# We want fine grained libraries, so use the new code to build the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7841 +# floating point emulation libraries.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7842 +FPBIT = fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7843 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7844 +fp-bit.c: $(srcdir)/config/fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7845 + echo '#define FLOAT' > fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7846 + echo '#define FLOAT_ONLY' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7847 + echo '#define CMPtype HItype' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7848 + echo '#define SMALL_MACHINE' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7849 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7850 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7851 + echo '#endif' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7852 + echo '#define DI SI' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7853 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7854 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7855 +# crt0.o is built from the following source file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7856 +CRT0_S = $(srcdir)/config/m6809/crt0.S
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7857 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7858 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7859 +# Flags to use when building crt0.o
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7860 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7861 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7862 +# Assemble startup files.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7863 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7866 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7871 @@ -0,0 +1 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7872 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7876 @@ -375,6 +375,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7877 cpu_type=m32r
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7878 extra_options="${extra_options} g.opt"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7879 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7880 +m6809-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7881 + cpu_type=m6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7882 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7883 m68k-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7884 extra_headers=math-68881.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7885 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7886 @@ -1706,6 +1709,12 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7887 thread_file='posix'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7888 fi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7889 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7890 +m6809-coco-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7891 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7892 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7893 +m6809-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7894 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7895 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7896 # m68hc11 and m68hc12 share the same machine description.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7897 m68hc11-*-*|m6811-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7898 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7902 @@ -833,7 +833,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7903 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7904 if (max_distance == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7905 return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7906 -
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7907 gcc_assert (max_distance > 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7908 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7909 else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7913 @@ -485,6 +485,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7914 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7915
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7916 #ifdef L_bswapsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7917 +#if MIN_UNITS_PER_WORD > 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7918 SItype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7919 __bswapsi2 (SItype u)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7920 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7921 @@ -494,7 +495,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7922 | (((u) & 0x000000ff) << 24));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7923 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7924 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7925 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7926 #ifdef L_bswapdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7927 +#if LONG_LONG_TYPE_SIZE > 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7928 DItype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7929 __bswapdi2 (DItype u)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7930 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7931 @@ -508,6 +511,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7932 | (((u) & 0x00000000000000ffull) << 56));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7933 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7934 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7935 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7936 #ifdef L_ffssi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7937 #undef int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7938 int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7939 @@ -1280,7 +1284,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7940 UDWtype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7941 __fixunssfDI (SFtype a)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7942 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7943 -#if LIBGCC2_HAS_DF_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7944 +#if LIBGCC2_HAS_DF_MODE || (FLT_MANT_DIG >= W_TYPE_SIZE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7945 /* Convert the SFtype to a DFtype, because that is surely not going
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7946 to lose any bits. Some day someone else can write a faster version
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7947 that avoids converting to DFtype, and verify it really works right. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7948 @@ -1298,7 +1302,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7949
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7950 /* Assemble result from the two parts. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7951 return ((UDWtype) hi << W_TYPE_SIZE) | lo;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7952 -#elif FLT_MANT_DIG < W_TYPE_SIZE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7953 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7954 if (a < 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7955 return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7956 if (a < Wtype_MAXp1_F)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7957 @@ -1334,8 +1338,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7958 return (DWtype)counter << shift;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7959 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7960 return -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7961 -#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7962 -# error
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7963 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7964 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7965 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7969 @@ -528,6 +528,11 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7970 : "cbit")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7971 #endif /* __M32R__ */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7972
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7973 +#if defined (__m6309__) || defined (__m6809__)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7974 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7975 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7976 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7977 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7978 #if defined (__mc68000__) && W_TYPE_SIZE == 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7979 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7980 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7984 @@ -2003,14 +2003,14 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7985
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7986 # Compile the start modules crt0.o and mcrt0.o that are linked with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7987 # every program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7988 -$(T)crt0.o: s-crt0 ; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7989 -$(T)mcrt0.o: s-crt0; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7990 +crt0.o: s-crt0 ; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7991 +mcrt0.o: s-crt0; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7992
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7993 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7994 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7995 - -o $(T)crt0.o -c $(CRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7996 + -o crt0.o -c $(CRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7997 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7998 - -o $(T)mcrt0.o -c $(MCRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
7999 + -o mcrt0.o -c $(MCRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8000 $(STAMP) s-crt0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8001 #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8002 # Compiling object files from source files.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8006 @@ -121,7 +121,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8007 END {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8008 print "/* This file is auto-generated by opth-gen.awk. */"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8009 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8010 -print "#ifndef OPTIONS_H"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8011 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8012 print "#define OPTIONS_H"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8013 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8014 print "#include \"flag-types.h\""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8015 @@ -432,18 +432,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8016
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8017 for (i = 0; i < n_opts; i++) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8018 opt = opt_args("InverseMask", flags[i])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8019 - if (opt ~ ",") {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8020 - vname = var_name(flags[i])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8021 - macro = "OPTION_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8022 - mask = "OPTION_MASK_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8023 - if (vname == "") {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8024 - vname = "target_flags"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8025 - macro = "TARGET_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8026 - mask = "MASK_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8027 - }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8028 - print "#define " macro nth_arg(1, opt) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8029 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8030 - }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8031 + if (opt ~ ",")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8032 + print "#define TARGET_" nth_arg(1, opt) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8033 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8034 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8035 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8036
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8040 @@ -3563,6 +3563,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8041 TI_UINTDI_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8042 TI_UINTTI_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8043
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8044 + TI_UINT8_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8045 + TI_UINT16_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8046 TI_UINT32_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8047 TI_UINT64_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8048
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8052 @@ -21,16 +21,16 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8053
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8054 /* This is the location of the online document giving instructions for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8055 reporting bugs. If you distribute a modified version of GCC,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8056 - please configure with --with-bugurl pointing to a document giving
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8057 - instructions for reporting bugs to you, not us. (You are of course
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8058 - welcome to forward us bugs reported to you, if you determine that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8059 - they are not bugs in your modifications.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8060 + please change this to refer to a document giving instructions for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8061 + reporting bugs to you, not us. (You are of course welcome to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8062 + forward us bugs reported to you, if you determine that they are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8063 + not bugs in your modifications.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8064
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8065 -const char bug_report_url[] = BUGURL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8066 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8067
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8068 /* The complete version string, assembled from several pieces.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8069 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8070 Makefile. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8071
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8072 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8073 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw pl6)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8074 const char pkgversion_string[] = PKGVERSION;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8078 @@ -371,6 +371,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8079 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8080 m32rle-*-linux*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8081 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8082 +m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8083 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8084 m68hc11-*-*|m6811-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8085 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8086 m68hc12-*-*|m6812-*-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8090 @@ -23,7 +23,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8091 #$(info $o$(objext): -DL$($o-label) $($o-opt))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8092
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8093 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8094 - $(gcc_compile) -DL$($*-label) $($*-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8096
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8097 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8098 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8102 @@ -374,8 +374,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8103 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8104 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8105 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8106 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8107 - $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8108 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8109 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8110 libgcc-objects += $(lib2funcs-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8111
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8112 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8113 @@ -410,8 +410,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8114 # Build LIB2_DIVMOD_FUNCS.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8115 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8116 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8117 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8118 - -fexceptions -fnon-call-exceptions $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8119 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8120 + $(gcc_compile) -DL$* -c $*.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8121 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8122 libgcc-objects += $(lib2-divmod-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8123
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8124 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8125 @@ -443,7 +444,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8126 ifneq ($(FPBIT),)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8127 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8128 $(fpbit-o): %$(objext): $(FPBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8129 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8130 + ln -sf $(FPBIT) $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8131 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8132 libgcc-objects += $(fpbit-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8133
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8134 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8135 @@ -458,7 +460,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8136 ifneq ($(DPBIT),)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8137 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8138 $(dpbit-o): %$(objext): $(DPBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8140 + ln -sf $(DPBIT) $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8142 libgcc-objects += $(dpbit-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8143
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8144 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8147 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8148 @@ -0,0 +1,14 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8149 +This is a port of gcc6809 which is designed to work with the lwtools
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8150 +cross-assembler and linker package. You will need several scripts from that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8151 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8152 +this. Instructions for building are present in the lwtools package.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8153 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8155 +Dominy (brian@oddchange.com) with some significant renovations to make it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8156 +work with gcc 4.6.1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8157 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8158 +There is no guarantee that it will work for any particular purpose you
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8159 +choose to put it to.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8160 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns
William Astle <lost@l-w.ca>
parents:
diff changeset
8162 +contact the main GCC developers!