diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-09-29 19:50:55 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-09-29 19:50:55 +0200 |
| commit | c2c923276f7ecde1f71e53309dc5d1cc53cd3ff2 (patch) | |
| tree | 88a3667a31d5c463014ff2691acbfb7afb6bc0b1 /lib/Language/Elna/NameAnalysis.hs | |
| parent | ed144309fab03565e7b6963b5e5e936b658a053f (diff) | |
| download | elna-c2c923276f7ecde1f71e53309dc5d1cc53cd3ff2.tar.gz | |
Implement addition and subtraction
Diffstat (limited to 'lib/Language/Elna/NameAnalysis.hs')
| -rw-r--r-- | lib/Language/Elna/NameAnalysis.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Language/Elna/NameAnalysis.hs b/lib/Language/Elna/NameAnalysis.hs index 6cb2f5c..10045e9 100644 --- a/lib/Language/Elna/NameAnalysis.hs +++ b/lib/Language/Elna/NameAnalysis.hs @@ -136,16 +136,16 @@ checkSymbol globalTable identifier expression :: SymbolTable -> AST.Expression -> NameAnalysis () expression _ (AST.LiteralExpression _) = pure () -{- expression globalTable (AST.VariableExpression variableExpression) = - variableAccess globalTable variableExpression -expression globalTable (AST.NegationExpression negation) = - expression globalTable negation expression globalTable (AST.SumExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs expression globalTable (AST.SubtractionExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs +{- expression globalTable (AST.VariableExpression variableExpression) = + variableAccess globalTable variableExpression +expression globalTable (AST.NegationExpression negation) = + expression globalTable negation expression globalTable (AST.ProductExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs |