67 lines
1.8 KiB
Tcl
67 lines
1.8 KiB
Tcl
proc start_step { step } {
|
|
set stopFile ".stop.rst"
|
|
if {[file isfile .stop.rst]} {
|
|
puts ""
|
|
puts "*** Halting run - EA reset detected ***"
|
|
puts ""
|
|
puts ""
|
|
return -code error
|
|
}
|
|
set beginFile ".$step.begin.rst"
|
|
set platform "$::tcl_platform(platform)"
|
|
set user "$::tcl_platform(user)"
|
|
set pid [pid]
|
|
set host ""
|
|
if { [string equal $platform unix] } {
|
|
if { [info exist ::env(HOSTNAME)] } {
|
|
set host $::env(HOSTNAME)
|
|
}
|
|
} else {
|
|
if { [info exist ::env(COMPUTERNAME)] } {
|
|
set host $::env(COMPUTERNAME)
|
|
}
|
|
}
|
|
set ch [open $beginFile w]
|
|
puts $ch "<?xml version=\"1.0\"?>"
|
|
puts $ch "<ProcessHandle Version=\"1\" Minor=\"0\">"
|
|
puts $ch " <Process Command=\".planAhead.\" Owner=\"$user\" Host=\"$host\" Pid=\"$pid\">"
|
|
puts $ch " </Process>"
|
|
puts $ch "</ProcessHandle>"
|
|
close $ch
|
|
}
|
|
|
|
proc end_step { step } {
|
|
set endFile ".$step.end.rst"
|
|
set ch [open $endFile w]
|
|
close $ch
|
|
}
|
|
|
|
proc step_failed { step } {
|
|
set endFile ".$step.error.rst"
|
|
set ch [open $endFile w]
|
|
close $ch
|
|
}
|
|
|
|
set_msg_config -id {HDL 9-1061} -limit 100000
|
|
set_msg_config -id {HDL 9-1654} -limit 100000
|
|
|
|
start_step write_bitstream
|
|
set ACTIVE_STEP write_bitstream
|
|
set rc [catch {
|
|
create_msg_db write_bitstream.pb
|
|
open_checkpoint GPIO_demo_routed.dcp
|
|
set_property webtalk.parent_dir C:/Users/Hp/Documents/Compteur8BitsBasys3/proj/GPIO.cache/wt [current_project]
|
|
catch { write_mem_info -force GPIO_demo.mmi }
|
|
write_bitstream -force -no_partial_bitfile GPIO_demo.bit
|
|
catch { write_sysdef -hwdef GPIO_demo.hwdef -bitfile GPIO_demo.bit -meminfo GPIO_demo.mmi -file GPIO_demo.sysdef }
|
|
catch {write_debug_probes -quiet -force debug_nets}
|
|
close_msg_db -file write_bitstream.pb
|
|
} RESULT]
|
|
if {$rc} {
|
|
step_failed write_bitstream
|
|
return -code error $RESULT
|
|
} else {
|
|
end_step write_bitstream
|
|
unset ACTIVE_STEP
|
|
}
|
|
|