Subversion Repositories sdhc-sc-core

# SDHC-SC-Core

# Secure Digital High Capacity Self Configuring Core

# 

# (C) Copyright 2010, Rainer Kastl

# All rights reserved.

# 

# Redistribution and use in source and binary forms, with or without

# modification, are permitted provided that the following conditions are met:

#     * Redistributions of source code must retain the above copyright

#       notice, this list of conditions and the following disclaimer.

#     * Redistributions in binary form must reproduce the above copyright

#       notice, this list of conditions and the following disclaimer in the

#       documentation and/or other materials provided with the distribution.

#     * Neither the name of the <organization> nor the

#       names of its contributors may be used to endorse or promote products

#       derived from this software without specific prior written permission.

# 

# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  "AS IS" AND

# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

# DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY

# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

# 

# File        : SdDatasyn.tcl

# Owner       : Rainer Kastl

# Description : 

# Links       : 

# 

# Load Quartus II Tcl Project package

package require ::quartus::project

package require ::quartus::flow

set need_to_close_project 0

set make_assignments 1

# Check that the right project is open

if {[is_project_open]} {

        if {[string compare $quartus(project) "SdDatasyn"]} {

                puts "Project SdDatasyn is not open"

                set make_assignments 0

        }

} else {

        # Only open if not already open

        if {[project_exists SdDatasyn]} {

                project_open -revision SdDatasyn SdDatasyn

        } else {

                project_new -revision SdDatasyn SdDatasyn

        }

        set need_to_close_project 1

}

# Make assignments

if {$make_assignments} {

        set_global_assignment -name FAMILY "Cyclone II"

        set_global_assignment -name DEVICE EP2C35F484C8

        set_global_assignment -name TOP_LEVEL_ENTITY SdData

        set_global_assignment -name USE_GENERATED_PHYSICAL_CONSTRAINTS OFF -section_id eda_blast_fpga

        source ../Files.tcl

        source ../../../syn/syn.tcl

        set_global_assignment -name PARTITION_NETLIST_TYPE SOURCE -section_id Top

        set_global_assignment -name PARTITION_COLOR 16764057 -section_id Top

        set_global_assignment -name SMART_RECOMPILE ON

        set_global_assignment -name FMAX_REQUIREMENT "100 MHz" -section_id Clock

        set_global_assignment -name ENABLE_DRC_SETTINGS OFF

        set_global_assignment -name SYNTH_TIMING_DRIVEN_SYNTHESIS OFF

        set_global_assignment -name USE_CONFIGURATION_DEVICE ON

        # Generate RBF

        set_global_assignment -name GENERATE_RBF_FILE ON

        set_global_assignment -name ON_CHIP_BITSTREAM_DECOMPRESSION OFF

        source ../Pins.tcl

        set_instance_assignment -name CLOCK_SETTINGS Clock -to iClk

        set_instance_assignment -name PARTITION_HIERARCHY root_partition -to | -section_id Top

        # Commit assignments

        export_assignments

        # Compile project

        if {[catch {execute_flow -analysis_and_elaboration} result]} {

                puts "\nResult: $result\n"

                puts "ERROR: Compilation failed. See report files.\n"

        } else {

                puts "\nINFO: Compilation was successful.\n"

        }

        # Close project

        if {$need_to_close_project} {

                project_close

        }

}