# SPDX-FileCopyrightText:  2021 , Dinesh Annayya
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# SPDX-License-Identifier: Apache-2.0
# SPDX-FileContributor: Modified by Dinesh Annayya <dinesha@opencores.org>


set_units -time ns
set ::env(WBM_CLOCK_PERIOD) "10"
set ::env(WBM_CLOCK_PORT)   "wbm_clk_i"
set ::env(WBM_CLOCK_NAME)   "wbm_clk_i"

set ::env(WBS_CLOCK_PERIOD) "10"
set ::env(WBS_CLOCK_PORT)   "wbs_clk_i"
set ::env(WBS_CLOCK_NAME)   "wbs_clk_i"

######################################
# WB Clock domain input output
######################################
create_clock [get_ports $::env(WBM_CLOCK_PORT)]  -name $::env(WBM_CLOCK_PORT)  -period $::env(WBM_CLOCK_PERIOD)
create_clock [get_ports $::env(WBS_CLOCK_PORT)]  -name $::env(WBS_CLOCK_PORT)  -period $::env(WBS_CLOCK_PERIOD)


set wb_input_max_delay_value  [expr $::env(WBM_CLOCK_PERIOD) * 0.6]
set wb_input_min_delay_value  [expr $::env(WBM_CLOCK_PERIOD) * 0.2]
set wb_output_max_delay_value [expr $::env(WBM_CLOCK_PERIOD) * 0.5]
set wb_output_min_delay_value [expr $::env(WBM_CLOCK_PERIOD) * 0.1]
puts "\[INFO\]: Setting wb output delay Max:$wb_output_max_delay_value  Min: $wb_input_min_delay_value"
puts "\[INFO\]: Setting wb input delay  Max: $wb_output_max_delay_value Min: $wb_output_min_delay_value"

############ WBM_CLOCK_PORT Domain ###############################################
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] {wbm_rst_i}
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_cyc_i*]
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_stb_i*]
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_adr_i*]
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_we_i*]
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_dat_i*]
set_input_delay -max $wb_input_max_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_sel_i*]


set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] {wbm_rst_i}
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_cyc_i*]
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_stb_i*]
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_adr_i*]
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_we_i*]
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_dat_i*]
set_input_delay -min $wb_input_min_delay_value -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_sel_i*]


set_output_delay -max $wb_output_max_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_dat_o*]
set_output_delay -max $wb_output_max_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_ack_o*]
set_output_delay -max $wb_output_max_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_err_o*]

set_output_delay -min $wb_output_min_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_dat_o*]
set_output_delay -min $wb_output_min_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_ack_o*]
set_output_delay -min $wb_output_min_delay_value  -clock [get_clocks $::env(WBM_CLOCK_PORT)] [get_port wbm_err_o*]


############ WBS_CLOCK_PORT Domain ###############################################
set_input_delay  -max $wb_input_max_delay_value  -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_dat_i*]
set_input_delay  -max $wb_input_max_delay_value  -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_ack_i*]

set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_cyc_o*]
set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_stb_o*]
set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_adr_o*]
set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_we_o*]
set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_dat_o*]
set_output_delay -max $wb_output_max_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_sel_o*]

set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_cyc_o*]
set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_stb_o*]
set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_adr_o*]
set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_we_o*]
set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_dat_o*]
set_output_delay -min $wb_output_min_delay_value -clock [get_clocks $::env(WBS_CLOCK_PORT)] [get_port wbs_sel_o*]

# WBM and WBS are async to each other
set_clock_groups -name async_clock -asynchronous -comment "Async Clock group" -group [get_clocks $::env(WBM_CLOCK_PORT)] -group [get_clocks $::env(WBS_CLOCK_NAME)]

set_clock_uncertainty -from $::env(WBM_CLOCK_NAME)          -to $::env(WBM_CLOCK_NAME)    -setup 0.200
set_clock_uncertainty -from $::env(WBS_CLOCK_NAME)          -to $::env(WBS_CLOCK_NAME)    -setup 0.200

set_clock_uncertainty -from $::env(WBM_CLOCK_NAME)          -to $::env(WBM_CLOCK_NAME)    -hold 0.100
set_clock_uncertainty -from $::env(WBS_CLOCK_NAME)          -to $::env(WBS_CLOCK_NAME)    -hold 0.100

# TODO set this as parameter
set_driving_cell -lib_cell $::env(SYNTH_DRIVING_CELL) -pin $::env(SYNTH_DRIVING_CELL_PIN) [all_inputs]
set cap_load [expr $::env(SYNTH_CAP_LOAD) / 1000.0]
puts "\[INFO\]: Setting load to: $cap_load"
set_load  $cap_load [all_outputs]

## 2 Multi-cycle setup and 1 hold
set_multicycle_path -setup -from wbm_adr_i* 2
set_multicycle_path -hold -from wbm_adr_i* 1

set_multicycle_path -setup -from wbm_we_i* 2
set_multicycle_path -hold -from wbm_we_i* 1