diff --git a/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crw_crw.vhd b/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crw_crw.vhd
index 0204eab6eb66dd44e9c3e8bfd6ffa53056f504d5..badfa33043f1e5b141621085a5f2bea400df857d 100644
--- a/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crw_crw.vhd
+++ b/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crw_crw.vhd
@@ -72,11 +72,6 @@ END ip_stratixiv_ram_crw_crw;
 
 ARCHITECTURE SYN OF ip_stratixiv_ram_crw_crw IS
 
-  FUNCTION sel_a_b(sel : BOOLEAN; a, b : STRING) RETURN STRING IS
-  BEGIN
-    IF sel=TRUE THEN RETURN a; ELSE RETURN b; END IF;
-  END;
-  
   CONSTANT c_outdata_reg_a : STRING := tech_sel_a_b(g_rd_latency=1, "UNREGISTERED", "CLOCK0");
   CONSTANT c_outdata_reg_b : STRING := tech_sel_a_b(g_rd_latency=1, "UNREGISTERED", "CLOCK1");
 
diff --git a/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crwk_crw.vhd b/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crwk_crw.vhd
index f2bfc203caa70d57ee416aa01601eedf38d23ca6..817fefe07884c38d1815a7a0b4c6c60bafb20d75 100644
--- a/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crwk_crw.vhd
+++ b/libraries/technology/ip_stratixiv/ip_stratixiv_ram_crwk_crw.vhd
@@ -75,11 +75,6 @@ END ip_stratixiv_ram_crwk_crw;
 
 ARCHITECTURE SYN OF ip_stratixiv_ram_crwk_crw IS
 
-  FUNCTION sel_a_b(sel : BOOLEAN; a, b : STRING) RETURN STRING IS
-  BEGIN
-    IF sel=TRUE THEN RETURN a; ELSE RETURN b; END IF;
-  END;
-  
   CONSTANT c_outdata_reg_a : STRING := tech_sel_a_b(g_rd_latency=1, "UNREGISTERED", "CLOCK0");
   CONSTANT c_outdata_reg_b : STRING := tech_sel_a_b(g_rd_latency=1, "UNREGISTERED", "CLOCK1");