Implement division

2024-10-06 18:07:57 +02:00
parent 35742aa525
commit 699cc8684b
13 changed files with 101 additions and 27 deletions
--- a/lib/Language/Elna/Backend/Intermediate.hs
+++ b/lib/Language/Elna/Backend/Intermediate.hs
@@ -31,11 +31,11 @@ data Quadruple v
    | SubtractionQuadruple (Operand v) (Operand v) v
    | NegationQuadruple (Operand v) v
    | ProductQuadruple (Operand v) (Operand v) v
+    | DivisionQuadruple (Operand v) (Operand v) v
    {-| GoToQuadruple Label
    | AssignQuadruple Operand Variable
    | ArrayQuadruple Variable Operand Variable
    | ArrayAssignQuadruple Operand Operand Variable
-    | DivisionQuadruple Operand Operand Variable
    | EqualQuadruple Operand Operand Label
    | NonEqualQuadruple Operand Operand Label
    | LessQuadruple Operand Operand Label