Add printc and exit builtin functions

2 files changed, 3 insertions, 1 deletions

diff --git a/lib/Language/Elna/Backend/Allocator.hs b/lib/Language/Elna/Backend/Allocator.hs
index 9ad849e..1ffc85d 100644
--- a/lib/Language/Elna/Backend/Allocator.hs
+++ b/lib/Language/Elna/Backend/Allocator.hs
@@ -36,6 +36,8 @@ allocate MachineConfiguration{..} = fmap function
         SubtractionQuadruple (operand operand1) (operand operand2) (Store temporaryRegister)
     quadruple (NegationQuadruple operand1 _) =
         NegationQuadruple (operand operand1) (Store temporaryRegister)
+    quadruple (ProductQuadruple operand1 operand2 _) =
+        ProductQuadruple (operand operand1) (operand operand2) (Store temporaryRegister)
     operand :: Operand Variable -> Operand (Store r)
     operand (IntOperand x) = IntOperand x
     operand (VariableOperand _) = VariableOperand (Store temporaryRegister)
diff --git a/lib/Language/Elna/Backend/Intermediate.hs b/lib/Language/Elna/Backend/Intermediate.hs
index 01a026b..e7c66cf 100644
--- a/lib/Language/Elna/Backend/Intermediate.hs
+++ b/lib/Language/Elna/Backend/Intermediate.hs
@@ -30,11 +30,11 @@ data Quadruple v
     | AddQuadruple (Operand v) (Operand v) v
     | SubtractionQuadruple (Operand v) (Operand v) v
     | NegationQuadruple (Operand v) v
+    | ProductQuadruple (Operand v) (Operand v) v
     {-| GoToQuadruple Label
     | AssignQuadruple Operand Variable
     | ArrayQuadruple Variable Operand Variable
     | ArrayAssignQuadruple Operand Operand Variable
-    | ProductQuadruple Operand Operand Variable
     | DivisionQuadruple Operand Operand Variable
     | EqualQuadruple Operand Operand Label
     | NonEqualQuadruple Operand Operand Label