2
0

post_quartus_asm.tcl 399 B

123456789101112
  1. # Runs after the assembler (quartus_asm)
  2. # Run quartus_cpf for any .cof files in the project
  3. set source_file_coll [get_all_global_assignments -name SOURCE_FILE]
  4. foreach_in_collection file_asgn $source_file_coll {
  5. set file [lindex $file_asgn 2]
  6. if [string match -nocase *.cof $file] {
  7. set cmd "quartus_cpf --convert \"$file\""
  8. post_message -type info "Command: $cmd"
  9. qexec "$cmd"
  10. }
  11. }