Semantics for RISC code

lib/miniImp/RISC.mli

@@ -1,9 +1,9 @@
 module RISCAssembly : sig
   type register = {
-    index : int
+    index : string
   }
 
-  type label
+  type label = string
   type risci =
     | Nop
     | BRegOp of brop * register * register * register
@@ -48,8 +48,12 @@ module RISCAssembly : sig
     | Copy
     | Rand
 
-  type t = risci list
+  type t = {
+    code : risci list;
+    inputval: int option
+  }
 
+  val pp_risci : out_channel -> risci -> unit
   val pp : out_channel -> t -> unit
 end