Merge pull request #2 from davidharrishmc/imperas

Imperas

pipelined/testbench/common/wallyTracer.sv

@@ -6,6 +6,7 @@
 `define PRINT_PC_INSTR 0
 `define PRINT_MOST 0
 `define PRINT_ALL 0
+`define PRINT_CSRS 0
 
 module wallyTracer(rvviTrace rvvi);
 
@@ -33,7 +34,7 @@ module wallyTracer(rvviTrace rvvi);
   logic 						 frf_we4;
   logic [`XLEN-1:0]              CSRArray [logic[11:0]];
   logic [`XLEN-1:0] 			 CSRArrayOld [logic[11:0]];
-  logic [`XLEN-1:0]              CSR_W [logic[11:0]];
+  logic [`NUM_CSRS-1:0] 		 CSR_W;
   logic 						 CSRWriteM, CSRWriteW;
   logic [11:0] 					 CSRAdrM, CSRAdrW;
   
@@ -49,6 +50,8 @@ module wallyTracer(rvviTrace rvvi);
   assign PCE            = testbench.dut.core.ifu.PCE;
   assign PCM            = testbench.dut.core.ifu.PCM;
   assign reset          = testbench.reset;
+  assign StallF         = testbench.dut.core.StallF;
+  assign StallD         = testbench.dut.core.StallD;
   assign StallE         = testbench.dut.core.StallE;
   assign StallM         = testbench.dut.core.StallM;
   assign StallW         = testbench.dut.core.StallW;
@@ -63,6 +66,10 @@ module wallyTracer(rvviTrace rvvi);
   assign STATUS_UXL     = testbench.dut.core.priv.priv.csr.csrsr.STATUS_UXL;
 
   always_comb begin
