tpf.md revision 169689
1169689Skan;; S390 TPF-OS specific machine patterns 2169689Skan;; Copyright (C) 2005 Free Software Foundation, Inc. 3169689Skan;; 4169689Skan;; This file is part of GCC. 5169689Skan;; 6169689Skan;; GCC is free software; you can redistribute it and/or modify 7169689Skan;; it under the terms of the GNU General Public License as published by 8169689Skan;; the Free Software Foundation; either version 2, or (at your option) 9169689Skan;; any later version. 10169689Skan;; 11169689Skan;; GCC is distributed in the hope that it will be useful, 12169689Skan;; but WITHOUT ANY WARRANTY; without even the implied warranty of 13169689Skan;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14169689Skan;; GNU General Public License for more details. 15169689Skan;; 16169689Skan;; You should have received a copy of the GNU General Public License 17169689Skan;; along with GCC; see the file COPYING. If not, write to 18169689Skan;; the Free Software Foundation, 51 Franklin Street, Fifth Floor, 19169689Skan;; Boston, MA 02110-1301, USA. 20169689Skan 21169689Skan(define_insn "prologue_tpf" 22169689Skan [(unspec_volatile [(const_int 0)] UNSPECV_TPF_PROLOGUE) 23169689Skan (clobber (reg:DI 1))] 24169689Skan "TARGET_TPF_PROFILING" 25169689Skan "larl\t%%r1,.+14\;tm\t4065,255\;bnz\t4064" 26169689Skan [(set_attr "length" "14")]) 27169689Skan 28169689Skan 29169689Skan(define_insn "epilogue_tpf" 30169689Skan [(unspec_volatile [(const_int 0)] UNSPECV_TPF_EPILOGUE) 31169689Skan (clobber (reg:DI 1))] 32169689Skan "TARGET_TPF_PROFILING" 33169689Skan "larl\t%%r1,.+14\;tm\t4071,255\;bnz\t4070" 34169689Skan [(set_attr "length" "14")]) 35