From c0d1c551068508afb1670fc3968a3d27d98a043e Mon Sep 17 00:00:00 2001
From: Tom Verbeure <tom_verbeure@yahoo.com>
Date: Fri, 2 Sep 2016 22:16:59 -0700
Subject: testbench_slow_mem

---
 dhrystone/Makefile             |   9 +++-
 dhrystone/testbench_slow_mem.v | 114 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 122 insertions(+), 1 deletion(-)
 create mode 100644 dhrystone/testbench_slow_mem.v

(limited to 'dhrystone')

diff --git a/dhrystone/Makefile b/dhrystone/Makefile
index 9cc191f..88cbf4d 100644
--- a/dhrystone/Makefile
+++ b/dhrystone/Makefile
@@ -13,6 +13,9 @@ endif
 test: testbench.vvp dhry.hex
 	vvp -N testbench.vvp
 
+test_slow_mem: testbench_slow_mem.vvp dhry.hex
+	vvp -N testbench_slow_mem.vvp
+
 timing: timing.txt
 	grep '^##' timing.txt | gawk 'x != "" {print x,$$3-y;} {x=$$2;y=$$3;}' | sort | uniq -c | \
 		gawk '{printf("%03d-%-7s %2d %-8s (%d)\n",$$3,$$2,$$3,$$2,$$1);}' | sort | cut -c13-
@@ -24,6 +27,10 @@ testbench.vvp: testbench.v ../picorv32.v
 	iverilog -o testbench.vvp testbench.v ../picorv32.v
 	chmod -x testbench.vvp
 
+testbench_slow_mem.vvp: testbench_slow_mem.v ../picorv32.v
+	iverilog -o testbench_slow_mem.vvp testbench_slow_mem.v ../picorv32.v
+	chmod -x testbench_slow_mem.vvp
+
 timing.vvp: testbench.v ../picorv32.v
 	iverilog -o timing.vvp -DTIMING testbench.v ../picorv32.v
 	chmod -x timing.vvp
@@ -50,7 +57,7 @@ endif
 dhry_1.o dhry_2.o: CFLAGS += -Wno-implicit-int -Wno-implicit-function-declaration
 
 clean:
-	rm -rf *.o *.d dhry.elf dhry.map dhry.bin dhry.hex testbench.vvp testbench.vcd timing.vvp timing.txt
+	rm -rf *.o *.d dhry.elf dhry.map dhry.bin dhry.hex testbench.vvp testbench.vcd timing.vvp timing.txt testbench_slow_mem.vvp
 
 .PHONY: test clean
 
diff --git a/dhrystone/testbench_slow_mem.v b/dhrystone/testbench_slow_mem.v
new file mode 100644
index 0000000..e4a4dfa
--- /dev/null
+++ b/dhrystone/testbench_slow_mem.v
@@ -0,0 +1,114 @@
+`timescale 1 ns / 1 ps
+
+module testbench;
+	reg clk = 1;
+	reg resetn = 0;
+	wire trap;
+
+	always #5 clk = ~clk;
+
+	initial begin
+		repeat (100) @(posedge clk);
+		resetn <= 1;
+	end
+
+	wire mem_valid;
+    reg  mem_valid_q;
+	wire mem_instr;
+	reg  mem_ready;
+	wire [31:0] mem_addr;
+	wire [31:0] mem_wdata;
+	wire [3:0]  mem_wstrb;
+	reg  [31:0] mem_rdata;
+
+	picorv32 #(
+		.BARREL_SHIFTER(1),
+		.ENABLE_FAST_MUL(1),
+		.ENABLE_DIV(1),
+		.PROGADDR_RESET('h10000),
+		.STACKADDR('h10000)
+	) uut (
+		.clk         (clk        ),
+		.resetn      (resetn     ),
+		.trap        (trap       ),
+		.mem_valid   (mem_valid  ),
+		.mem_instr   (mem_instr  ),
+		.mem_ready   (mem_ready  ),
+		.mem_addr    (mem_addr   ),
+		.mem_wdata   (mem_wdata  ),
+		.mem_wstrb   (mem_wstrb  ),
+		.mem_rdata   (mem_rdata  ),
+		.mem_la_read (),
+		.mem_la_write(),
+		.mem_la_addr (),
+		.mem_la_wdata(),
+		.mem_la_wstrb()
+	);
+
+	reg [7:0] memory [0:256*1024-1];
+	initial $readmemh("dhry.hex", memory);
+
+	always @(posedge clk) begin
+        mem_ready <= 1'b0;
+
+	    mem_rdata[ 7: 0] <= 'bx;
+        mem_rdata[15: 8] <= 'bx;
+        mem_rdata[23:16] <= 'bx;
+        mem_rdata[31:24] <= 'bx;
+
+		if (mem_valid & !mem_valid_q) begin
+            if (|mem_wstrb) begin
+                mem_ready <= 1'b1;
+
+			    case (mem_addr)
+    				32'h1000_0000: begin
+`ifndef TIMING
+    					$write("%c", mem_wdata);
+    					$fflush();
+`endif
+    				end
+    				default: begin
+    					if (mem_wstrb[0]) memory[mem_addr + 0] <= mem_wdata[ 7: 0];
+    					if (mem_wstrb[1]) memory[mem_addr + 1] <= mem_wdata[15: 8];
+    					if (mem_wstrb[2]) memory[mem_addr + 2] <= mem_wdata[23:16];
+    					if (mem_wstrb[3]) memory[mem_addr + 3] <= mem_wdata[31:24];
+    				end
+    			endcase
+            end
+            else begin
+                mem_ready <= 1'b1;
+
+      		    mem_rdata[ 7: 0] <= memory[mem_addr + 0];
+    		    mem_rdata[15: 8] <= memory[mem_addr + 1];
+    		    mem_rdata[23:16] <= memory[mem_addr + 2];
+    		    mem_rdata[31:24] <= memory[mem_addr + 3];
+            end
+		end
+
+        mem_valid_q <= mem_valid;
+	end
+
+	initial begin
+		$dumpfile("testbench.vcd");
+		$dumpvars(0, testbench);
+	end
+
+	always @(posedge clk) begin
+		if (resetn && trap) begin
+			repeat (10) @(posedge clk);
+			$display("TRAP");
+			$finish;
+		end
+	end
+
+`ifdef TIMING
+	initial begin
+		repeat (100000) @(posedge clk);
+		$finish;
+	end
+	always @(posedge clk) begin
+		if (uut.dbg_next)
+			$display("## %-s %d", uut.dbg_ascii_instr ? uut.dbg_ascii_instr : "pcpi", uut.count_cycle);
+	end
+`endif
+endmodule
-- 
cgit