OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [config/] [m32c/] [prologue.md] - Blame information for rev 709

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 709 jeremybenn 
;; Machine Descriptions for R8C/M16C/M32C
2 
;; Copyright (C) 2005, 2007, 2008
3 
;; Free Software Foundation, Inc.
4 
;; Contributed by Red Hat.
5 
;;
6 
;; This file is part of GCC.
7 
;;
8 
;; GCC is free software; you can redistribute it and/or modify it
9 
;; under the terms of the GNU General Public License as published
10 
;; by the Free Software Foundation; either version 3, or (at your
11 
;; option) any later version.
12 
;;
13 
;; GCC is distributed in the hope that it will be useful, but WITHOUT
14 
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
16 
;; License for more details.
17 
;;
18 
;; You should have received a copy of the GNU General Public License
19 
;; along with GCC; see the file COPYING3.  If not see
20 
;; .
21 
 
22 
;; Prologue and epilogue patterns
23 
 
24 
(define_expand "prologue"
25 
  [(const_int 1)]
26 
  ""
27 
  "m32c_emit_prologue(); DONE;"
28 
  )
29 
 
30 
; For the next two, operands[0] is the amount of stack space we want
31 
; to reserve.
32 
 
33 
; We assume dwarf2out will process each set in sequence.
34 
(define_insn "prologue_enter_16"
35 
  [(set (mem:HI (plus:HI (reg:HI SP_REGNO) (const_int -2)))
36 
        (reg:HI FB_REGNO))
37 
   (set (reg:HI FB_REGNO)
38 
        (plus:HI (reg:HI SP_REGNO) (const_int -2)))
39 
   (set (reg:HI SP_REGNO)
40 
        (minus:HI (reg:HI SP_REGNO)
41 
                   (match_operand 0 "const_int_operand" "i")))
42 
   ]
43 
  "TARGET_A16"
44 
  {
45 
    /* This is due to binutils bug gas/4659.  */
46 
    if (INTVAL (operands[0]) == 2)
47 
      return "enter\t#0";
48 
    return "enter\t%0-2";
49 
  }
50 
  [(set_attr "flags" "x")]
51 
  )
52 
 
53 
(define_insn "prologue_enter_24"
54 
  [(set (mem:SI (plus:PSI (reg:PSI SP_REGNO) (const_int -4)))
55 
        (reg:SI FB_REGNO))
56 
   (set (reg:PSI FB_REGNO)
57 
        (plus:PSI (reg:PSI SP_REGNO) (const_int -4)))
58 
   (set (reg:PSI SP_REGNO)
59 
        (minus:PSI (reg:PSI SP_REGNO)
60 
                   (match_operand 0 "const_int_operand" "i")))
61 
   ]
62 
  "TARGET_A24"
63 
  {
64 
    /* This is due to binutils bug gas/4659.  */
65 
    if (INTVAL (operands[0]) == 4)
66 
      return "enter\t#0";
67 
    return "enter\t%0-4";
68 
  }
69 
  [(set_attr "flags" "x")]
70 
  )
71 
 
72 
; Just a comment, for debugging the assembler output.
73 
(define_insn "prologue_end"
74 
  [(unspec_volatile [(const_int 0)] UNS_PROLOGUE_END)]
75 
  ""
76 
  "; end of prologue"
77 
  [(set_attr "flags" "n")]
78 
  )
79 
 
80 
 
81 
 
82 
(define_expand "epilogue"
83 
  [(const_int 1)]
84 
  ""
85 
  "m32c_emit_epilogue(); DONE;"
86 
  )
87 
 
88 
(define_expand "eh_return"
89 
  [(match_operand:PSI 0 "" "")]
90 
  ""
91 
  "m32c_emit_eh_epilogue(operands[0]);
92 
   emit_barrier ();
93 
   DONE;"
94 
  )
95 
 
96 
(define_insn "eh_epilogue"
97 
  [(set (pc)
98 
        (unspec_volatile [(match_operand 0 "m32c_r1_operand" "")
99 
                          (match_operand 1 "m32c_r0_operand" "")
100 
                          ] UNS_EH_EPILOGUE))
101 
   (return)]
102 
  ""
103 
  "jmp.a\t__m32c_eh_return"
104 
  [(set_attr "flags" "x")]
105 
  )
106 
 
107 
(define_insn "epilogue_exitd_16"
108 
  [(set (reg:HI SP_REGNO)
109 
        (plus:HI (reg:HI FB_REGNO)
110 
              (const_int 2)))
111 
   (set (reg:HI FB_REGNO)
112 
        (mem:HI (reg:HI FB_REGNO)))
113 
   (return)
114 
   ]
115 
  "TARGET_A16"
116 
  "exitd"
117 
  [(set_attr "flags" "x")]
118 
  )
119 
 
120 
(define_insn "epilogue_reit_16"
121 
  [(set (reg:HI SP_REGNO)
122 
        (plus:HI (reg:HI SP_REGNO)
123 
              (const_int 4)))
124 
   (return)
125 
   ]
126 
  "TARGET_A16"
127 
  "reit"
128 
  [(set_attr "flags" "x")]
129 
  )
130 
 
131 
(define_insn "epilogue_exitd_24"
132 
  [(set (reg:PSI SP_REGNO)
133 
        (plus:PSI (reg:PSI FB_REGNO)
134 
              (const_int 4)))
135 
   (set (reg:PSI FB_REGNO)
136 
        (mem:PSI (reg:PSI FB_REGNO)))
137 
   (return)
138 
   ]
139 
  "TARGET_A24"
140 
  "exitd"
141 
  [(set_attr "flags" "x")]
142 
  )
143 
 
144 
(define_insn "epilogue_reit_24"
145 
  [(set (reg:PSI SP_REGNO)
146 
        (plus:PSI (reg:PSI SP_REGNO)
147 
              (const_int 6)))
148 
   (return)
149 
   ]
150 
  "TARGET_A24"
151 
  "reit"
152 
  [(set_attr "flags" "x")]
153 
  )
154 
 
155 
(define_insn "epilogue_freit"
156 
  [(unspec [(const_int 0)] UNS_FREIT)
157 
   (return)
158 
   ]
159 
  ""
160 
  "freit"
161 
  [(set_attr "flags" "x")]
162 
  )
163 
 
164 
(define_insn "epilogue_rts"
165 
  [(return)
166 
   ]
167 
  ""
168 
  "rts"
169 
  [(set_attr "flags" "x")]
170 
  )
171 
 
172 
(define_insn "epilogue_start"
173 
  [(unspec_volatile [(const_int 0)] UNS_EPILOGUE_START)]
174 
  ""
175 
  "; start of epilogue"
176 
  [(set_attr "flags" "n")]
177 
  )
178 
 
179 
 
180 
; These are used by the prologue/epilogue code.
181 
 
182 
(define_insn "pushm"
183 
  [(unspec [(match_operand 0 "const_int_operand" "i")] UNS_PUSHM)]
184 
  ""
185 
  "pushm\t%p0"
186 
  [(set_attr "flags" "n")]
187 
  )
188 
 
189 
(define_insn "popm"
190 
  [(unspec [(match_operand 0 "const_int_operand" "i")] UNS_POPM)]
191 
  ""
192 
  "popm\t%p0"
193 
  [(set_attr "flags" "n")]
194 
  )
195 
 
196 
(define_insn "fset_b"
197 
  [(unspec [(const_int 0)] UNS_FSETB)]
198 
  ""
199 
  "fset\tB"
200 
  [(set_attr "flags" "n")]
201 
  )
202 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.