From 6649b23bc885410b59b11e9c128bd76225dfa918 Mon Sep 17 00:00:00 2001
From: Rejeesh Kutty <rejeesh.kutty@analog.com>
Date: Wed, 17 May 2017 16:11:42 -0400
Subject: [PATCH] alt-mem-asym - replace mega function cores

---
 .../common/alt_mem_asym/alt_mem_asym_hw.tcl   | 50 ++++++++++---------
 1 file changed, 27 insertions(+), 23 deletions(-)

diff --git a/library/altera/common/alt_mem_asym/alt_mem_asym_hw.tcl b/library/altera/common/alt_mem_asym/alt_mem_asym_hw.tcl
index 1ad812ec5..22baf3153 100755
--- a/library/altera/common/alt_mem_asym/alt_mem_asym_hw.tcl
+++ b/library/altera/common/alt_mem_asym/alt_mem_asym_hw.tcl
@@ -4,41 +4,45 @@ package require qsys
 source ../../../scripts/adi_env.tcl
 source $ad_hdl_dir/library/scripts/adi_ip_alt.tcl
 
-ad_ip_create alt_mem_asym "Altera Asymmetric Memory" "" p_alt_mem_asym
-ad_ip_parameter DEVICE_FAMILY STRING "Arria 10"
+ad_ip_create alt_mem_asym {Altera Asymmetric Memory}
+set_module_property COMPOSITION_CALLBACK p_alt_mem_asym
+
+# parameters
+
+ad_ip_parameter DEVICE_FAMILY STRING {Arria 10}
 ad_ip_parameter A_ADDRESS_WIDTH INTEGER 8
 ad_ip_parameter A_DATA_WIDTH INTEGER 512
 ad_ip_parameter B_ADDRESS_WIDTH INTEGER 8
 ad_ip_parameter B_DATA_WIDTH INTEGER 64
 
+# compose
+
 proc p_alt_mem_asym {} {
 
   set m_addr_width_a [get_parameter_value "A_ADDRESS_WIDTH"]
   set m_data_width_a [get_parameter_value "A_DATA_WIDTH"]
   set m_addr_width_b [get_parameter_value "B_ADDRESS_WIDTH"]
   set m_data_width_b [get_parameter_value "B_DATA_WIDTH"]
-  set m_size_a [expr (2**$m_addr_width_a)*$m_data_width_a]
-  set m_size_b [expr (2**$m_addr_width_b)*$m_data_width_b]
 
-  if {$m_size_a == $m_size_b} {
-
-    add_instance alt_mem ram_2port
-    set_instance_parameter_value alt_mem {GUI_MODE} 0
-    set_instance_parameter_value alt_mem {GUI_MEM_IN_BITS} 1
-    set_instance_parameter_value alt_mem {GUI_MEMSIZE_BITS} $m_size_a
-    set_instance_parameter_value alt_mem {GUI_VAR_WIDTH} 1
-    set_instance_parameter_value alt_mem {GUI_QA_WIDTH} $m_data_width_a
-    set_instance_parameter_value alt_mem {GUI_DATAA_WIDTH} $m_data_width_a
-    set_instance_parameter_value alt_mem {GUI_QB_WIDTH} $m_data_width_b
-    set_instance_parameter_value alt_mem {GUI_RAM_BLOCK_TYPE} {M20K}
-    set_instance_parameter_value alt_mem {GUI_CLOCK_TYPE} 1
-
-    add_interface mem_i conduit end
-    add_interface mem_o conduit end
-    set_interface_property mem_i EXPORT_OF alt_mem.ram_input
-    set_interface_property mem_o EXPORT_OF alt_mem.ram_output
-
-    return
+  set m_size [expr ((2**$m_addr_width_a)*$m_data_width_a)]
+  if {$m_addr_width_a == 0} {
+    set m_size [expr ((2**$m_addr_width_b)*$m_data_width_b)]
   }
+
+  add_instance alt_mem ram_2port
+  set_instance_parameter_value alt_mem {GUI_MODE} 0
+  set_instance_parameter_value alt_mem {GUI_MEM_IN_BITS} 1
+  set_instance_parameter_value alt_mem {GUI_MEMSIZE_BITS} $m_size
+  set_instance_parameter_value alt_mem {GUI_VAR_WIDTH} 1
+  set_instance_parameter_value alt_mem {GUI_QA_WIDTH} $m_data_width_a
+  set_instance_parameter_value alt_mem {GUI_DATAA_WIDTH} $m_data_width_a
+  set_instance_parameter_value alt_mem {GUI_QB_WIDTH} $m_data_width_b
+  set_instance_parameter_value alt_mem {GUI_RAM_BLOCK_TYPE} {M20K}
+  set_instance_parameter_value alt_mem {GUI_CLOCK_TYPE} 1
+
+  add_interface mem_i conduit end
+  add_interface mem_o conduit end
+  set_interface_property mem_i EXPORT_OF alt_mem.ram_input
+  set_interface_property mem_o EXPORT_OF alt_mem.ram_output
 }