218 lines
7.3 KiB
Tcl
218 lines
7.3 KiB
Tcl
|
|
## Initialize global variable
|
|
set family "none"
|
|
set device "none"
|
|
set version "19.3.0"
|
|
|
|
## Define the ADI_IGNORE_VERSION_CHECK environment variable to skip version check
|
|
if {[info exists ::env(ADI_IGNORE_VERSION_CHECK)]} {
|
|
set IGNORE_VERSION_CHECK 1
|
|
} elseif {![info exists IGNORE_VERSION_CHECK]} {
|
|
set IGNORE_VERSION_CHECK 0
|
|
}
|
|
|
|
## Create a project.
|
|
#
|
|
# \param[project_name] - name of the project, must contain a valid carrier name
|
|
# \param[parameter_list] - a list of global parameters (parameters of the
|
|
# system_top module)
|
|
#
|
|
# Supported carrier names are: a10gx, a10soc, c5soc, de10nano, a5soc, a5gt.
|
|
#
|
|
proc adi_project {project_name {parameter_list {}}} {
|
|
|
|
global ad_hdl_dir
|
|
global ad_ghdl_dir
|
|
global family
|
|
global device
|
|
global version
|
|
global quartus
|
|
global IGNORE_VERSION_CHECK
|
|
|
|
# check $ALT_NIOS_MMU_ENABLED environment variables
|
|
|
|
set mmu_enabled 1
|
|
if [info exists ::env(ALT_NIOS_MMU_ENABLED)] {
|
|
set mmu_enabled $::env(ALT_NIOS_MMU_ENABLED)
|
|
}
|
|
|
|
# check $QUARTUS_PRO_ISUSED environment variables
|
|
set quartus_pro_isused 1
|
|
if [info exists ::env(QUARTUS_PRO_ISUSED)] {
|
|
set quartus_pro_isused $::env(QUARTUS_PRO_ISUSED)
|
|
}
|
|
|
|
if [regexp "_a10gx$" $project_name] {
|
|
set family "Arria 10"
|
|
set device 10AX115S2F45I1SG
|
|
set system_qip_file system_bd/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_a10soc$" $project_name] {
|
|
set family "Arria 10"
|
|
set device 10AS066N3F40E2SG
|
|
set system_qip_file system_bd/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_s10soc$" $project_name] {
|
|
set family "Stratix 10"
|
|
set device 1SX280LU2F50E2VGS2
|
|
set system_qip_file system_bd/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_c5soc$" $project_name] {
|
|
set family "Cyclone V"
|
|
set device 5CSXFC6D6F31C8ES
|
|
set system_qip_file system_bd/synthesis/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_de10nano$" $project_name] {
|
|
set family "Cyclone V"
|
|
set device 5CSEBA6U23I7DK
|
|
set system_qip_file system_bd/synthesis/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_a5soc$" $project_name] {
|
|
set family "Arria V"
|
|
set device 5ASTFD5K3F40I3ES
|
|
set system_qip_file system_bd/synthesis/system_bd.qip
|
|
}
|
|
|
|
if [regexp "_a5gt$" $project_name] {
|
|
set family "Arria V"
|
|
set device 5AGTFD7K3F40I3
|
|
set system_qip_file system_bd/synthesis/system_bd.qip
|
|
}
|
|
|
|
# version check
|
|
|
|
set m_version [lindex $quartus(version) 1]
|
|
if {$IGNORE_VERSION_CHECK} {
|
|
if {[string compare $m_version $version] != 0} {
|
|
puts -nonewline "CRITICAL WARNING: Quartus version mismatch; "
|
|
puts -nonewline "expected $version, "
|
|
puts -nonewline "got $m_version.\n"
|
|
}
|
|
} else {
|
|
if {[string compare $m_version $version] != 0} {
|
|
puts -nonewline "ERROR: Quartus version mismatch; "
|
|
puts -nonewline "expected $version, "
|
|
puts -nonewline "got $m_version.\n"
|
|
puts -nonewline "This ERROR message can be down-graded to CRITICAL WARNING by setting ADI_IGNORE_VERSION_CHECK environment variable to 1. Be aware that ADI will not support you, if you are using a different tool version.\n"
|
|
exit 2
|
|
}
|
|
}
|
|
|
|
# packages used
|
|
|
|
load_package flow
|
|
|
|
# project
|
|
|
|
project_new $project_name -overwrite
|
|
|
|
# library paths
|
|
|
|
set ad_lib_folders "$ad_hdl_dir/library/**/*;$ad_ghdl_dir/library/**/*"
|
|
|
|
set_user_option -name USER_IP_SEARCH_PATHS $ad_lib_folders
|
|
set_global_assignment -name IP_SEARCH_PATHS $ad_lib_folders
|
|
|
|
# project & qsys
|
|
|
|
set_global_assignment -name FAMILY $family
|
|
set_global_assignment -name DEVICE $device
|
|
|
|
# qsys
|
|
|
|
set mmu_enabled 1
|
|
if [info exists ::env(NIOS_MMU_ENABLED)] {
|
|
set mmu_enabled $::env(NIOS_MMU_ENABLED)
|
|
}
|
|
|
|
set QFILE [open "system_qsys_script.tcl" "w"]
|
|
puts $QFILE "set project_name $project_name"
|
|
puts $QFILE "set mmu_enabled $mmu_enabled"
|
|
puts $QFILE "set ad_hdl_dir $ad_hdl_dir"
|
|
puts $QFILE "set ad_ghdl_dir $ad_ghdl_dir"
|
|
puts $QFILE "package require qsys"
|
|
puts $QFILE "set_module_property NAME {system_bd}"
|
|
puts $QFILE "set_project_property DEVICE_FAMILY {$family}"
|
|
puts $QFILE "set_project_property DEVICE $device"
|
|
puts $QFILE "foreach {param value} {$parameter_list} { set ad_project_params(\$param) \$value }"
|
|
puts $QFILE "source system_qsys.tcl"
|
|
if {$quartus_pro_isused == 1} {
|
|
puts $QFILE "set_domain_assignment {\$system} {qsys_mm.maxAdditionalLatency} {4}"
|
|
puts $QFILE "set_domain_assignment {\$system} {qsys_mm.clockCrossingAdapter} {AUTO}"
|
|
puts $QFILE "set_domain_assignment {\$system} {qsys_mm.burstAdapterImplementation} {PER_BURST_TYPE_CONVERTER}"
|
|
} else {
|
|
puts $QFILE "set_interconnect_requirement {\$system} {qsys_mm.maxAdditionalLatency} {4}"
|
|
puts $QFILE "set_interconnect_requirement {\$system} {qsys_mm.clockCrossingAdapter} {AUTO}"
|
|
puts $QFILE "set_interconnect_requirement {\$system} {qsys_mm.burstAdapterImplementation} {PER_BURST_TYPE_CONVERTER}"
|
|
}
|
|
puts $QFILE "save_system {system_bd.qsys}"
|
|
close $QFILE
|
|
|
|
# check which type of Quartus is used, to call the qsys utilities with the
|
|
# correct attributes
|
|
if {$quartus_pro_isused == 1} {
|
|
|
|
exec -ignorestderr $quartus(quartus_rootpath)/sopc_builder/bin/qsys-script \
|
|
--quartus_project=$project_name --script=system_qsys_script.tcl
|
|
|
|
exec -ignorestderr $quartus(quartus_rootpath)/sopc_builder/bin/qsys-generate \
|
|
system_bd.qsys --synthesis=VERILOG --family=$family --part=$device \
|
|
--quartus-project=$project_name
|
|
|
|
} else {
|
|
|
|
exec -ignorestderr $quartus(quartus_rootpath)/sopc_builder/bin/qsys-script \
|
|
--script=system_qsys_script.tcl
|
|
|
|
exec -ignorestderr $quartus(quartus_rootpath)/sopc_builder/bin/qsys-generate \
|
|
system_bd.qsys --synthesis=VERILOG --family=$family --part=$device \
|
|
|
|
# I/O Timing Analysis is available just in Quartus Standard
|
|
set_global_assignment -name ENABLE_ADVANCED_IO_TIMING ON
|
|
|
|
}
|
|
|
|
# source MESSAGE-DISABLE definitions - to ignore invalid critical warnings
|
|
|
|
source $ad_hdl_dir/projects/scripts/adi_intel_msg.tcl
|
|
|
|
# default assignments
|
|
|
|
set_global_assignment -name QIP_FILE $system_qip_file
|
|
set_global_assignment -name VERILOG_FILE system_top.v
|
|
set_global_assignment -name SDC_FILE system_constr.sdc
|
|
set_global_assignment -name TOP_LEVEL_ENTITY system_top
|
|
set_global_assignment -name ENABLE_HPS_INTERNAL_TIMING ON
|
|
|
|
# remove altshift_taps
|
|
|
|
set_instance_assignment -name AUTO_SHIFT_REGISTER_RECOGNITION OFF -to * -entity up_xfer_cntrl
|
|
set_instance_assignment -name AUTO_SHIFT_REGISTER_RECOGNITION OFF -to * -entity up_xfer_status
|
|
set_instance_assignment -name AUTO_SHIFT_REGISTER_RECOGNITION OFF -to * -entity up_clock_mon
|
|
set_instance_assignment -name AUTO_SHIFT_REGISTER_RECOGNITION OFF -to * -entity ad_rst
|
|
set_instance_assignment -name QII_AUTO_PACKED_REGISTERS OFF -to * -entity up_xfer_cntrl
|
|
set_instance_assignment -name QII_AUTO_PACKED_REGISTERS OFF -to * -entity up_xfer_status
|
|
set_instance_assignment -name QII_AUTO_PACKED_REGISTERS OFF -to * -entity up_clock_mon
|
|
set_instance_assignment -name QII_AUTO_PACKED_REGISTERS OFF -to * -entity ad_rst
|
|
|
|
# globals
|
|
|
|
set_global_assignment -name SYNCHRONIZER_IDENTIFICATION AUTO
|
|
set_global_assignment -name USE_TIMEQUEST_TIMING_ANALYZER ON
|
|
set_global_assignment -name TIMEQUEST_DO_REPORT_TIMING ON
|
|
set_global_assignment -name TIMEQUEST_DO_CCPP_REMOVAL ON
|
|
set_global_assignment -name TIMEQUEST_REPORT_SCRIPT $ad_hdl_dir/projects/scripts/adi_tquest.tcl
|
|
set_global_assignment -name ON_CHIP_BITSTREAM_DECOMPRESSION OFF
|
|
|
|
# set top level file parameters
|
|
foreach {param value} $parameter_list {
|
|
set_parameter -name $param $value
|
|
}
|
|
}
|
|
|