From 0850f0a8d66af028e32a79063cdad328b70db909 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 11 Oct 2024 16:14:01 +0200
Subject: Implement if statements with equality

---
 lib/Language/Elna/Backend/Allocator.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/Language/Elna/Backend/Allocator.hs')

diff --git a/lib/Language/Elna/Backend/Allocator.hs b/lib/Language/Elna/Backend/Allocator.hs
index 701beb8..bdbccab 100644
--- a/lib/Language/Elna/Backend/Allocator.hs
+++ b/lib/Language/Elna/Backend/Allocator.hs
@@ -50,6 +50,10 @@ allocate MachineConfiguration{..} = fmap function
         = DivisionQuadruple (operand operand1) (operand operand2)
         $ Store
         $ temporaryRegisters !! fromIntegral index
+    quadruple (LabelQuadruple label) = LabelQuadruple label
+    quadruple (GoToQuadruple label) = GoToQuadruple label
+    quadruple (EqualQuadruple operand1 operand2 goToLabel) =
+        EqualQuadruple (operand operand1) (operand operand2) goToLabel
     operand :: Operand Variable -> Operand (Store r)
     operand (IntOperand x) = IntOperand x
     operand (VariableOperand (TempVariable index))
-- 
cgit v1.2.3