Lower to isa WIP

1 files changed, 9 insertions, 0 deletions

diff --git a/Intermediate.hs b/Intermediate.hs
index c72e81c..c677ddd 100644
--- a/Intermediate.hs
+++ b/Intermediate.hs
@@ -28,12 +28,21 @@ data Ref
   deriving Eq
 
 data InsCode
+    -- | Get value of the ref
     = IAssign Ref
+    -- | Get i'th parameter to current function
     | IParam Int
+    -- | Get i'th closure entry for current function
     | IClosure Int
+    -- | Get i'th entry in global data table
     | IData Int
+    -- | 
     | ICallC Ref [Ref]
+    -- | Allocate memory containing:
+    --   - Function pointer for function with the given name
+    --   - The values of each of the references
     | IAllocClo Name [Ref]
+    -- | Do nothing?
     | IDiscard Ref
   deriving Eq