;; Scheduling description for z900 (cpu 2064).
;;   Copyright (C) 2003-2023 Free Software Foundation, Inc.
;;   Contributed by Hartmut Penner (hpenner@de.ibm.com) and
;;                  Ulrich Weigand (uweigand@de.ibm.com).

;; This file is part of GCC.

;; GCC is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free
;; Software Foundation; either version 3, or (at your option) any later
;; version.

;; GCC is distributed in the hope that it will be useful, but WITHOUT ANY
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
;; for more details.

;; You should have received a copy of the GNU General Public License
;; along with GCC; see the file COPYING3.  If not see
;; <http://www.gnu.org/licenses/>.

;;
;; References:
;;   The microarchitecture of the IBM eServer z900 processor.
;;   E.M. Schwarz et al.
;;   IBM Journal of Research and Development Vol. 46 No 4/5, 2002.
;;
;;            z900 (cpu 2064) pipeline
;;
;;                 dec
;;              --> | <---
;;  LA bypass  |  agen    |
;;             |    |     |
;;              --- c1    |  Load bypass
;;                  |     |
;;                  c2----
;;                  |
;;                  e1
;;                  |
;;                  wr

(define_automaton "z_ipu")
(define_cpu_unit "z_e1"   "z_ipu")
(define_cpu_unit "z_wr"   "z_ipu")


(define_insn_reservation "z_la" 1
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "la"))
  "z_e1,z_wr")

(define_insn_reservation "z_larl" 1
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "larl"))
  "z_e1,z_wr")

(define_insn_reservation "z_load" 1
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "load"))
  "z_e1,z_wr")

(define_insn_reservation "z_store" 1
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "store"))
  "z_e1,z_wr")

(define_insn_reservation "z_sem" 2
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "sem"))
  "z_e1*2,z_wr")

(define_insn_reservation "z_call" 5
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "jsr"))
  "z_e1*5,z_wr")

(define_insn_reservation "z_mul" 5
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "imulsi,imulhi"))
  "z_e1*5,z_wr")

(define_insn_reservation "z_inf" 10
  (and (eq_attr "cpu" "z900")
       (eq_attr "type" "idiv,imuldi"))
  "z_e1*10,z_wr")

;; For everything else we check the atype flag.

(define_insn_reservation "z_int" 1
  (and (eq_attr "cpu" "z900")
       (and (not (eq_attr "type" "la,larl,load,store,jsr"))
            (eq_attr "atype" "reg")))
  "z_e1,z_wr")

(define_insn_reservation "z_agen" 1
  (and (eq_attr "cpu" "z900")
       (and (not (eq_attr "type" "la,larl,load,store,jsr"))
            (eq_attr "atype" "agen")))
  "z_e1,z_wr")

;;
;; s390_agen_dep_p returns 1, if a register is set in the
;; first insn and used in the dependent insn to form a address.
;;

;;
;; If an instruction uses a register to address memory, it needs
;; to be set 5 cycles in advance.
;;

(define_bypass 5 "z_int,z_agen"
	       "z_agen,z_la,z_call,z_load,z_store" "s390_agen_dep_p")

;;
;; A load type instruction uses a bypass to feed the result back
;; to the address generation pipeline stage.
;;

(define_bypass 3 "z_load"
	         "z_agen,z_la,z_call,z_load,z_store" "s390_agen_dep_p")

;;
;; A load address type instruction uses a bypass to feed the
;; result back to the address generation pipeline stage.
;;

(define_bypass 2 "z_larl,z_la"
	         "z_agen,z_la,z_call,z_load,z_store" "s390_agen_dep_p")