remove_add_constraints_for_ddr_sdram.tcl

MagicSopc DDR-Sdram

set add_remove_string "-remove"
set do_analysis 0
set check_path_from_report 0
set hierarchy_path_to_instance nios2e_2C35:inst1|ddr_sdram:the_ddr_sdram|ddr_sdram_auk_ddr_sdram:ddr_sdram_auk_ddr_sdram_inst|
set top_level SmallCore
#
# Auto-generated DDR & DDR2 SDRAM Controller Compiler Constraint Script 
#
# (C) COPYRIGHT 2005 ALTERA CORPORATION 
# ALL RIGHTS RESERVED 
#
#------------------------------------------------------------------------
# This script will apply various placement, I/O standard and other		
# constraints to the current project. It is generated for a specific		
# instance of the DDR & DDR2 SDRAM Controller. It will apply constraints 
# according to the settings that were chosen in the MegaWizard and can	
# only be used to constrain this particular instance.					
#------------------------------------------------------------------------



###########################################################################
#					  Loading the required TCL packages		   
###########################################################################

	 package require ::quartus::project
	 package require ::quartus::flow
	 package require ::quartus::report

###########################################################################
#		Checking if a remove_add_constrints script exist				 #
#		if so run it else run the add_constrints script					 #
###########################################################################

	 set run_var 0
	 set remove_file "remove_add_constraints_for_ddr_sdram.tcl"
	 if {![file exists $remove_file]} {
	 	 set run_var 1
	 } else {
	 	 if {![info exists add_remove_string]} { 
	 	 	 source $remove_file
	 	 	 set run_var 1
	 	 } else {
	 	 	 set run_var 1
	 	 }
	 }

############################################################################
#	 In this section you can set all the pin names, hierarchy and top level	 #
############################################################################
	 set wizard_top_level				   ddr_sdram_debug_design; # this should be extracted automatically. If it fails use this setting
	 set wizard_hier_path				   "Automatically extracted by Quartus synthesis|" ; # REMEMBER TO FINISH THE PATH WITH A | (ie a vertical bar)

	 set prefix_name						   SDRAM_

	 set cas_n_pin_name                     cas_n
	 set clock_neg_pin_name                 SDRAM_nCLK
	 set clockfeedback_in_pin_name          fedback_clk_in
	 set bank_address_pin_name              ba
	 set dm_pin_name                        dm
	 set clock_enable_pin_name              cke
	 set cs_n_pin_name                      cs_n
	 set ras_n_pin_name                     ras_n
	 set dq_pin_name                        dq
	 set clock_pos_pin_name                 SDRAM_CLK
	 set address_pin_name                   a
	 set write_enable_n_pin_name            we_n
	 set clockfeedback_out_pin_name         fedback_clk_out
	 set dqs_pin_name                       dqs
	 set do_analysis						   1 ; # only set this to 0 if you already have run analysis on your project. It can stay set to 1.
	 set check_path_from_report			   1 ; # only set this to 0 if you already have run analysis on your project. It can stay set to 1.
	 ###########################################################################

puts "\n*********************************************************************"
puts "*				  DDR & DDR2 SDRAM Controller Compiler				  *"
puts "*	 Applying the constraints for the datapath in the your MegaCore	  *"
puts "*********************************************************************\n"
if { $run_var != 0 } {

###########################################################################
#	Procedure check_paths() will analyse the project and check		
#	that the paths match the ones that the user may have changed 
#	in the file or MegaWizard											  
###########################################################################

	   proc check_paths {given_datapath_name do_analysis} {
		puts					"\nNote: The add_constraints script is searching the correct path to the datapath in your MegaCore"
		if {$do_analysis} {puts "	   Analysis and Elaboration will be run and will take some time...\n"}

		set top_level ""

		if {$do_analysis} {

			set err [catch {execute_flow -analysis_and_elaboration } result]
			if {$err} {
				post_message -type error "Analysis and Elaboration failed. The constraints script will not be able to add any constraints."
				puts "ERROR: Analysis and Elaboration failed. The constraints script will not be able to add any constraints."
				error $result
			} else {
				puts "Analysis and Elaboration was successful.\n"