Make IR for array access

lib/Language/Elna/Backend/Allocator.hs

@@ -139,6 +139,10 @@ quadruple = \case
         operand1' <- operand operand1
         operand2' <- operand operand2
         ArrayAssignQuadruple operand1' operand2' <$> storeVariable variable
+    ArrayQuadruple variable1 operand1 variable2 -> ArrayQuadruple 
+        <$> storeVariable variable1
+        <*> operand operand1
+        <*> storeVariable variable2
 
 operand :: Operand Variable -> Allocator r (Operand (Store r))
 operand (IntOperand x) = pure $ IntOperand x

lib/Language/Elna/Backend/Intermediate.hs

@@ -50,7 +50,7 @@ data Quadruple v
     | DivisionQuadruple (Operand v) (Operand v) v
     | GoToQuadruple Label
     | AssignQuadruple (Operand v) v
-    {-| ArrayQuadruple Variable Operand Variable -}
+    | ArrayQuadruple v (Operand v) v
     | ArrayAssignQuadruple (Operand v) (Operand v) v
     | LessOrEqualQuadruple (Operand v) (Operand v) Label
     | GreaterOrEqualQuadruple (Operand v) (Operand v) Label