+	// Since we are detected the CSR change by comparing the old value we need to
+	// ensure the CSR is detected when the pipeline's Writeback stage is not
+	// stalled.  If it is stalled we want CSRArray to hold the old value.
+	if(~StallW) begin 
 	  // machine CSRs
 	  // *** missing PMP and performance counters.
 	  CSRArray[12'h300] = testbench.dut.core.priv.priv.csr.csrm.MSTATUS_REGW;
@@ -103,6 +110,46 @@ module wallyTracer(rvviTrace rvvi);
 	  CSRArray[12'h001] = testbench.dut.core.priv.priv.csr.csru.csru.FFLAGS_REGW;
 	  CSRArray[12'h002] = testbench.dut.core.priv.priv.csr.csru.FRM_REGW;
 	  CSRArray[12'h003] = {testbench.dut.core.priv.priv.csr.csru.FRM_REGW, testbench.dut.core.priv.priv.csr.csru.csru.FFLAGS_REGW};
+	end else begin // hold the old value if the pipeline is stalled.
+	  CSRArray[12'h300] = CSRArrayOld[12'h300];
+	  CSRArray[12'h310] = CSRArrayOld[12'h310];
+	  CSRArray[12'h305] = CSRArrayOld[12'h305];
+	  CSRArray[12'h341] = CSRArrayOld[12'h341];
+	  CSRArray[12'h306] = CSRArrayOld[12'h306];
+	  CSRArray[12'h320] = CSRArrayOld[12'h320];
+	  CSRArray[12'h302] = CSRArrayOld[12'h302];
+	  CSRArray[12'h303] = CSRArrayOld[12'h303];
+	  CSRArray[12'h344] = CSRArrayOld[12'h344];
+	  CSRArray[12'h304] = CSRArrayOld[12'h304];
+	  CSRArray[12'h301] = CSRArrayOld[12'h301];
+	  CSRArray[12'hF14] = CSRArrayOld[12'hF14];
+	  CSRArray[12'h340] = CSRArrayOld[12'h340];
+	  CSRArray[12'h342] = CSRArrayOld[12'h342];
+	  CSRArray[12'h343] = CSRArrayOld[12'h343];
+	  CSRArray[12'hF11] = CSRArrayOld[12'hF11];
+	  CSRArray[12'hF12] = CSRArrayOld[12'hF12];
+	  CSRArray[12'hF13] = CSRArrayOld[12'hF13];
+	  CSRArray[12'hF15] = CSRArrayOld[12'hF15];
+	  CSRArray[12'h34A] = CSRArrayOld[12'h34A];
+	  // MCYCLE and MINSTRET
+	  CSRArray[12'hB00] = CSRArrayOld[12'hB00];
+	  CSRArray[12'hB02] = CSRArrayOld[12'hB02];
+	  // supervisor CSRs
+	  CSRArray[12'h100] = CSRArrayOld[12'h100];
+	  CSRArray[12'h104] = CSRArrayOld[12'h104];
+	  CSRArray[12'h105] = CSRArrayOld[12'h105];
+	  CSRArray[12'h141] = CSRArrayOld[12'h141];
+	  CSRArray[12'h106] = CSRArrayOld[12'h106];
+	  CSRArray[12'h180] = CSRArrayOld[12'h180];
+	  CSRArray[12'h140] = CSRArrayOld[12'h140];
+	  CSRArray[12'h143] = CSRArrayOld[12'h143];
+	  CSRArray[12'h142] = CSRArrayOld[12'h142];
+	  CSRArray[12'h144] = CSRArrayOld[12'h144];
+	  // user CSRs
+	  CSRArray[12'h001] = CSRArrayOld[12'h001];
+	  CSRArray[12'h002] = CSRArrayOld[12'h002];
+	  CSRArray[12'h003] = CSRArrayOld[12'h003];
+	end	  
   end
 
   genvar 							index;
@@ -155,8 +202,10 @@ module wallyTracer(rvviTrace rvvi);
   // Initially connecting the writeback stage signals, but may need to use M stage
   // and gate on ~FlushW.
 
+  logic valid;
+  assign valid  = InstrValidW & ~StallW & ~FlushW;
   assign rvvi.clk = clk;
-  assign rvvi.valid[0][0]    = InstrValidW & ~StallW & ~FlushW;
+  assign rvvi.valid[0][0]    = valid;
   assign rvvi.order[0][0]    = CSRArray[12'hB02];  // TODO: IMPERAS Should be event order
   assign rvvi.insn[0][0]     = InstrRawW;
   assign rvvi.pc_rdata[0][0] = PCW;
@@ -182,7 +231,6 @@ module wallyTracer(rvviTrace rvvi);
   integer index4;
   always_ff @(posedge clk) begin
 	for (index4 = 0; index4 < `NUM_CSRS; index4 += 1) begin
-        CSR_W[index4]       = (CSRArrayOld[index4] != CSRArray[index4]) ? 1 : 0;
 	  CSRArrayOld[index4] = CSRArray[index4];
 	end
   end
@@ -190,6 +238,8 @@ module wallyTracer(rvviTrace rvvi);
   // check for csr value change.
   genvar index5;
   for(index5 = 0; index5 < `NUM_CSRS; index5 += 1) begin
+	// CSR_W should only indicate the change when the Writeback stage is not stalled and valid.
+    assign CSR_W[index5] = (CSRArrayOld[index5] != CSRArray[index5]) ? 1 : 0;
     assign rvvi.csr_wb[0][0][index5] = CSR_W[index5];
     assign rvvi.csr[0][0][index5]    = CSRArray[index5];
   end
@@ -216,10 +266,15 @@ module wallyTracer(rvviTrace rvvi);
 		  $display("f%02d = %08x", index2, rvvi.f_wdata[0][0][index2]);
 		end
 	  end
+	  if (`PRINT_CSRS) begin
+		for(index2 = 0; index2 < `NUM_CSRS; index2 += 1) begin
+		  if(CSR_W[index2]) begin
+			$display("%t: CSR %03x = %x", $time(), index2, CSRArray[index2]);
+		  end
+		end
+	  end
 	end
     if(HaltW) $finish;
-//    if(HaltW) $stop;
-
   end