From 794cec00166f46a3ea8480377ee7f773884a8f5d Mon Sep 17 00:00:00 2001
From: Adam Izraelevitz <azidar@gmail.com>
Date: Mon, 21 Nov 2016 17:28:17 -0800
Subject: More progress on Firrtl backend.

Chisel -> Firrtl -> Verilog -> Firrtl -> Verilog is successful for a
simple rocket-chip design.
---
 backends/firrtl/test.v | 67 +++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 53 insertions(+), 14 deletions(-)

(limited to 'backends/firrtl/test.v')

diff --git a/backends/firrtl/test.v b/backends/firrtl/test.v
index 1c7088ab8..c6d62a847 100644
--- a/backends/firrtl/test.v
+++ b/backends/firrtl/test.v
@@ -1,24 +1,63 @@
 module test(
 	input clk, wen,
-	input [4:0] waddr, raddr,
-	input [31:0] wdata,
-	output reg [31:0] rdata,
-	signed input [7:0] a, b, x,
-	output [15:0] s, d, y, z, u, q
+	input [7:0] uns,
+	input signed [7:0] a, b,
+	input signed [23:0] c,
+	input signed [2:0] sel,
+	output [15:0] s, d, y, z, u, q, p, mul, div, mod, mux, And, Or, Xor, eq, neq, gt, lt, geq, leq, eqx, shr, sshr, shl, sshl, Land, Lor, Lnot, Not, Neg, pos, Andr, Orr, Xorr, Xnorr, Reduce_bool,
+        output [7:0] PMux
 );
-	reg [31:0] memory [0:31];
-
-	always @(posedge clk) begin
-		rdata <= memory[raddr];
-		if (wen) memory[waddr] <= wdata;
-	end
-
+        //initial begin
+          //$display("shr = %b", shr);
+        //end
 	assign s = a+{b[6:2], 2'b1};
 	assign d = a-b;
 	assign y = x;
 	assign z[7:0] = s+d;
 	assign z[15:8] = s-d;
+        assign p = a & b | x;
+        assign mul = a * b;
+        assign div = a / b;
+        assign mod = a % b;
+        assign mux = x[0] ? a : b;
+        assign And = a & b;
+        assign Or = a | b;
+        assign Xor = a ^ b;
+        assign Not = ~a;
+        assign Neg = -a;
+        assign eq = a == b;
+        assign neq = a != b;
+        assign gt = a > b;
+        assign lt = a < b;
+        assign geq = a >= b;
+        assign leq = a <= b;
+        assign eqx = a === b;
+        assign shr = a >> b; //0111111111000000
+        assign sshr = a >>> b;
+        assign shl = a << b;
+        assign sshl = a <<< b;
+        assign Land = a && b;
+        assign Lor = a || b;
+        assign Lnot = !a;
+        assign pos = $signed(uns);
+        assign Andr = &a;
+        assign Orr = |a;
+        assign Xorr = ^a;
+        assign Xnorr = ~^a;
+        always @*
+          if(!a) begin
+             Reduce_bool = a;
+          end else begin
+             Reduce_bool = b;
+          end
+        //always @(sel or c or a)
+        //  begin
+        //    case (sel)
+        //      3'b000: PMux = a;
+        //      3'b001: PMux = c[7:0];
+        //      3'b010: PMux = c[15:8];
+        //      3'b100: PMux = c[23:16];
+        //    endcase
+        //  end
 
-	always @(posedge clk)
-		q <= s ^ d ^ x;
 endmodule
-- 
cgit v1.2.3