1 /* Machine description patterns for PowerPC running Darwin (Mac OS X).
2 Copyright (C) 2004-2018 Free Software Foundation, Inc.
3 Contributed by Apple Computer Inc.
5 This file is part of GCC.
7 GNU CC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GNU CC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 ;; along with GCC; see the file COPYING3. If not see
19 ;; <http://www.gnu.org/licenses/>. */
21 (define_insn "adddi3_high"
22 [(set (match_operand:DI 0 "gpc_reg_operand" "=b")
23 (plus:DI (match_operand:DI 1 "gpc_reg_operand" "b")
24 (high:DI (match_operand 2 "" ""))))]
25 "TARGET_MACHO && TARGET_64BIT"
26 "addis %0,%1,ha16(%2)"
27 [(set_attr "length" "4")])
29 (define_insn "movdf_low_si"
30 [(set (match_operand:DF 0 "gpc_reg_operand" "=f,!r")
31 (mem:DF (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b,b")
32 (match_operand 2 "" ""))))]
33 "TARGET_MACHO && TARGET_HARD_FLOAT && !TARGET_64BIT"
35 switch (which_alternative)
38 return "lfd %0,lo16(%2)(%1)";
41 if (TARGET_POWERPC64 && TARGET_32BIT)
42 /* Note, old assemblers didn't support relocation here. */
43 return "ld %0,lo16(%2)(%1)";
46 output_asm_insn ("la %0,lo16(%2)(%1)", operands);
47 output_asm_insn ("lwz %L0,4(%0)", operands);
48 return ("lwz %0,0(%0)");
55 [(set_attr "type" "load")
56 (set_attr "length" "4,12")])
59 (define_insn "movdf_low_di"
60 [(set (match_operand:DF 0 "gpc_reg_operand" "=f,!r")
61 (mem:DF (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b,b")
62 (match_operand 2 "" ""))))]
63 "TARGET_MACHO && TARGET_HARD_FLOAT && TARGET_64BIT"
65 switch (which_alternative)
68 return "lfd %0,lo16(%2)(%1)";
70 return "ld %0,lo16(%2)(%1)";
75 [(set_attr "type" "load")
76 (set_attr "length" "4,4")])
78 (define_insn "movdf_low_st_si"
79 [(set (mem:DF (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b")
80 (match_operand 2 "" "")))
81 (match_operand:DF 0 "gpc_reg_operand" "f"))]
82 "TARGET_MACHO && TARGET_HARD_FLOAT && ! TARGET_64BIT"
83 "stfd %0,lo16(%2)(%1)"
84 [(set_attr "type" "store")
85 (set_attr "length" "4")])
87 (define_insn "movdf_low_st_di"
88 [(set (mem:DF (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b")
89 (match_operand 2 "" "")))
90 (match_operand:DF 0 "gpc_reg_operand" "f"))]
91 "TARGET_MACHO && TARGET_HARD_FLOAT && TARGET_64BIT"
92 "stfd %0,lo16(%2)(%1)"
93 [(set_attr "type" "store")
94 (set_attr "length" "4")])
96 (define_insn "movsf_low_si"
97 [(set (match_operand:SF 0 "gpc_reg_operand" "=f,!r")
98 (mem:SF (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b,b")
99 (match_operand 2 "" ""))))]
100 "TARGET_MACHO && TARGET_HARD_FLOAT && ! TARGET_64BIT"
104 [(set_attr "type" "load")
105 (set_attr "length" "4")])
107 (define_insn "movsf_low_di"
108 [(set (match_operand:SF 0 "gpc_reg_operand" "=f,!r")
109 (mem:SF (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b,b")
110 (match_operand 2 "" ""))))]
111 "TARGET_MACHO && TARGET_HARD_FLOAT && TARGET_64BIT"
115 [(set_attr "type" "load")
116 (set_attr "length" "4")])
118 (define_insn "movsf_low_st_si"
119 [(set (mem:SF (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b,b")
120 (match_operand 2 "" "")))
121 (match_operand:SF 0 "gpc_reg_operand" "f,!r"))]
122 "TARGET_MACHO && TARGET_HARD_FLOAT && ! TARGET_64BIT"
126 [(set_attr "type" "store")
127 (set_attr "length" "4")])
129 (define_insn "movsf_low_st_di"
130 [(set (mem:SF (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b,b")
131 (match_operand 2 "" "")))
132 (match_operand:SF 0 "gpc_reg_operand" "f,!r"))]
133 "TARGET_MACHO && TARGET_HARD_FLOAT && TARGET_64BIT"
137 [(set_attr "type" "store")
138 (set_attr "length" "4")])
140 ;; 64-bit MachO load/store support
141 (define_insn "movdi_low"
142 [(set (match_operand:DI 0 "gpc_reg_operand" "=r,*!d")
143 (mem:DI (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b,b")
144 (match_operand 2 "" ""))))]
145 "TARGET_MACHO && TARGET_64BIT"
149 [(set_attr "type" "load")
150 (set_attr "length" "4")])
152 (define_insn "movsi_low_st"
153 [(set (mem:SI (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b")
154 (match_operand 2 "" "")))
155 (match_operand:SI 0 "gpc_reg_operand" "r"))]
156 "TARGET_MACHO && ! TARGET_64BIT"
157 "stw %0,lo16(%2)(%1)"
158 [(set_attr "type" "store")
159 (set_attr "length" "4")])
161 (define_insn "movdi_low_st"
162 [(set (mem:DI (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b,b")
163 (match_operand 2 "" "")))
164 (match_operand:DI 0 "gpc_reg_operand" "r,*!d"))]
165 "TARGET_MACHO && TARGET_64BIT"
168 stfd %0,lo16(%2)(%1)"
169 [(set_attr "type" "store")
170 (set_attr "length" "4")])
172 ;; Mach-O PIC trickery.
173 (define_expand "macho_high"
174 [(set (match_operand 0 "" "")
175 (high (match_operand 1 "" "")))]
179 emit_insn (gen_macho_high_di (operands[0], operands[1]));
181 emit_insn (gen_macho_high_si (operands[0], operands[1]));
186 (define_insn "macho_high_si"
187 [(set (match_operand:SI 0 "gpc_reg_operand" "=b*r")
188 (high:SI (match_operand 1 "" "")))]
189 "TARGET_MACHO && ! TARGET_64BIT"
193 (define_insn "macho_high_di"
194 [(set (match_operand:DI 0 "gpc_reg_operand" "=b*r")
195 (high:DI (match_operand 1 "" "")))]
196 "TARGET_MACHO && TARGET_64BIT"
199 (define_expand "macho_low"
200 [(set (match_operand 0 "" "")
201 (lo_sum (match_operand 1 "" "")
202 (match_operand 2 "" "")))]
206 emit_insn (gen_macho_low_di (operands[0], operands[1], operands[2]));
208 emit_insn (gen_macho_low_si (operands[0], operands[1], operands[2]));
213 (define_insn "macho_low_si"
214 [(set (match_operand:SI 0 "gpc_reg_operand" "=r")
215 (lo_sum:SI (match_operand:SI 1 "gpc_reg_operand" "b")
216 (match_operand 2 "" "")))]
217 "TARGET_MACHO && ! TARGET_64BIT"
218 "la %0,lo16(%2)(%1)")
220 (define_insn "macho_low_di"
221 [(set (match_operand:DI 0 "gpc_reg_operand" "=r")
222 (lo_sum:DI (match_operand:DI 1 "gpc_reg_operand" "b")
223 (match_operand 2 "" "")))]
224 "TARGET_MACHO && TARGET_64BIT"
225 "la %0,lo16(%2)(%1)")
228 [(set (mem:V4SI (plus:DI (match_operand:DI 0 "gpc_reg_operand" "")
229 (match_operand:DI 1 "short_cint_operand" "")))
230 (match_operand:V4SI 2 "register_operand" ""))
231 (clobber (match_operand:DI 3 "gpc_reg_operand" ""))]
232 "TARGET_MACHO && TARGET_64BIT"
233 [(set (match_dup 3) (plus:DI (match_dup 0) (match_dup 1)))
234 (set (mem:V4SI (match_dup 3))
238 (define_expand "load_macho_picbase"
239 [(set (reg:SI LR_REGNO)
240 (unspec [(match_operand 0 "" "")]
242 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic"
245 emit_insn (gen_load_macho_picbase_si (operands[0]));
247 emit_insn (gen_load_macho_picbase_di (operands[0]));
252 (define_insn "load_macho_picbase_si"
253 [(set (reg:SI LR_REGNO)
254 (unspec:SI [(match_operand:SI 0 "immediate_operand" "s")
255 (pc)] UNSPEC_LD_MPIC))]
256 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic"
259 machopic_should_output_picbase_label (); /* Update for new func. */
263 return "bcl 20,31,%0\n%0:";
265 [(set_attr "type" "branch")
266 (set_attr "cannot_copy" "yes")
267 (set_attr "length" "4")])
269 (define_insn "load_macho_picbase_di"
270 [(set (reg:DI LR_REGNO)
271 (unspec:DI [(match_operand:DI 0 "immediate_operand" "s")
272 (pc)] UNSPEC_LD_MPIC))]
273 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic && TARGET_64BIT"
276 machopic_should_output_picbase_label (); /* Update for new func. */
280 return "bcl 20,31,%0\n%0:";
282 [(set_attr "type" "branch")
283 (set_attr "cannot_copy" "yes")
284 (set_attr "length" "4")])
286 (define_expand "macho_correct_pic"
287 [(set (match_operand 0 "" "")
288 (plus (match_operand 1 "" "")
289 (unspec [(match_operand 2 "" "")
290 (match_operand 3 "" "")]
291 UNSPEC_MPIC_CORRECT)))]
292 "DEFAULT_ABI == ABI_DARWIN"
295 emit_insn (gen_macho_correct_pic_si (operands[0], operands[1], operands[2],
298 emit_insn (gen_macho_correct_pic_di (operands[0], operands[1], operands[2],
304 (define_insn "macho_correct_pic_si"
305 [(set (match_operand:SI 0 "gpc_reg_operand" "=r")
306 (plus:SI (match_operand:SI 1 "gpc_reg_operand" "r")
307 (unspec:SI [(match_operand:SI 2 "immediate_operand" "s")
308 (match_operand:SI 3 "immediate_operand" "s")]
309 UNSPEC_MPIC_CORRECT)))]
310 "DEFAULT_ABI == ABI_DARWIN"
311 "addis %0,%1,ha16(%2-%3)\n\taddi %0,%0,lo16(%2-%3)"
312 [(set_attr "length" "8")])
314 (define_insn "macho_correct_pic_di"
315 [(set (match_operand:DI 0 "gpc_reg_operand" "=r")
316 (plus:DI (match_operand:DI 1 "gpc_reg_operand" "r")
317 (unspec:DI [(match_operand:DI 2 "immediate_operand" "s")
318 (match_operand:DI 3 "immediate_operand" "s")]
320 "DEFAULT_ABI == ABI_DARWIN && TARGET_64BIT"
321 "addis %0,%1,ha16(%2-%3)\n\taddi %0,%0,lo16(%2-%3)"
322 [(set_attr "length" "8")])
324 (define_insn "*call_indirect_nonlocal_darwin64"
325 [(call (mem:SI (match_operand:DI 0 "register_operand" "c,*l,c,*l"))
326 (match_operand 1 "" "g,g,g,g"))
327 (use (match_operand:SI 2 "immediate_operand" "O,O,n,n"))
328 (clobber (reg:SI LR_REGNO))]
329 "DEFAULT_ABI == ABI_DARWIN && TARGET_64BIT"
333 [(set_attr "type" "jmpreg,jmpreg,jmpreg,jmpreg")
334 (set_attr "length" "4,4,8,8")])
336 (define_insn "*call_nonlocal_darwin64"
337 [(call (mem:SI (match_operand:DI 0 "symbol_ref_operand" "s,s"))
338 (match_operand 1 "" "g,g"))
339 (use (match_operand:SI 2 "immediate_operand" "O,n"))
340 (clobber (reg:SI LR_REGNO))]
341 "(DEFAULT_ABI == ABI_DARWIN)
342 && (INTVAL (operands[2]) & CALL_LONG) == 0"
345 return output_call(insn, operands, 0, 2);
350 [(set_attr "type" "branch,branch")
351 (set_attr "length" "4,8")])
353 (define_insn "*call_value_indirect_nonlocal_darwin64"
354 [(set (match_operand 0 "" "")
355 (call (mem:SI (match_operand:DI 1 "register_operand" "c,*l,c,*l"))
356 (match_operand 2 "" "g,g,g,g")))
357 (use (match_operand:SI 3 "immediate_operand" "O,O,n,n"))
358 (clobber (reg:SI LR_REGNO))]
359 "DEFAULT_ABI == ABI_DARWIN"
363 [(set_attr "type" "jmpreg,jmpreg,jmpreg,jmpreg")
364 (set_attr "length" "4,4,8,8")])
366 (define_insn "*call_value_nonlocal_darwin64"
367 [(set (match_operand 0 "" "")
368 (call (mem:SI (match_operand:DI 1 "symbol_ref_operand" "s,s"))
369 (match_operand 2 "" "g,g")))
370 (use (match_operand:SI 3 "immediate_operand" "O,n"))
371 (clobber (reg:SI LR_REGNO))]
372 "(DEFAULT_ABI == ABI_DARWIN)
373 && (INTVAL (operands[3]) & CALL_LONG) == 0"
376 return output_call(insn, operands, 1, 3);
381 [(set_attr "type" "branch,branch")
382 (set_attr "length" "4,8")])
384 (define_expand "reload_macho_picbase"
385 [(set (reg:SI LR_REGNO)
386 (unspec [(match_operand 0 "" "")]
388 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic"
391 emit_insn (gen_reload_macho_picbase_si (operands[0]));
393 emit_insn (gen_reload_macho_picbase_di (operands[0]));
398 (define_insn "reload_macho_picbase_si"
399 [(set (reg:SI LR_REGNO)
400 (unspec:SI [(match_operand:SI 0 "immediate_operand" "s")
401 (pc)] UNSPEC_RELD_MPIC))]
402 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic"
405 if (machopic_should_output_picbase_label ())
408 const char *cnam = machopic_get_function_picbase ();
409 snprintf (tmp, 64, "bcl 20,31,%s\n%s:\n%%0:", cnam, cnam);
416 return "bcl 20,31,%0\n%0:";
418 [(set_attr "type" "branch")
419 (set_attr "cannot_copy" "yes")
420 (set_attr "length" "4")])
422 (define_insn "reload_macho_picbase_di"
423 [(set (reg:DI LR_REGNO)
424 (unspec:DI [(match_operand:DI 0 "immediate_operand" "s")
425 (pc)] UNSPEC_RELD_MPIC))]
426 "(DEFAULT_ABI == ABI_DARWIN) && flag_pic && TARGET_64BIT"
429 if (machopic_should_output_picbase_label ())
432 const char *cnam = machopic_get_function_picbase ();
433 snprintf (tmp, 64, "bcl 20,31,%s\n%s:\n%%0:", cnam, cnam);
440 return "bcl 20,31,%0\n%0:";
442 [(set_attr "type" "branch")
443 (set_attr "cannot_copy" "yes")
444 (set_attr "length" "4")])
446 ;; We need to restore the PIC register, at the site of nonlocal label.
448 (define_insn_and_split "nonlocal_goto_receiver"
449 [(unspec_volatile [(const_int 0)] UNSPECV_NLGR)]
450 "TARGET_MACHO && flag_pic"
452 "&& reload_completed"
456 if (crtl->uses_pic_offset_table)
458 static unsigned n = 0;
459 rtx picrtx = gen_rtx_SYMBOL_REF (Pmode, MACHOPIC_FUNCTION_BASE_NAME);
460 rtx picreg = gen_rtx_REG (Pmode, RS6000_PIC_OFFSET_TABLE_REGNUM);
464 ASM_GENERATE_INTERNAL_LABEL(tmplab, "Lnlgr", ++n);
465 tmplrtx = gen_rtx_SYMBOL_REF (Pmode, ggc_strdup (tmplab));
467 emit_insn (gen_reload_macho_picbase (tmplrtx));
468 emit_move_insn (picreg, gen_rtx_REG (Pmode, LR_REGNO));
469 emit_insn (gen_macho_correct_pic (picreg, picreg, picrtx, tmplrtx));
472 /* Not using PIC reg, no reload needed. */
473 emit_note (NOTE_INSN_DELETED);