This repository has been archived on 2021-01-21. You can view files and clone it, but cannot push or open issues or pull requests.
hdmi.old/test/test.create.tcl
2020-09-19 23:42:44 +02:00

48 lines
1.0 KiB
Tcl

cd /home/tim/Projects/fpga/micro_test/test
if { [xload new test.xmp] != 0 } {
exit -1
}
xset arch spartan6
xset dev xc6slx9
xset package tqg144
xset speedgrade -2
xset simulator isim
if { [xset hier sub] != 0 } {
exit -1
}
set bMisMatch false
set xpsArch [xget arch]
if { ! [ string equal -nocase $xpsArch "spartan6" ] } {
set bMisMatch true
}
set xpsDev [xget dev]
if { ! [ string equal -nocase $xpsDev "xc6slx9" ] } {
set bMisMatch true
}
set xpsPkg [xget package]
if { ! [ string equal -nocase $xpsPkg "tqg144" ] } {
set bMisMatch true
}
set xpsSpd [xget speedgrade]
if { ! [ string equal -nocase $xpsSpd "-2" ] } {
set bMisMatch true
}
if { $bMisMatch == true } {
puts "Settings Mismatch:"
puts "Current Project:"
puts " Family: spartan6"
puts " Device: xc6slx9"
puts " Package: tqg144"
puts " Speed: -2"
puts "XPS File: "
puts " Family: $xpsArch"
puts " Device: $xpsDev"
puts " Package: $xpsPkg"
puts " Speed: $xpsSpd"
exit 11
}
xset hdl verilog
xset intstyle ise
save proj
exit