From 059c73a4d207cdcc73e04c037ff9037e4e5e480b Mon Sep 17 00:00:00 2001
From: Ross Thompson <ross1728@gmail.com>
Date: Mon, 27 Mar 2023 18:36:02 -0500
Subject: [PATCH] First stab at the i cache logger.

---
 testbench/testbench.sv | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/testbench/testbench.sv b/testbench/testbench.sv
index bb70a6360..575b9b6c5 100644
--- a/testbench/testbench.sv
+++ b/testbench/testbench.sv
@@ -30,6 +30,7 @@
 
 `define PrintHPMCounters 1
 `define BPRED_LOGGER 1
+`define INSTR_FETCH_ADDR_LOGGER 0
 
 module testbench;
   parameter DEBUG=0;
@@ -546,7 +547,29 @@ logic [3:0] dummy;
 		end
 	  end
 	end
+end
+
+
+  if (`INSTR_FETCH_ADDR_LOGGER == 1) begin
+    int    file;
+	string LogFile;
+	logic  resetD, resetEdge;
+	flop #(1) ResetDReg(clk, reset, resetD);
+	assign resetEdge = ~reset & resetD;
+    initial begin
+	  LogFile = $psprintf("ICache.log");
+      file = $fopen(LogFile, "w");
+	end
+    always @(posedge clk) begin
+	  if(resetEdge) $fwrite(file, "TRAIN\n");
+	  if(StartSample) $fwrite(file, "BEGIN %s\n", memfilename);
+	  if(dut.core.StallD & ~dut.core.FlushD) begin
+	    $fwrite(file, "%h R\n", dut.core.ifu.PCF);
+	  end
+	  if(EndSample) $fwrite(file, "END %s\n", memfilename);
+    end
   end
+  
 
   
   if (`BPRED_SUPPORTED == 1) begin