comparison gcc/config/s390/tpf.md @ 0:a06113de4d67

first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 04ced10e8804
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 ;; S390 TPF-OS specific machine patterns
2 ;; Copyright (C) 2005, 2007 Free Software Foundation, Inc.
3 ;;
4 ;; This file is part of GCC.
5 ;;
6 ;; GCC is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation; either version 3, or (at your option)
9 ;; any later version.
10 ;;
11 ;; GCC is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;; GNU General Public License for more details.
15 ;;
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GCC; see the file COPYING3. If not see
18 ;; <http://www.gnu.org/licenses/>.
19
20 (define_insn "prologue_tpf"
21 [(unspec_volatile [(const_int 0)] UNSPECV_TPF_PROLOGUE)
22 (clobber (reg:DI 1))]
23 "TARGET_TPF_PROFILING"
24 "larl\t%%r1,.+14\;tm\t4065,255\;bnz\t4064"
25 [(set_attr "length" "14")])
26
27
28 (define_insn "epilogue_tpf"
29 [(unspec_volatile [(const_int 0)] UNSPECV_TPF_EPILOGUE)
30 (clobber (reg:DI 1))]
31 "TARGET_TPF_PROFILING"
32 "larl\t%%r1,.+14\;tm\t4071,255\;bnz\t4070"
33 [(set_attr "length" "14")])