Implement the while loop

2024-11-24 13:05:11 +01:00
parent 0c9799b887
commit f7b36cb81d
15 changed files with 89 additions and 53 deletions
--- a/lib/Language/Elna/Backend/Intermediate.hs
+++ b/lib/Language/Elna/Backend/Intermediate.hs
@@ -19,13 +19,14 @@ instance Show Label
  where
    show (Label label) = '.' : Text.unpack label

-data Variable = TempVariable Word32 | LocalVariable Word32
+data Variable = TempVariable Word32 | LocalVariable Word32 | ParameterVariable Word32
    deriving Eq

 instance Show Variable
  where
    show (LocalVariable variable) = '@' : show variable
    show (TempVariable variable) = '$' : show variable
+    show (ParameterVariable variable) = '%' : show variable

 data Operand v
    = IntOperand Int32