altera: support quartus 13.1

Modification to TCL build script were needed.
Move duplicated code to a common file where the changes apply once.

platform/altera/arria2_pll/arria2_pll.tcl

-set files { sys_pll ref_pll dmtd_pll }
-
-set dir [file dirname [info script]]
-post_message "Testing for megawizard regeneration in $dir:$files"
-
-foreach i $files {
-  if {![file exists "$dir/$i.qip"] || [file mtime "$dir/$i.txt"] > [file mtime "$dir/$i.qip"]} {
-    post_message "Regenerating $i using qmegawiz"
-    file copy -force "$dir/$i.txt" "$dir/$i.vhd"
-    set sf [open "| qmegawiz -silent $dir/$i.vhd" "r"]
-    while {[gets $sf line] >= 0} { post_message "$line" }
-    close $sf
-    file mtime "$dir/$i.qip" [file mtime "$dir/$i.vhd"]
-  }
-}
+qmegawiz { sys_pll ref_pll dmtd_pll }

platform/altera/arria5_pll/.gitignore

@@ -5,6 +5,7 @@ dmtd_pll5.qip
 dmtd_pll5.sip
 dmtd_pll5.spd
 dmtd_pll5.vhd
+dmtd_pll5_sim.f
 dmtd_pll5/
 dmtd_pll5_sim/
 ref_pll5.bsf
@@ -14,6 +15,7 @@ ref_pll5.qip
 ref_pll5.sip
 ref_pll5.spd
 ref_pll5.vhd
+ref_pll5_sim.f
 ref_pll5/
 ref_pll5_sim/
 sys_pll5.bsf
@@ -23,5 +25,6 @@ sys_pll5.qip
 sys_pll5.sip
 sys_pll5.spd
 sys_pll5.vhd
+sys_pll5_sim.f
 sys_pll5/
 sys_pll5_sim/

platform/altera/arria5_pll/arria5_pll.tcl

-set files { sys_pll5 ref_pll5 dmtd_pll5 }
-
-set dir [file dirname [info script]]
-post_message "Testing for megawizard regeneration in $dir:$files"
-
-foreach i $files {
-  if {![file exists "$dir/$i.qip"] || [file mtime "$dir/$i.txt"] > [file mtime "$dir/$i.qip"]} {
-    post_message "Regenerating $i using qmegawiz"
-    file copy -force "$dir/$i.txt" "$dir/$i.vhd"
-    set sf [open "| qmegawiz -silent $dir/$i.vhd" "r"]
-    while {[gets $sf line] >= 0} { post_message "$line" }
-    close $sf
-    file mtime "$dir/$i.qip" [file mtime "$dir/$i.vhd"]
-  }
-}
+qmegawiz { sys_pll5 ref_pll5 dmtd_pll5 }

platform/altera/wr_arria2_phy/wr_arria2_phy.tcl

-set files { arria2_phy arria2_phy_reconf }
-
-set dir [file dirname [info script]]
-post_message "Testing for megawizard regeneration in $dir:$files"
-
-foreach i $files {
-  if {![file exists "$dir/$i.qip"] || [file mtime "$dir/$i.txt"] > [file mtime "$dir/$i.qip"]} {
-    post_message "Regenerating $i using qmegawiz"
-    file copy -force "$dir/$i.txt" "$dir/$i.vhd"
-    set sf [open "| qmegawiz -silent $dir/$i.vhd" "r"]
-    while {[gets $sf line] >= 0} { post_message "$line" }
-    close $sf
-    file mtime "$dir/$i.qip" [file mtime "$dir/$i.vhd"]
-  }
-}
+qmegawiz { arria2_phy arria2_phy_reconf }

platform/altera/wr_arria5_phy/.gitignore

@@ -10,6 +10,7 @@ arria5_phy.qip
 arria5_phy.sip
 arria5_phy.spd
 arria5_phy.vhd
+arria5_phy_sim.f
 # Arria5 PHY reconfig
 arria5_phy_reconf/
 arria5_phy_reconf_sim/
@@ -20,7 +21,4 @@ arria5_phy_reconf.qip
 arria5_phy_reconf.sip
 arria5_phy_reconf.spd
 arria5_phy_reconf.vhd
-# Altera clock gate
-arria5_rxclkout.cmp
-arria5_rxclkout.qip
-arria5_rxclkout.vhd
+arria5_phy_reconf_sim.f

platform/altera/wr_arria5_phy/arria5_phy.txt

--- megafunction wizard: %Deterministic Latency PHY v12.1%
--- Retrieval info: <instance entity-name="altera_xcvr_det_latency" version="13.0" >
+-- megafunction wizard: %Deterministic Latency PHY v13.1%
+-- Retrieval info: <instance entity-name="altera_xcvr_det_latency" version="13.1" >
 -- Retrieval info: 	<generic name="device_family" value="Arria V" />
 -- Retrieval info: 	<generic name="operation_mode" value="Duplex" />
 -- Retrieval info: 	<generic name="lanes" value="1" />

platform/altera/wr_arria5_phy/arria5_phy_reconf.txt

--- megafunction wizard: %Transceiver Reconfiguration Controller v12.1%
--- Retrieval info: <?xml version="1.0"?>
--- Retrieval info: <instance entity-name="alt_xcvr_reconfig" version="12.1" >
+-- megafunction wizard: %Transceiver Reconfiguration Controller v13.1%
+-- Retrieval info: <instance entity-name="alt_xcvr_reconfig" version="13.1" >
 -- Retrieval info: 	<generic name="device_family" value="Arria V" />
 -- Retrieval info: 	<generic name="number_of_reconfig_interfaces" value="2" />
 -- Retrieval info: 	<generic name="gui_split_sizes" value="" />
@@ -9,6 +8,7 @@
 -- Retrieval info: 	<generic name="enable_dcd_power_up" value="1" />
 -- Retrieval info: 	<generic name="enable_analog" value="1" />
 -- Retrieval info: 	<generic name="enable_eyemon" value="0" />
+-- Retrieval info: 	<generic name="ber_en" value="0" />
 -- Retrieval info: 	<generic name="enable_dfe" value="0" />
 -- Retrieval info: 	<generic name="enable_adce" value="0" />
 -- Retrieval info: 	<generic name="enable_mif" value="0" />

platform/altera/wr_arria5_phy/wr_arria5_phy.tcl

-set files { arria5_phy arria5_phy_reconf }
-
-set dir [file dirname [info script]]
-post_message "Testing for megawizard regeneration in $dir:$files"
-
-foreach i $files {
-  if {![file exists "$dir/$i.qip"] || [file mtime "$dir/$i.txt"] > [file mtime "$dir/$i.qip"]} {
-    post_message "Regenerating $i using qmegawiz"
-    file copy -force "$dir/$i.txt" "$dir/$i.vhd"
-    set sf [open "| qmegawiz -silent $dir/$i.vhd" "r"]
-    while {[gets $sf line] >= 0} { post_message "$line" }
-    close $sf
-    file mtime "$dir/$i.qip" [file mtime "$dir/$i.vhd"]
-  }
-}
+qmegawiz { arria5_phy arria5_phy_reconf }