VHDL转换为verilog答案

【问题标题】：VHDL convert to verilogVHDL转换为verilog
【发布时间】：2012-01-22 20:48:28
【问题描述】：

我想将以下 VHDL 代码转换为 Verilog。但是我遇到了一些问题，正如我在这里提到的compilation error。有人能给我一些关于如何在 Verilog 中正确编写相同函数的提示吗？

谢谢！

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
use work.classic_multiplier_parameters.all;
entity poly_multiplier is
port (
  a, b: in std_logic_vector(M-1 downto 0);
  d: out std_logic_vector(2*M-2 downto 0)
);
end poly_multiplier;


architecture simple of poly_multiplier is
  type matrix_ands is array (0 to 2*M-2) of STD_LOGIC_VECTOR(2*M-2 downto 0);
  signal a_by_b: matrix_ands;
  signal c: std_logic_vector(2*M-2 downto 0);
begin

  gen_ands: for k in 0 to M-1 generate
    l1: for i in 0 to k generate
       a_by_b(k)(i) <= A(i) and B(k-i);
    end generate;
  end generate;

  gen_ands2: for k in M to 2*M-2 generate
    l2: for i in k to 2*M-2 generate
       a_by_b(k)(i) <= A(k-i+(M-1)) and B(i-(M-1));
    end generate;
  end generate;

  d(0) <= a_by_b(0)(0);
  gen_xors: for k in 1 to 2*M-2 generate
    l3: process(a_by_b(k),c(k))
        variable aux: std_logic;
        begin
        if (k < M) then
          aux := a_by_b(k)(0);
          for i in 1 to k loop aux := a_by_b(k)(i) xor aux; end loop;
        else
          aux := a_by_b(k)(k);
          for i in k+1 to 2*M-2 loop aux := a_by_b(k)(i) xor aux; end loop;
        end if;
        d(k) <= aux;
    end process;
  end generate;

end simple;

【问题讨论】：

VHDL 有一个解析器-翻译器 -> Verilog here。可以试试看。
另外，我想知道你为什么想要 VHDL -> Verilog？大多数（如果不是全部）工具可以同时处理两者（例如 Xilinx ISE、ModelSim、Cadence 综合工具……）。
@Darhuuk，我想知道如何在verilog中编写这种类型的VHDL代码。
它或多或少完全一样。您是否尝试过 Ross Rogers 链接的 VHDL -> Verilog 翻译器？
Darhuuk，从 VHDL 切换到 Verilog 有非常正当理由。我们有一个混合的 Verilog/VHDL 环境，要求我们使用 Synopsys 的 VCS-MX，当我们最终摆脱我们的 VHDL（使用内部解析器 - 翻译器）时，我们的仿真速度提高了 3 倍。这是巨大的。但你是对的。大多数 EDA 工具栈都支持 VHDL 和 Verilog。

标签： vhdl verilog

【解决方案1】：

下面的代码部分应该这样做。备注：

在您的代码中，常量M 被定义为一个单独的包，我已将其移动为参数（Verilog）或泛型（VHDL）
Verilog 区分大小写，因此您必须修正M、a 和b 的拼写

Verilog 代码：

module poly_multiplier(a, b, d);

   parameter M = 0;

   input [M - 1:0] a;
   input [M - 1:0] b;
   output [2 * M - 2:0] d;

   wire [M - 1:0]       a;
   wire [M - 1:0]       b;
   reg [2 * M - 2:0]    d;

   wire [2 * M - 2:0]   a_by_b[0:2 * M - 2];
   wire [2 * M - 2:0]   c;

   generate
      genvar            k0;
      for (k0 = 0; k0 <= M - 1; k0=k0+1) begin : gen_ands
         genvar i0;
         for (i0 = 0; i0 <= k0; i0=i0+1) begin : l1
            assign a_by_b[k0][i0] = a[i0] & b[k0 - i0];
         end
      end
   endgenerate

   generate
      genvar k1;
      for (k1 = M; k1 <= 2 * M - 2; k1=k1+1) begin : gen_ands2
         genvar i1;
         for (i1 = k1; i1 <= 2 * M - 2; i1=i1+1) begin : l2
            assign a_by_b[k1][i1] = a[k1 - i1 + M - 1] & b[i1 - M + 1];
         end
      end
   endgenerate

   always @(*) begin
      d[0] = a_by_b[0][0];
   end

   generate
      genvar k2;
      for (k2 = 1; k2 <= 2 * M - 2; k2=k2+1) begin : gen_xors
         reg  aux;
         integer i;
         always @(*) begin : P2

            if ((k2 < M)) begin
               aux = a_by_b[k2][0];
               for(i = 1; i <= k2; i = i + 1) begin
                  aux = a_by_b[k2][i] ^ aux;
               end
            end
            else begin
               aux = a_by_b[k2][k2];
               for(i = k2 + 1; i <= 2 * M - 2; i = i + 1) begin
                  aux = a_by_b[k2][i] ^ aux;
               end
            end
            d[k2] = aux;
         end

   end
   endgenerate
endmodule

【讨论】：