read seemingly complete

2025-03-10 17:46:06 -04:00 · 2025-03-10 17:46:06 -04:00 · b95b2b962a
commit b95b2b962a
parent ad751a5039
4 changed files with 82 additions and 39 deletions
--- a/hs/RegFiles.hs
+++ b/hs/RegFiles.hs
@ -28,8 +28,11 @@ import Util((|>))
 import Types(DoubleWord)

 type RegFileIdx = Unsigned 5
-data RegVal = Value RegFileIdx DoubleWord
-            | Unpopulated RegFileIdx
+data RegVal = Value {
+                regFileIdx :: RegFileIdx,
+                regVal :: DoubleWord
+                }
+            | Unpopulated {regFileIdx :: RegFileIdx}
            deriving (Generic, Show, Eq, NFDataX)

 type GPR = Vec 32 (Unsigned 64) -- General Purpose Registers